GRTOPH Module

Module for transformation from phase space into physical space


Uses

  • module~~grtoph~~UsesGraph module~grtoph GRTOPH module~phtogr PHTOGR module~grtoph->module~phtogr

Used by

  • module~~grtoph~~UsedByGraph module~grtoph GRTOPH program~calc_etadot calc_etadot program~calc_etadot->module~grtoph

Contents


Subroutines

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

Arguments

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

public subroutine GRPHSUB(L, IND, CXMN, FELD, WSAVE, IFAX, Z, W, MLAT, MNAUF, MAXL, MAXB, MLEVEL)

Carries out the transformation from the phase space into the physical space on spherical coordinates

Arguments

Type IntentOptional AttributesName
integer :: L
integer :: IND(MAXB)
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(MAXB/2,0:((MNAUF+3)*(MNAUF+4))/2)
real :: W(MAXB)
integer :: MLAT(MAXB)
integer :: MNAUF
integer :: MAXL
integer :: MAXB
integer :: MLEVEL

public subroutine LGTR213(CXMN, CXM, Z, W, MLAT, MNAUF, MAXB)

Calculates the KFFKs (Fourier coefficients) CXMN

Arguments

Type IntentOptional AttributesName
real :: CXMN
real :: CXM
real(kind=8) :: Z(MAXB/2,0:((MNAUF+3)*(MNAUF+4))/2)
real(kind=8) :: W(MAXB)
integer :: MLAT(MAXB)
integer :: MNAUF
integer :: MAXB

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

Calculates the Fourier sum with an FFT algorithm

Arguments

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