EDIR_TRANS_CTLAD Subroutine

public subroutine EDIR_TRANS_CTLAD(KF_UV_G, KF_SCALARS_G, KF_GP, KF_FS, KF_UV, KF_SCALARS, PSPVOR, PSPDIV, PSPSCALAR, KVSETUV, KVSETSC, PGP, PSPSC3A, PSPSC3B, PSPSC2, KVSETSC3A, KVSETSC3B, KVSETSC2, PGPUV, PGP3A, PGP3B, PGP2, PMEANU, PMEANV)

Uses

  • proc~~edir_trans_ctlad~~UsesGraph proc~edir_trans_ctlad EDIR_TRANS_CTLAD PARKIND1 PARKIND1 proc~edir_trans_ctlad->PARKIND1 YOMHOOK YOMHOOK proc~edir_trans_ctlad->YOMHOOK module~eftdir_ctlad_mod EFTDIR_CTLAD_MOD proc~edir_trans_ctlad->module~eftdir_ctlad_mod module~eltdir_ctlad_mod ELTDIR_CTLAD_MOD proc~edir_trans_ctlad->module~eltdir_ctlad_mod module~field_split_mod FIELD_SPLIT_MOD proc~edir_trans_ctlad->module~field_split_mod module~shuffle_mod SHUFFLE_MOD proc~edir_trans_ctlad->module~shuffle_mod module~tpm_gen TPM_GEN proc~edir_trans_ctlad->module~tpm_gen EC_PARKIND EC_PARKIND module~tpm_gen->EC_PARKIND

*** EDIR_TRANS_CTLAD - Control routine for direct spectral transform-adj.

  • Interface. ---------- CALL EDIR_TRANS_CTLAD(...)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KF_UV_G
integer(kind=JPIM), intent(in) :: KF_SCALARS_G
integer(kind=JPIM), intent(in) :: KF_GP
integer(kind=JPIM), intent(in) :: KF_FS
integer(kind=JPIM), intent(in) :: KF_UV
integer(kind=JPIM), intent(in) :: KF_SCALARS
real(kind=JPRB), intent(inout), optional :: PSPVOR(:,:)
real(kind=JPRB), intent(inout), optional :: PSPDIV(:,:)
real(kind=JPRB), intent(inout), optional :: PSPSCALAR(:,:)
integer(kind=JPIM), intent(in), optional :: KVSETUV(:)
integer(kind=JPIM), intent(in), optional :: KVSETSC(:)
real(kind=JPRB), intent(out), optional :: PGP(:,:,:)
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 :: KVSETSC3A(:)
integer(kind=JPIM), intent(in), optional :: KVSETSC3B(:)
integer(kind=JPIM), intent(in), optional :: KVSETSC2(:)
real(kind=JPRB), intent(out), optional :: PGPUV(:,:,:,:)
real(kind=JPRB), intent(out), optional :: PGP3A(:,:,:,:)
real(kind=JPRB), intent(out), optional :: PGP3B(:,:,:,:)
real(kind=JPRB), intent(out), optional :: PGP2(:,:,:)
real(kind=JPRB), intent(inout), optional :: PMEANU(:)
real(kind=JPRB), intent(inout), optional :: PMEANV(:)

Calls

