LTDIRAD Subroutine

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

Uses

  • proc~~ltdirad~~UsesGraph proc~ltdirad LTDIRAD PARKIND1 PARKIND1 proc~ltdirad->PARKIND1 module~ldfou2ad_mod LDFOU2AD_MOD proc~ltdirad->module~ldfou2ad_mod module~ledirad_mod LEDIRAD_MOD proc~ltdirad->module~ledirad_mod module~prepsnm_mod~2 PREPSNM_MOD proc~ltdirad->module~prepsnm_mod~2 module~prfi2ad_mod PRFI2AD_MOD proc~ltdirad->module~prfi2ad_mod module~tpm_dim TPM_DIM proc~ltdirad->module~tpm_dim module~tpm_geometry~2 TPM_GEOMETRY proc~ltdirad->module~tpm_geometry~2 module~updspad_mod UPDSPAD_MOD proc~ltdirad->module~updspad_mod module~uvtvdad_mod UVTVDAD_MOD proc~ltdirad->module~uvtvdad_mod module~tpm_dim->PARKIND1 module~parkind_ectrans PARKIND_ECTRANS module~tpm_geometry~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1

*** LTDIRAD - Control of Direct Legendre transform step - adjoint

  • Interface. ---------- CALL LTDIRAD(...)

    1. COMPUTE VORTICITY AND DIVERGENCE. ---------------------------------

    2. DIRECT LEGENDRE TRANSFORM. --------------------------

    3. FOURIER SPACE COMPUTATIONS. ---------------------------

    4. PREPARE WORK 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(inout), optional :: PSPVOR(:,:)
real(kind=JPRB), intent(inout), optional :: PSPDIV(:,:)
real(kind=JPRB), intent(inout), optional :: PSPSCALAR(:,:)
real(kind=JPRB), intent(inout), optional :: PSPSC3A(:,:,:)
real(kind=JPRB), intent(inout), optional :: PSPSC3B(:,:,:)
real(kind=JPRB), intent(inout), optional :: PSPSC2(:,:)
integer(kind=JPIM), intent(in), optional :: KFLDPTRUV(:)
integer(kind=JPIM), intent(in), optional :: KFLDPTRSC(:)

Calls

proc~~ltdirad~~CallsGraph proc~ltdirad LTDIRAD proc~ldfou2ad LDFOU2AD proc~ltdirad->proc~ldfou2ad proc~ledirad LEDIRAD proc~ltdirad->proc~ledirad proc~prepsnm PREPSNM proc~ltdirad->proc~prepsnm proc~prfi2ad PRFI2AD proc~ltdirad->proc~prfi2ad proc~updspad UPDSPAD proc~ltdirad->proc~updspad proc~uvtvdad UVTVDAD proc~ltdirad->proc~uvtvdad dr_hook dr_hook proc~ledirad->dr_hook interface~gemm GEMM proc~ledirad->interface~gemm proc~mult_butm MULT_BUTM proc~ledirad->proc~mult_butm proc~prfi2bad PRFI2BAD proc~prfi2ad->proc~prfi2bad proc~updspbad UPDSPBAD proc~updspad->proc~updspbad proc~mult_butm->interface~gemm abor1 abor1 proc~mult_butm->abor1

Called by

proc~~ltdirad~~CalledByGraph proc~ltdirad LTDIRAD proc~ltdir_ctlad LTDIR_CTLAD proc~ltdir_ctlad->proc~ltdirad proc~dir_trans_ctlad DIR_TRANS_CTLAD proc~dir_trans_ctlad->proc~ltdir_ctlad proc~dir_transad~2 DIR_TRANSAD proc~dir_transad~2->proc~dir_trans_ctlad