LTINV_CTLAD Subroutine

public subroutine LTINV_CTLAD(KF_OUT_LT, KF_UV, KF_SCALARS, KF_SCDERS, PSPVOR, PSPDIV, PSPSCALAR, PSPSC3A, PSPSC3B, PSPSC2, KFLDPTRUV, KFLDPTRSC, FSPGL_PROC)

Uses

  • proc~~ltinv_ctlad~~UsesGraph proc~ltinv_ctlad LTINV_CTLAD PARKIND1 PARKIND1 proc~ltinv_ctlad->PARKIND1 module~ltinvad_mod~2 LTINVAD_MOD proc~ltinv_ctlad->module~ltinvad_mod~2 module~tpm_distr TPM_DISTR proc~ltinv_ctlad->module~tpm_distr module~tpm_gen TPM_GEN proc~ltinv_ctlad->module~tpm_gen module~tpm_trans TPM_TRANS proc~ltinv_ctlad->module~tpm_trans module~trltom_mod~2 TRLTOM_MOD proc~ltinv_ctlad->module~trltom_mod~2 module~buffered_allocator_mod BUFFERED_ALLOCATOR_MOD module~ltinvad_mod~2->module~buffered_allocator_mod EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_gen->EC_PARKIND module~tpm_trans->PARKIND1 module~trltom_mod~2->module~buffered_allocator_mod module~buffered_allocator_mod->EC_PARKIND iso_c_binding iso_c_binding module~buffered_allocator_mod->iso_c_binding module~abort_trans_mod ABORT_TRANS_MOD module~buffered_allocator_mod->module~abort_trans_mod module~growing_allocator_mod GROWING_ALLOCATOR_MOD module~buffered_allocator_mod->module~growing_allocator_mod module~growing_allocator_mod->iso_c_binding

*** LTINV_CTLAD - Control routine for inverse Legandre transform - adj.

  • Interface. ---------- CALL INV_TRANS_CTL(...) KF_OUT_LT - number of fields coming out from inverse LT KF_UV - local number of spectral u-v fields KF_SCALARS - local number of scalar spectral fields KF_SCDERS - local number of derivatives of scalar spectral fields PSPVOR(:,:) - spectral vorticity (input) PSPDIV(:,:) - spectral divergence (input) PSPSCALAR(:,:) - spectral scalarvalued fields (input) KFLDPTRUV(:) - field pointer array for vor./div. KFLDPTRSC(:) - field pointer array for PSPSCALAR FSPGL_PROC - external procedure to be executed in fourier space before transposition

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KF_OUT_LT
integer(kind=JPIM), intent(in) :: KF_UV
integer(kind=JPIM), intent(in) :: KF_SCALARS
integer(kind=JPIM), intent(in) :: KF_SCDERS
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(:)
real :: FSPGL_PROC

Calls

proc~~ltinv_ctlad~~CallsGraph proc~ltinv_ctlad LTINV_CTLAD gstats gstats proc~ltinv_ctlad->gstats proc~ltinvad LTINVAD proc~ltinv_ctlad->proc~ltinvad proc~trltom TRLTOM proc~ltinv_ctlad->proc~trltom dr_hook dr_hook proc~ltinvad->dr_hook interface~assign_ptr ASSIGN_PTR proc~ltinvad->interface~assign_ptr leinv_strides leinv_strides proc~ltinvad->leinv_strides mpl_barrier mpl_barrier proc~ltinvad->mpl_barrier proc~abort_trans ABORT_TRANS proc~ltinvad->proc~abort_trans proc~get_allocation GET_ALLOCATION proc~ltinvad->proc~get_allocation proc~gstats_nvtx GSTATS_NVTX proc~ltinvad->proc~gstats_nvtx proc~ledir LEDIR proc~ltinvad->proc~ledir proc~prfi1bad PRFI1BAD proc~ltinvad->proc~prfi1bad proc~spnsdead SPNSDEAD proc~ltinvad->proc~spnsdead proc~vdtuvad VDTUVAD proc~ltinvad->proc~vdtuvad proc~trltom->dr_hook proc~trltom->interface~assign_ptr proc~trltom->mpl_barrier mpl_myrank mpl_myrank proc~trltom->mpl_myrank proc~trltom->proc~abort_trans proc~trltom->proc~get_allocation proc~trltom->proc~gstats_nvtx 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 proc~get_allocation->proc~abort_trans proc~gstats_nvtx->gstats proc~ledir->dr_hook proc~ledir->mpl_barrier proc~ledir->proc~gstats_nvtx interface~hip_dgemm_batched HIP_DGEMM_BATCHED proc~ledir->interface~hip_dgemm_batched interface~hip_dgemm_grouped HIP_DGEMM_GROUPED proc~ledir->interface~hip_dgemm_grouped proc~ledir_strides LEDIR_STRIDES proc~ledir->proc~ledir_strides

Called by

proc~~ltinv_ctlad~~CalledByGraph proc~ltinv_ctlad LTINV_CTLAD proc~inv_trans_ctlad~2 INV_TRANS_CTLAD proc~inv_trans_ctlad~2->proc~ltinv_ctlad