FTRAFO Module

Implementation of the spectral transformation using reduced the Gaussian grid


Used by

  • module~~ftrafo~~UsedByGraph module~ftrafo FTRAFO program~calc_etadot calc_etadot program~calc_etadot->module~ftrafo

Contents


Subroutines

public subroutine VDTOUV(XMN, XLAM, XPHI, GWSAVE, IFAX, P, MLAT, MNAUF, NI, NJ, NK)

Berechnung der scale winds aus Vorticity und Divergenz uebergibt man in XMN die Divergenz, so wird der divergente Anteil des Windes (XPHI=Ud,XPHI=Vd) zurueckgegeben, uebergibt man die Vorticity, so erhaelt man den rotationellen Wind (XLAM=Vrot,XPHI=-Urot). Summiert man beide, erhaelt man den gesamten Scale wind

Arguments

Type IntentOptional AttributesName
real :: XMN(0:(MNAUF+1)*(MNAUF+2)-1,NK)
real :: XLAM(NI,NK)
real :: XPHI(NI,NK)
real :: GWSAVE(8*NJ+15,NJ/2)
integer :: IFAX(10,NJ)
real :: P(0:(MNAUF+3)*(MNAUF+4)/2,NJ/2)
integer :: MLAT(NJ)
integer :: MNAUF
integer :: NI
integer :: NJ
integer :: NK

public subroutine VDUVSUB(J, XMN, XLAM, XPHI, GWSAVE, IFAX, P, GGIND, MLAT, MNAUF, NI, NJ, NK)

Arguments

Type IntentOptional AttributesName
integer :: J
real :: XMN(0:(MNAUF+1)*(MNAUF+2)-1,NK)
real :: XLAM(NI,NK)
real :: XPHI(NI,NK)
real :: GWSAVE(8*NJ+15,NJ/2)
integer :: IFAX(10,NJ)
real :: P(0:(MNAUF+3)*(MNAUF+4)/2,NJ/2)
integer :: GGIND
integer :: MLAT(NJ)
integer :: MNAUF
integer :: NI
integer :: NJ
integer :: NK

public subroutine PHGRAD(XMN, XLAM, XPHI, GWSAVE, IFAX, P, H, MLAT, MNAUF, NI, NJ, NK)

Berechnung des Gradienten eines Skalars aus dem Feld des Skalars XMN im Phasenraum. Zurueckgegeben werden die Felder der Komponenten des horizontalen Gradienten XLAM,XPHI auf dem Gauss'schen Gitter.

Arguments

Type IntentOptional AttributesName
real :: XMN(0:(MNAUF+1)*(MNAUF+2)-1,NK)
real :: XLAM(NI,NK)
real :: XPHI(NI,NK)
real :: GWSAVE(8*NJ+15,NJ/2)
integer :: IFAX(10,NJ)
real :: P(0:(MNAUF+3)*(MNAUF+4)/2,NJ/2)
real :: H(0:(MNAUF+2)*(MNAUF+3)/2)
integer :: MLAT(NJ)
integer :: MNAUF
integer :: NI
integer :: NJ
integer :: NK

public subroutine PHGRACUT(XMN, XLAM, XPHI, GWSAVE, IFAX, P, H, MAUF, MNAUF, NI, NJ, MANF, NK)

Berechnung des Gradienten eines Skalars aus dem Feld des Skalars XMN im Phasenraum. Zurueckgegeben werden die Felder der Komponenten des horizontalen Gradienten XLAM,XPHI auf dem Gauss'schen Gitter.

Arguments

Type IntentOptional AttributesName
real :: XMN(0:(MNAUF+1)*(MNAUF+2)-1,NK)
real :: XLAM(NI,NJ,NK)
real :: XPHI(NI,NJ,NK)
real :: GWSAVE(4*MAUF+15)
integer :: IFAX(10)
real :: P(0:(MNAUF+3)*(MNAUF+4)/2,NJ)
real :: H(0:(MNAUF+2)*(MNAUF+3)/2)
integer :: MAUF
integer :: MNAUF
integer :: NI
integer :: NJ
integer :: MANF
integer :: NK

public subroutine CONTGL(PS, DPSDL, DPSDM, DIV, U, V, BREITE, ETA, MLAT, A, B, NI, NJ, NK)

Berechnung der Divergenz aus dem Windfeld (U,V) im Phasenraum. Zurueckgegeben werden die Felder der Komponenten des horizontalen Gradienten XLAM,XPHI auf dem Gauss'schen Gitter.

Arguments

Type IntentOptional AttributesName
real :: PS(NI)
real :: DPSDL(NI)
real :: DPSDM(NI)
real :: DIV(NI,NK)
real :: U(NI,NK)
real :: V(NI,NK)
real :: BREITE(NJ)
real :: ETA(NI,NK)
integer :: MLAT(NJ)
real :: A(NK+1)
real :: B(NK+1)
integer :: NI
integer :: NJ
integer :: NK

public subroutine OMEGA(PS, DPSDL, DPSDM, DIV, U, V, BREITE, E, MLAT, A, B, NGI, NGJ, MKK)

calculates $\omega$ in the hybrid ($\eta$-) coordinate system

Arguments

Type IntentOptional AttributesName
real :: PS(NGI)
real :: DPSDL(NGI)
real :: DPSDM(NGI)
real :: DIV(NGI,MKK)
real :: U(NGI,MKK)
real :: V(NGI,MKK)
real :: BREITE(NGJ)
real :: E(NGI,MKK)
integer :: MLAT(NGJ)
real :: A(MKK+1)
real :: B(MKK+1)
integer :: NGI
integer :: NGJ
integer :: MKK