proc~~edir_trans_ctlad~~CallsGraph proc~edir_trans_ctlad EDIR_TRANS_CTLAD dr_hook dr_hook proc~edir_trans_ctlad->dr_hook proc~eftdir_ctlad EFTDIR_CTLAD proc~edir_trans_ctlad->proc~eftdir_ctlad proc~eltdir_ctlad ELTDIR_CTLAD proc~edir_trans_ctlad->proc~eltdir_ctlad proc~field_split FIELD_SPLIT proc~edir_trans_ctlad->proc~field_split proc~shuffle SHUFFLE proc~edir_trans_ctlad->proc~shuffle proc~eftdir_ctlad->dr_hook gstats gstats proc~eftdir_ctlad->gstats proc~eftdirad EFTDIRAD proc~eftdir_ctlad->proc~eftdirad proc~fourier_outad FOURIER_OUTAD proc~eftdir_ctlad->proc~fourier_outad proc~trltog TRLTOG proc~eftdir_ctlad->proc~trltog proc~eltdir_ctlad->dr_hook foubuf foubuf proc~eltdir_ctlad->foubuf foubuf_in foubuf_in proc~eltdir_ctlad->foubuf_in proc~eltdir_ctlad->gstats proc~eltdirad ELTDIRAD proc~eltdir_ctlad->proc~eltdirad proc~trmtol TRMTOL proc~eltdir_ctlad->proc~trmtol proc~eftdirad->dr_hook proc~exec_fftw EXEC_FFTW proc~eftdirad->proc~exec_fftw proc~eltdirad->dr_hook proc~eledirad ELEDIRAD proc~eltdirad->proc~eledirad proc~eprfi2ad EPRFI2AD proc~eltdirad->proc~eprfi2ad proc~eupdspad EUPDSPAD proc~eltdirad->proc~eupdspad proc~euvtvdad EUVTVDAD proc~eltdirad->proc~euvtvdad proc~fourier_outad->foubuf_in proc~trltog->dr_hook ext_acc_create ext_acc_create proc~trltog->ext_acc_create ext_acc_delete ext_acc_delete proc~trltog->ext_acc_delete ext_acc_pass ext_acc_pass proc~trltog->ext_acc_pass interface~assign_ptr ASSIGN_PTR proc~trltog->interface~assign_ptr mpl_abort mpl_abort proc~trltog->mpl_abort mpl_barrier mpl_barrier proc~trltog->mpl_barrier mpl_wait mpl_wait proc~trltog->mpl_wait proc~abort_trans ABORT_TRANS proc~trltog->proc~abort_trans proc~get_allocation GET_ALLOCATION proc~trltog->proc~get_allocation proc~gstats_nvtx GSTATS_NVTX proc~trltog->proc~gstats_nvtx proc~pe2set PE2SET proc~trltog->proc~pe2set 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 proc~abort_trans->mpl_abort sdl_srlabort sdl_srlabort proc~abort_trans->sdl_srlabort sdl_traceback sdl_traceback proc~abort_trans->sdl_traceback proc~eledirad->dr_hook proc~exec_efftw EXEC_EFFTW proc~eledirad->proc~exec_efftw proc~eprfi2bad EPRFI2BAD proc~eprfi2ad->proc~eprfi2bad proc~eupdspad->dr_hook proc~eupdspbad EUPDSPBAD proc~eupdspad->proc~eupdspbad proc~euvtvdad->dr_hook proc~exec_fftw->dr_hook abor1 abor1 proc~exec_fftw->abor1 dfftw_execute_dft_c2r dfftw_execute_dft_c2r proc~exec_fftw->dfftw_execute_dft_c2r dfftw_execute_dft_r2c dfftw_execute_dft_r2c proc~exec_fftw->dfftw_execute_dft_r2c fftw_alloc_complex fftw_alloc_complex proc~exec_fftw->fftw_alloc_complex fftw_free fftw_free proc~exec_fftw->fftw_free fftwf_alloc_complex fftwf_alloc_complex proc~exec_fftw->fftwf_alloc_complex fftwf_free fftwf_free proc~exec_fftw->fftwf_free proc~create_plan_fftw CREATE_PLAN_FFTW proc~exec_fftw->proc~create_plan_fftw sfftw_execute_dft_c2r sfftw_execute_dft_c2r proc~exec_fftw->sfftw_execute_dft_c2r sfftw_execute_dft_r2c sfftw_execute_dft_r2c proc~exec_fftw->sfftw_execute_dft_r2c proc~get_allocation->proc~abort_trans proc~gstats_nvtx->gstats proc~pe2set->proc~abort_trans 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 proc~eprfi2bad->dr_hook proc~eprfi2bad->foubuf proc~eupdspbad->dr_hook proc~exec_efftw->dr_hook proc~exec_efftw->abor1 proc~exec_efftw->dfftw_execute_dft_c2r proc~exec_efftw->dfftw_execute_dft_r2c proc~exec_efftw->fftw_alloc_complex proc~exec_efftw->fftw_free proc~exec_efftw->fftwf_alloc_complex proc~exec_efftw->fftwf_free proc~exec_efftw->proc~create_plan_fftw proc~exec_efftw->sfftw_execute_dft_c2r proc~exec_efftw->sfftw_execute_dft_r2c

Called by

proc~~edir_trans_ctlad~~CalledByGraph proc~edir_trans_ctlad EDIR_TRANS_CTLAD proc~edir_transad EDIR_TRANSAD proc~edir_transad->proc~edir_trans_ctlad