ELTDIR Subroutine

public subroutine ELTDIR(ALLOCATOR, HELTDIR, KF_FS, KF_UV, KF_SCALARS, FOUBUF, PSPVOR, PSPDIV, PSPSCALAR, PSPSC3A, PSPSC3B, PSPSC2, KFLDPTRUV, KFLDPTRSC, PSPMEANU, PSPMEANV)

Uses

  • proc~~eltdir~~UsesGraph proc~eltdir ELTDIR PARKIND1 PARKIND1 proc~eltdir->PARKIND1 YOMHOOK YOMHOOK proc~eltdir->YOMHOOK iso_c_binding iso_c_binding proc~eltdir->iso_c_binding module~eledir_mod~2 ELEDIR_MOD proc~eltdir->module~eledir_mod~2 module~eprfi2b_mod EPRFI2B_MOD proc~eltdir->module~eprfi2b_mod module~eupdsp_mod EUPDSP_MOD proc~eltdir->module~eupdsp_mod module~euvtvd_comm_mod EUVTVD_COMM_MOD proc~eltdir->module~euvtvd_comm_mod module~euvtvd_mod~2 EUVTVD_MOD proc~eltdir->module~euvtvd_mod~2 module~extper_mod~2 EXTPER_MOD proc~eltdir->module~extper_mod~2 module~tpm_dim TPM_DIM proc~eltdir->module~tpm_dim module~tpm_distr TPM_DISTR proc~eltdir->module~tpm_distr module~tpmald_dim TPMALD_DIM proc~eltdir->module~tpmald_dim EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_distr->EC_PARKIND module~tpmald_dim->EC_PARKIND

*** ELTDIR - Control of Direct Legendre transform step

  • Interface. ---------- CALL ELTDIR(...)

    1. PREPARE WORK ARRAYS. --------------------

    2. PERIODICIZATION IN Y DIRECTION ------------------------------

    3. DIRECT LEGENDRE TRANSFORM. --------------------------

    4. COMPUTE VORTICITY AND DIVERGENCE AND STORE MEAN WIND ON TASK OWNING WAVE 0 --------------------------------------------------------------------------

    5. UPDATE SPECTRAL ARRAYS. -----------------------

Arguments

Type IntentOptional Attributes Name
type(BUFFERED_ALLOCATOR), intent(in) :: ALLOCATOR
type(ELTDIR_HANDLE), intent(in) :: HELTDIR
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(in) :: FOUBUF(:)
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(kind=JPRB), intent(out), optional :: PSPMEANU(:)
real(kind=JPRB), intent(out), optional :: PSPMEANV(:)

Calls

proc~~eltdir~~CallsGraph proc~eltdir ELTDIR dr_hook dr_hook proc~eltdir->dr_hook interface~assign_ptr ASSIGN_PTR proc~eltdir->interface~assign_ptr proc~eledir ELEDIR proc~eltdir->proc~eledir proc~eprfi2b EPRFI2B proc~eltdir->proc~eprfi2b proc~eupdsp EUPDSP proc~eltdir->proc~eupdsp proc~euvtvd EUVTVD proc~eltdir->proc~euvtvd proc~euvtvd_comm EUVTVD_COMM proc~eltdir->proc~euvtvd_comm proc~get_allocation GET_ALLOCATION proc~eltdir->proc~get_allocation proc~eledir->dr_hook interface~execute_dir_fft EXECUTE_DIR_FFT proc~eledir->interface~execute_dir_fft proc~eprfi2b->dr_hook proc~eupdsp->dr_hook proc~eupdspb EUPDSPB proc~eupdsp->proc~eupdspb proc~euvtvd->dr_hook proc~euvtvd_comm->dr_hook mpl_recv mpl_recv proc~euvtvd_comm->mpl_recv mpl_send mpl_send proc~euvtvd_comm->mpl_send mpl_wait mpl_wait proc~euvtvd_comm->mpl_wait proc~abort_trans ABORT_TRANS proc~euvtvd_comm->proc~abort_trans proc~set2pe SET2PE proc~euvtvd_comm->proc~set2pe proc~get_allocation->proc~abort_trans 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~eupdspb->dr_hook proc~set2pe->proc~abort_trans abor1 abor1 proc~set2pe->abor1

Called by

proc~~eltdir~~CalledByGraph proc~eltdir ELTDIR proc~edir_trans_ctl EDIR_TRANS_CTL proc~edir_trans_ctl->proc~eltdir proc~eltdir_ctl ELTDIR_CTL proc~eltdir_ctl->proc~eltdir proc~edir_trans EDIR_TRANS proc~edir_trans->proc~edir_trans_ctl proc~edir_trans_ctl~2 EDIR_TRANS_CTL proc~edir_trans_ctl~2->proc~eltdir_ctl proc~edir_trans~2 EDIR_TRANS proc~edir_trans~2->proc~edir_trans_ctl