LTDIR Subroutine

public subroutine LTDIR(KM, KMLOC, KF_FS, KF_UV, KF_SCALARS, KLED2, PSPVOR, PSPDIV, PSPSCALAR, PSPSC3A, PSPSC3B, PSPSC2, KFLDPTRUV, KFLDPTRSC)

Uses

  • proc~~ltdir~~UsesGraph proc~ltdir LTDIR PARKIND1 PARKIND1 proc~ltdir->PARKIND1 YOMHOOK YOMHOOK proc~ltdir->YOMHOOK module~cdmap_mod CDMAP_MOD proc~ltdir->module~cdmap_mod module~ldfou2_mod LDFOU2_MOD proc~ltdir->module~ldfou2_mod module~ledir_mod LEDIR_MOD proc~ltdir->module~ledir_mod module~prepsnm_mod PREPSNM_MOD proc~ltdir->module~prepsnm_mod module~prfi2_mod PRFI2_MOD proc~ltdir->module~prfi2_mod module~tpm_dim TPM_DIM proc~ltdir->module~tpm_dim module~tpm_fields TPM_FIELDS proc~ltdir->module~tpm_fields module~tpm_flt TPM_FLT proc~ltdir->module~tpm_flt module~tpm_geometry TPM_GEOMETRY proc~ltdir->module~tpm_geometry module~tpm_trans TPM_TRANS proc~ltdir->module~tpm_trans module~updsp_mod UPDSP_MOD proc~ltdir->module~updsp_mod module~uvtvd_mod UVTVD_MOD proc~ltdir->module~uvtvd_mod EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_fields->EC_PARKIND module~tpm_flt->PARKIND1 module~butterfly_alg_mod BUTTERFLY_ALG_MOD module~tpm_flt->module~butterfly_alg_mod module~seefmm_mix seefmm_mix module~tpm_flt->module~seefmm_mix module~tpm_geometry->EC_PARKIND module~tpm_trans->PARKIND1 module~butterfly_alg_mod->PARKIND1 module~ectrans_blas_mod ECTRANS_BLAS_MOD module~butterfly_alg_mod->module~ectrans_blas_mod module~interpol_decomp_mod INTERPOL_DECOMP_MOD module~butterfly_alg_mod->module~interpol_decomp_mod module~sharedmem_mod SHAREDMEM_MOD module~butterfly_alg_mod->module~sharedmem_mod ecsort_mix ecsort_mix module~seefmm_mix->ecsort_mix module~wts500_mod WTS500_MOD module~seefmm_mix->module~wts500_mod parkind1 parkind1 module~seefmm_mix->parkind1 module~ectrans_blas_mod->EC_PARKIND module~interpol_decomp_mod->EC_PARKIND iso_c_binding iso_c_binding module~sharedmem_mod->iso_c_binding

*** LTDIR - Control of Direct Legendre transform step

  • Interface. ---------- CALL LTDIR(...)

    1. DIRECT LEGENDRE TRANSFORM. --------------------------
    2. COMPUTE VORTICITY AND DIVERGENCE. ---------------------------------

    3. UPDATE SPECTRAL ARRAYS. -----------------------

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KM
integer(kind=JPIM), intent(in) :: KMLOC
integer(kind=JPIM), intent(in) :: KF_FS
integer(kind=JPIM), intent(in) :: KF_UV
integer(kind=JPIM), intent(in) :: KF_SCALARS
integer(kind=JPIM), intent(in) :: KLED2
real(kind=JPRB), intent(out), optional :: PSPVOR(:,:)
real(kind=JPRB), intent(out), optional :: PSPDIV(:,:)
real(kind=JPRB), intent(out), optional :: PSPSCALAR(:,:)
real(kind=JPRB), intent(out), optional :: PSPSC3A(:,:,:)
real(kind=JPRB), intent(out), optional :: PSPSC3B(:,:,:)
real(kind=JPRB), intent(out), optional :: PSPSC2(:,:)
integer(kind=JPIM), intent(in), optional :: KFLDPTRUV(:)
integer(kind=JPIM), intent(in), optional :: KFLDPTRSC(:)

Calls

proc~~ltdir~~CallsGraph proc~ltdir LTDIR dr_hook dr_hook proc~ltdir->dr_hook proc~cdmap CDMAP proc~ltdir->proc~cdmap proc~ldfou2 LDFOU2 proc~ltdir->proc~ldfou2 proc~ledir LEDIR proc~ltdir->proc~ledir proc~prepsnm PREPSNM proc~ltdir->proc~prepsnm proc~prfi2 PRFI2 proc~ltdir->proc~prfi2 proc~updsp UPDSP proc~ltdir->proc~updsp proc~uvtvd UVTVD proc~ltdir->proc~uvtvd proc~cdmap->dr_hook proc~seefmm_mulm seefmm_mulm proc~cdmap->proc~seefmm_mulm proc~ledir->dr_hook interface~gemm GEMM proc~ledir->interface~gemm proc~mult_butm MULT_BUTM proc~ledir->proc~mult_butm proc~prfi2b PRFI2B proc~prfi2->proc~prfi2b proc~updspb UPDSPB proc~updsp->proc~updspb proc~mult_butm->interface~gemm abor1 abor1 proc~mult_butm->abor1

Called by

proc~~ltdir~~CalledByGraph proc~ltdir LTDIR proc~dir_trans_ctl~2 DIR_TRANS_CTL proc~dir_trans_ctl~2->proc~ltdir proc~ltdir_ctl LTDIR_CTL proc~ltdir_ctl->proc~ltdir proc~dir_trans_ctl DIR_TRANS_CTL proc~dir_trans_ctl->proc~ltdir_ctl proc~dir_trans DIR_TRANS proc~dir_trans->proc~dir_trans_ctl proc~dir_trans~2 DIR_TRANS proc~dir_trans~2->proc~dir_trans_ctl