ELTINV_CTL Subroutine

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

Uses

  • proc~~eltinv_ctl~~UsesGraph proc~eltinv_ctl ELTINV_CTL PARKIND1 PARKIND1 proc~eltinv_ctl->PARKIND1 YOMHOOK YOMHOOK proc~eltinv_ctl->YOMHOOK module~eltinv_mod ELTINV_MOD proc~eltinv_ctl->module~eltinv_mod module~tpm_distr TPM_DISTR proc~eltinv_ctl->module~tpm_distr module~tpm_gen TPM_GEN proc~eltinv_ctl->module~tpm_gen module~tpm_trans TPM_TRANS proc~eltinv_ctl->module~tpm_trans module~trmtol_mod TRMTOL_MOD proc~eltinv_ctl->module~trmtol_mod module~buffered_allocator_mod BUFFERED_ALLOCATOR_MOD module~eltinv_mod->module~buffered_allocator_mod EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_gen->EC_PARKIND module~tpm_trans->PARKIND1 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

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

  • Interface. ---------- CALL EINV_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(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(kind=JPRB), intent(in), optional :: PSPMEANU(:)
real(kind=JPRB), intent(in), optional :: PSPMEANV(:)
real :: FSPGL_PROC

Calls

proc~~eltinv_ctl~~CallsGraph proc~eltinv_ctl ELTINV_CTL dr_hook dr_hook proc~eltinv_ctl->dr_hook gstats gstats proc~eltinv_ctl->gstats proc~eltinv ELTINV proc~eltinv_ctl->proc~eltinv proc~trmtol TRMTOL proc~eltinv_ctl->proc~trmtol proc~eltinv->dr_hook interface~assign_ptr ASSIGN_PTR proc~eltinv->interface~assign_ptr proc~abort_trans ABORT_TRANS proc~eltinv->proc~abort_trans proc~easre1b EASRE1B proc~eltinv->proc~easre1b proc~eleinv ELEINV proc~eltinv->proc~eleinv proc~eprfi1b EPRFI1B proc~eltinv->proc~eprfi1b proc~espnsde ESPNSDE proc~eltinv->proc~espnsde proc~evdtuv EVDTUV proc~eltinv->proc~evdtuv proc~get_allocation GET_ALLOCATION proc~eltinv->proc~get_allocation proc~trmtol->dr_hook proc~trmtol->gstats 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~easre1b->dr_hook proc~eleinv->dr_hook interface~execute_inv_fft EXECUTE_INV_FFT proc~eleinv->interface~execute_inv_fft proc~eprfi1b->dr_hook proc~espnsde->dr_hook proc~evdtuv->dr_hook proc~get_allocation->proc~abort_trans

Called by

proc~~eltinv_ctl~~CalledByGraph proc~eltinv_ctl ELTINV_CTL proc~einv_trans_ctl~2 EINV_TRANS_CTL proc~einv_trans_ctl~2->proc~eltinv_ctl