UVTVD Subroutine

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

Uses

  • proc~~uvtvd~2~~UsesGraph proc~uvtvd~2 UVTVD PARKIND1 PARKIND1 proc~uvtvd~2->PARKIND1 module~tpm_dim TPM_DIM proc~uvtvd~2->module~tpm_dim module~tpm_fields~2 TPM_FIELDS proc~uvtvd~2->module~tpm_fields~2 module~tpm_dim->PARKIND1 iso_c_binding iso_c_binding module~tpm_fields~2->iso_c_binding module~parkind_ectrans PARKIND_ECTRANS module~tpm_fields~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1

*** 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(:,:)