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~2 TPM_TRANS proc~eltinv_ctl->module~tpm_trans~2 module~trmtol_mod TRMTOL_MOD proc~eltinv_ctl->module~trmtol_mod EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_gen->EC_PARKIND module~growing_allocator_mod GROWING_ALLOCATOR_MOD module~tpm_trans~2->module~growing_allocator_mod module~parkind_ectrans PARKIND_ECTRANS module~tpm_trans~2->module~parkind_ectrans iso_c_binding iso_c_binding module~growing_allocator_mod->iso_c_binding module~parkind_ectrans->PARKIND1

*** 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 foubuf foubuf proc~eltinv_ctl->foubuf foubuf_in foubuf_in proc~eltinv_ctl->foubuf_in 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 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~fspgl_int FSPGL_INT proc~eltinv->proc~fspgl_int 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~easre1b->foubuf_in proc~eleinv->dr_hook proc~exec_efftw EXEC_EFFTW proc~eleinv->proc~exec_efftw proc~eprfi1b->dr_hook proc~espnsde->dr_hook proc~evdtuv->dr_hook proc~fspgl_int->foubuf_in proc~exec_efftw->dr_hook abor1 abor1 proc~exec_efftw->abor1 dfftw_execute_dft_c2r dfftw_execute_dft_c2r proc~exec_efftw->dfftw_execute_dft_c2r dfftw_execute_dft_r2c dfftw_execute_dft_r2c proc~exec_efftw->dfftw_execute_dft_r2c fftw_alloc_complex fftw_alloc_complex proc~exec_efftw->fftw_alloc_complex fftw_free fftw_free proc~exec_efftw->fftw_free fftwf_alloc_complex fftwf_alloc_complex proc~exec_efftw->fftwf_alloc_complex fftwf_free fftwf_free proc~exec_efftw->fftwf_free proc~create_plan_fftw CREATE_PLAN_FFTW proc~exec_efftw->proc~create_plan_fftw sfftw_execute_dft_c2r sfftw_execute_dft_c2r proc~exec_efftw->sfftw_execute_dft_c2r sfftw_execute_dft_r2c sfftw_execute_dft_r2c proc~exec_efftw->sfftw_execute_dft_r2c proc~create_plan_fftw->dr_hook proc~create_plan_fftw->abor1 proc~create_plan_fftw->fftw_alloc_complex proc~create_plan_fftw->fftw_free proc~create_plan_fftw->fftwf_alloc_complex proc~create_plan_fftw->fftwf_free dfftw_destroy_plan dfftw_destroy_plan proc~create_plan_fftw->dfftw_destroy_plan dfftw_plan_many_dft_c2r dfftw_plan_many_dft_c2r proc~create_plan_fftw->dfftw_plan_many_dft_c2r dfftw_plan_many_dft_r2c dfftw_plan_many_dft_r2c proc~create_plan_fftw->dfftw_plan_many_dft_r2c sfftw_destroy_plan sfftw_destroy_plan proc~create_plan_fftw->sfftw_destroy_plan sfftw_plan_many_dft_c2r sfftw_plan_many_dft_c2r proc~create_plan_fftw->sfftw_plan_many_dft_c2r sfftw_plan_many_dft_r2c sfftw_plan_many_dft_r2c proc~create_plan_fftw->sfftw_plan_many_dft_r2c

Called by

proc~~eltinv_ctl~~CalledByGraph proc~eltinv_ctl ELTINV_CTL proc~einv_trans_ctl EINV_TRANS_CTL proc~einv_trans_ctl->proc~eltinv_ctl proc~einv_trans EINV_TRANS proc~einv_trans->proc~einv_trans_ctl