PHTOGR Module


Used by

  • module~~phtogr~~UsedByGraph module~phtogr PHTOGR proc~vduvsub VDUVSUB proc~vduvsub->module~phtogr program~calc_etadot calc_etadot program~calc_etadot->module~phtogr module~grtoph GRTOPH program~calc_etadot->module~grtoph proc~phgrad PHGRAD proc~phgrad->module~phtogr module~grtoph->module~phtogr proc~vdtouv VDTOUV proc~vdtouv->module~phtogr proc~phgracut PHGRACUT proc~phgracut->module~phtogr

Contents


Variables

TypeVisibility AttributesNameInitial
integer, public, parameter:: MAXAUF =36000

Subroutines

public subroutine PHGR213(CXMN, FELD, WSAVE, IFAX, Z, MLAT, MNAUF, MAXL, MAXB, MLEVEL)

DIE ROUTINE F]HRT EINE TRANSFORMATION EINER FELDVARIABLEN VOM PHASENRAUM IN DEN PHYSIKALISCHEN RAUM AUF DAS REDUZIERTE GAUSS'SCHE GITTER DURCH

Arguments

Type IntentOptional AttributesName
real :: CXMN(0:(MNAUF+1)*(MNAUF+2)-1,MLEVEL)
real :: FELD(MAXL,MLEVEL)
real :: WSAVE(8*MAXB+15,MAXB/2)
integer :: IFAX(10,MAXB)
real :: Z(0:((MNAUF+3)*(MNAUF+4))/2,MAXB/2)
integer :: MLAT(MAXB/2)
integer :: MNAUF
integer :: MAXL
integer :: MAXB
integer :: MLEVEL

public subroutine PHSYM(K, IND, CXMN, FELD, Z, WSAVE, IFAX, MLAT, MNAUF, MAXL, MAXB, MLEVEL)

Arguments

Type IntentOptional AttributesName
integer :: K
integer :: IND(MAXB)
real :: CXMN(0:(MNAUF+1)*(MNAUF+2)-1,MLEVEL)
real :: FELD(MAXL,MLEVEL)
real :: Z(0:((MNAUF+3)*(MNAUF+4))/2,MAXB/2)
real :: WSAVE(8*MAXB+15,MAXB/2)
integer :: IFAX(10,MAXB)
integer :: MLAT(MAXB/2)
integer :: MNAUF
integer :: MAXL
integer :: MAXB
integer :: MLEVEL

public subroutine PHGCUT(CXMN, FELD, WSAVE, IFAX, Z, MNAUF, MMAX, MAUF, MANF, MAXL, MAXB, MLEVEL)

DIE ROUTINE FUEHRT EINE TRANSFORMATION EINER FELDVARIABLEN VOM PHASENRAUM IN DEN PHYSIKALISCHEN RAUM AUF KUGELKOORDINATEN DURCH. Es kann ein Teilausschnitt Der Erde angegeben werden. Diese Routine ist langsamer als phgrph

Read more…

Arguments

Type IntentOptional AttributesName
real :: CXMN
real :: FELD(MAXL,MAXB,MLEVEL)
real :: WSAVE
integer :: IFAX(10)
real :: Z(0:((MMAX+3)*(MMAX+4))/2,MAXB)
integer :: MNAUF
integer :: MMAX
integer :: MAUF
integer :: MANF
integer :: MAXL
integer :: MAXB
integer :: MLEVEL

public subroutine PHSYMCUT(J, CXMN, FELD, Z, WSAVE, IFAX, MAUF, MNAUF, MAXL, MAXB, MLEVEL, MANF)

Arguments

Type IntentOptional AttributesName
integer :: J
real :: CXMN
real :: FELD(MAXL,MAXB,MLEVEL)
real :: Z(0:((MNAUF+3)*(MNAUF+4))/2,MAXB)
real :: WSAVE
integer :: IFAX(10)
integer :: MAUF
integer :: MNAUF
integer :: MAXL
integer :: MAXB
integer :: MLEVEL
integer :: MANF

public subroutine PHGPNS(CXMN, FELD, Z, WSAVE, IFAX, J, MNAUF, MAUF, MANF, MAXL, MAXB, MLEVEL)

Arguments

Type IntentOptional AttributesName
real, intent(in) :: CXMN(0:(MNAUF+1)*(MNAUF+2)-1,MLEVEL)
real :: FELD(MAXL,MAXB,MLEVEL)
real, intent(in) :: Z(0:((MNAUF+3)*(MNAUF+4))/2,MAXB)
real, intent(in) :: WSAVE(4*MAUF+15)
integer :: IFAX(10)
integer, intent(in) :: J
integer, intent(in) :: MNAUF
integer, intent(in) :: MAUF
integer, intent(in) :: MANF
integer, intent(in) :: MAXL
integer, intent(in) :: MAXB
integer, intent(in) :: MLEVEL

public subroutine LEGTR(CXMN, CXM, Z, MNAUF, MAUF)

DIESE ROUTINE BERECHNET DIE FOURIERKOEFFIZIENTEN CXM

Arguments

Type IntentOptional AttributesName
real :: CXMN(0:(MNAUF+1)*(MNAUF+2)-1)
real :: CXM(0:MAXAUF-1)
real :: Z(0:((MNAUF+3)*(MNAUF+4))/2)
integer :: MNAUF
integer :: MAUF

public subroutine RFOURTR(CXM, TRIGS, IFAX, MNAUF, MAXL, ISIGN)

Read more…

Arguments

Type IntentOptional AttributesName
real :: CXM
real :: TRIGS(2*MAXL)
integer :: IFAX(10)
integer :: MNAUF
integer :: MAXL
integer :: ISIGN

public subroutine GAULEG(X1, X2, X, W, N)

BERECHNET DIE GAUSS+SCHEN BREITEN

Arguments

Type IntentOptional AttributesName
real :: X1
real :: X2
real :: X
real :: W
integer :: N

public subroutine PLGNFA(LL, X, Z)

PLGNDN BERECHNET ALLE NORMIERTEN ASSOZIIERTEN LEGENDREFUNKTIONEN VON P00(X) BIS PLL(X) UND SCHREIBT SIE IN DAS FELD Z

Arguments

Type IntentOptional AttributesName
integer :: LL
real :: X
real :: Z

public subroutine DPLGND(MNAUF, Z, DZ)

DPLGND BERECHNET DIE ABLEITUNG DER NORMIERTEN ASSOZIIERTEN LEGENDREFUNKTIONEN VON P00(X) BIS PLL(X) UND SCHREIBT SIE IN DAS FELD DZ

Arguments

Type IntentOptional AttributesName
integer :: MNAUF
real :: Z
real :: DZ

public subroutine SPFILTER(FELDMN, MM, MMAX)

Spectral Filter of Sardeshmukh and Hoskins (1984, MWR)

Arguments

Type IntentOptional AttributesName
real :: FELDMN(0:(MM+1)*(MM+2)-1)
integer :: MM
integer :: MMAX