UPDSPB Subroutine

public subroutine UPDSPB(KFIELD, POA, PSPEC, KFLDPTR)

Uses

  • proc~~updspb~~UsesGraph proc~updspb UPDSPB module~abort_trans_mod ABORT_TRANS_MOD proc~updspb->module~abort_trans_mod module~parkind_ectrans PARKIND_ECTRANS proc~updspb->module~parkind_ectrans module~tpm_dim TPM_DIM proc~updspb->module~tpm_dim module~tpm_distr TPM_DISTR proc~updspb->module~tpm_distr PARKIND1 PARKIND1 module~parkind_ectrans->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_distr->EC_PARKIND

*** UPDSPB - Update spectral arrays after direct Legendre transform

  • Interface. ---------- CALL UPDSPB(....)

    1. UPDATE SPECTRAL FIELDS. ----------------------- Directive incomplete -> putting more variables in SHARED() triggers internal compiler error ftn-7991: INTERNAL COMPILER ERROR: "Too few arguments on the stack"

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KFIELD
real(kind=JPRBT), intent(in) :: POA(:,:,:)
real(kind=JPRB), intent(out) :: PSPEC(:,:)
integer(kind=JPIM), intent(in), optional :: KFLDPTR(:)

Calls

proc~~updspb~~CallsGraph proc~updspb UPDSPB proc~abort_trans ABORT_TRANS proc~updspb->proc~abort_trans mpl_abort mpl_abort proc~abort_trans->mpl_abort sdl_srlabort sdl_srlabort proc~abort_trans->sdl_srlabort sdl_traceback sdl_traceback proc~abort_trans->sdl_traceback

Called by

proc~~updspb~~CalledByGraph proc~updspb UPDSPB proc~ltdir LTDIR proc~ltdir->proc~updspb proc~updsp UPDSP proc~ltdir->proc~updsp proc~updsp->proc~updspb proc~updsp~2 UPDSP proc~updsp~2->proc~updspb proc~dir_trans_ctl DIR_TRANS_CTL proc~dir_trans_ctl->proc~ltdir proc~ltdir_ctl LTDIR_CTL proc~ltdir_ctl->proc~ltdir proc~ltdir~2 LTDIR proc~ltdir~2->proc~updsp proc~dir_trans DIR_TRANS proc~dir_trans->proc~dir_trans_ctl proc~dir_trans_ctl~2 DIR_TRANS_CTL proc~dir_trans_ctl~2->proc~ltdir_ctl proc~dir_trans~2 DIR_TRANS proc~dir_trans~2->proc~dir_trans_ctl