LTINV_CTL Subroutine

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

Uses

  • proc~~ltinv_ctl~~UsesGraph proc~ltinv_ctl LTINV_CTL PARKIND1 PARKIND1 proc~ltinv_ctl->PARKIND1 module~ltinv_mod LTINV_MOD proc~ltinv_ctl->module~ltinv_mod module~tpm_distr TPM_DISTR proc~ltinv_ctl->module~tpm_distr module~tpm_flt TPM_FLT proc~ltinv_ctl->module~tpm_flt module~tpm_gen TPM_GEN proc~ltinv_ctl->module~tpm_gen module~tpm_trans TPM_TRANS proc~ltinv_ctl->module~tpm_trans module~trmtol_mod TRMTOL_MOD proc~ltinv_ctl->module~trmtol_mod EC_PARKIND EC_PARKIND module~tpm_distr->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_gen->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

*** LTINV_CTL - Control routine for inverse Legandre transform.

  • 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

!WARNING!!! Duplication of code besides the FSPGL_PROC argument.

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

Calls

proc~~ltinv_ctl~~CallsGraph proc~ltinv_ctl LTINV_CTL gstats gstats proc~ltinv_ctl->gstats proc~ltinv LTINV proc~ltinv_ctl->proc~ltinv proc~trmtol TRMTOL proc~ltinv_ctl->proc~trmtol dr_hook dr_hook proc~ltinv->dr_hook proc~abort_trans ABORT_TRANS proc~ltinv->proc~abort_trans proc~asre1b ASRE1B proc~ltinv->proc~asre1b proc~cdmap CDMAP proc~ltinv->proc~cdmap proc~fspgl_int FSPGL_INT proc~ltinv->proc~fspgl_int proc~leinv LEINV proc~ltinv->proc~leinv proc~prepsnm PREPSNM proc~ltinv->proc~prepsnm proc~prfi1b PRFI1B proc~ltinv->proc~prfi1b proc~spnsde SPNSDE proc~ltinv->proc~spnsde proc~vdtuv VDTUV proc~ltinv->proc~vdtuv proc~trmtol->gstats proc~trmtol->dr_hook gstats_barrier gstats_barrier proc~trmtol->gstats_barrier gstats_barrier2 gstats_barrier2 proc~trmtol->gstats_barrier2 mpl_alltoallv mpl_alltoallv proc~trmtol->mpl_alltoallv 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~cdmap->dr_hook proc~seefmm_mulm seefmm_mulm proc~cdmap->proc~seefmm_mulm proc~leinv->dr_hook interface~gemm GEMM proc~leinv->interface~gemm proc~mult_butm MULT_BUTM proc~leinv->proc~mult_butm proc~prfi1b->proc~abort_trans proc~mult_butm->interface~gemm abor1 abor1 proc~mult_butm->abor1

Called by

proc~~ltinv_ctl~~CalledByGraph proc~ltinv_ctl LTINV_CTL proc~inv_trans_ctl INV_TRANS_CTL proc~inv_trans_ctl->proc~ltinv_ctl proc~inv_trans INV_TRANS proc~inv_trans->proc~inv_trans_ctl proc~inv_trans~2 INV_TRANS proc~inv_trans~2->proc~inv_trans_ctl