EDIR_TRANSAD Subroutine

subroutine EDIR_TRANSAD(PSPVOR, PSPDIV, PSPSCALAR, PSPSC3A, PSPSC3B, PSPSC2, KPROMA, KVSETUV, KVSETSC, KRESOL, KVSETSC3A, KVSETSC3B, KVSETSC2, PGP, PGPUV, PGP3A, PGP3B, PGP2, PMEANU, PMEANV)

Uses

  • proc~~edir_transad~~UsesGraph proc~edir_transad EDIR_TRANSAD PARKIND1 PARKIND1 proc~edir_transad->PARKIND1 YOMHOOK YOMHOOK proc~edir_transad->YOMHOOK module~abort_trans_mod ABORT_TRANS_MOD proc~edir_transad->module~abort_trans_mod module~eset_resol_mod~2 ESET_RESOL_MOD proc~edir_transad->module~eset_resol_mod~2 module~tpm_distr TPM_DISTR proc~edir_transad->module~tpm_distr module~tpm_gen TPM_GEN proc~edir_transad->module~tpm_gen module~tpm_trans TPM_TRANS proc~edir_transad->module~tpm_trans EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_gen->EC_PARKIND module~tpm_trans->PARKIND1

*** EDIR_TRANSAD - Direct spectral transform - adjoint.

  • Interface. ---------- CALL EDIR_TRANSAD(...)

Arguments

Type IntentOptional Attributes Name
real(kind=JPRB), intent(inout), optional :: PSPVOR(:,:)
real(kind=JPRB), intent(inout), optional :: PSPDIV(:,:)
real(kind=JPRB), intent(inout), optional :: PSPSCALAR(:,:)
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 :: KPROMA
integer(kind=JPIM), intent(in), optional :: KVSETUV(:)
integer(kind=JPIM), intent(in), optional :: KVSETSC(:)
integer(kind=JPIM), intent(in), optional :: KRESOL
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 :: PGP(:,:,:)
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_transad~~CallsGraph proc~edir_transad EDIR_TRANSAD dr_hook dr_hook proc~edir_transad->dr_hook proc~abort_trans ABORT_TRANS proc~edir_transad->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