UPDSPBAD Subroutine

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

Uses

  • proc~~updspbad~~UsesGraph proc~updspbad UPDSPBAD module~abort_trans_mod ABORT_TRANS_MOD proc~updspbad->module~abort_trans_mod module~parkind_ectrans PARKIND_ECTRANS proc~updspbad->module~parkind_ectrans module~tpm_dim TPM_DIM proc~updspbad->module~tpm_dim module~tpm_distr TPM_DISTR proc~updspbad->module~tpm_distr module~tpm_gen TPM_GEN proc~updspbad->module~tpm_gen PARKIND1 PARKIND1 module~parkind_ectrans->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_gen->EC_PARKIND

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

  • Interface. ---------- CALL UPDSPBAD(....)

    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(out) :: POA(:,:,:)
real(kind=JPRB), intent(in) :: PSPEC(:,:)
integer(kind=JPIM), intent(in), optional :: KFLDPTR(:)

Calls

proc~~updspbad~~CallsGraph proc~updspbad UPDSPBAD proc~abort_trans ABORT_TRANS proc~updspbad->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~~updspbad~~CalledByGraph proc~updspbad UPDSPBAD proc~ltdirad LTDIRAD proc~ltdirad->proc~updspbad proc~updspad UPDSPAD proc~ltdirad->proc~updspad proc~updspad->proc~updspbad proc~updspad~2 UPDSPAD proc~updspad~2->proc~updspbad proc~dir_trans_ctlad DIR_TRANS_CTLAD proc~dir_trans_ctlad->proc~ltdirad proc~ltdir_ctlad LTDIR_CTLAD proc~ltdir_ctlad->proc~ltdirad proc~ltdirad~2 LTDIRAD proc~ltdirad~2->proc~updspad proc~dir_trans_ctlad~2 DIR_TRANS_CTLAD proc~dir_trans_ctlad~2->proc~ltdir_ctlad proc~dir_transad DIR_TRANSAD proc~dir_transad->proc~dir_trans_ctlad proc~dir_transad~2 DIR_TRANSAD proc~dir_transad~2->proc~dir_trans_ctlad