UVTVD Subroutine

public subroutine UVTVD(KM, KFIELD, PEPSNM, PU, PV, PVOR, PDIV)

Uses

  • proc~~uvtvd~~UsesGraph proc~uvtvd UVTVD PARKIND1 PARKIND1 proc~uvtvd->PARKIND1 module~tpm_dim TPM_DIM proc~uvtvd->module~tpm_dim module~tpm_fields TPM_FIELDS proc~uvtvd->module~tpm_fields EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_fields->EC_PARKIND

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

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

    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) :: KM
integer(kind=JPIM), intent(in) :: KFIELD
real(kind=JPRB), intent(in) :: PEPSNM(0:R%NTMAX+2)
real(kind=JPRB), intent(inout) :: PU(:,:)
real(kind=JPRB), intent(inout) :: PV(:,:)
real(kind=JPRB), intent(out) :: PVOR(:,:)
real(kind=JPRB), 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~2 DIR_TRANS_CTL proc~dir_trans_ctl~2->proc~ltdir proc~ltdir_ctl LTDIR_CTL proc~ltdir_ctl->proc~ltdir proc~dir_trans_ctl DIR_TRANS_CTL proc~dir_trans_ctl->proc~ltdir_ctl proc~dir_trans DIR_TRANS proc~dir_trans->proc~dir_trans_ctl proc~dir_trans~2 DIR_TRANS proc~dir_trans~2->proc~dir_trans_ctl