UVTVD Subroutine

public subroutine UVTVD(KF_UV, PU, PV, PVOR, PDIV)

Uses

  • proc~~uvtvd~~UsesGraph proc~uvtvd UVTVD module~parkind_ectrans PARKIND_ECTRANS proc~uvtvd->module~parkind_ectrans module~tpm_dim TPM_DIM proc~uvtvd->module~tpm_dim module~tpm_distr TPM_DISTR proc~uvtvd->module~tpm_distr module~tpm_fields_gpu TPM_FIELDS_GPU proc~uvtvd->module~tpm_fields_gpu PARKIND1 PARKIND1 module~parkind_ectrans->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_fields_gpu->EC_PARKIND

*** UVTVD - Compute vor/div from u and v in spectral space

  • Interface. ---------- CALL UVTVD(KM,KF_UV,PEPSNM,PU,PV,PVOR,PDIV)

    1. COMPUTE U V FROM VORTICITY AND DIVERGENCE. ------------------------------------------ 1.1 SET N=KM-1 COMPONENT TO 0 FOR U AND V 1.2 COMPUTE VORTICITY AND DIVERGENCE.

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KF_UV
real(kind=JPRBT), intent(inout) :: PU(:,:,:)
real(kind=JPRBT), intent(inout) :: PV(:,:,:)
real(kind=JPRBT), intent(out) :: PVOR(:,:,:)
real(kind=JPRBT), intent(out) :: PDIV(:,:,:)

Called by

proc~~uvtvd~~CalledByGraph proc~uvtvd UVTVD proc~ltdir LTDIR proc~ltdir->proc~uvtvd proc~ltdir~2 LTDIR proc~ltdir~2->proc~uvtvd proc~dir_trans_ctl DIR_TRANS_CTL proc~dir_trans_ctl->proc~ltdir proc~ltdir_ctl LTDIR_CTL proc~ltdir_ctl->proc~ltdir proc~dir_trans DIR_TRANS proc~dir_trans->proc~dir_trans_ctl proc~dir_trans_ctl~2 DIR_TRANS_CTL proc~dir_trans_ctl~2->proc~ltdir_ctl proc~dir_trans~2 DIR_TRANS proc~dir_trans~2->proc~dir_trans_ctl