tpm_fields.F90

Go to the documentation of this file.

MODULE tpm_fields

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

TYPE fields_type
REAL(KIND=JPRB) ,POINTER :: rpnm(:,:) ! Legendre polynomials
REAL(KIND=JPRB) ,POINTER :: rmu(:)    ! sin(theta) for Gaussian latitudes
REAL(KIND=JPRB) ,POINTER :: rw(:)     ! Weights of the Gaussian quadrature
REAL(KIND=JPRB) ,POINTER :: r1mu2(:)  ! 1.-MU*MU, cos(theta)**2
REAL(KIND=JPRB) ,POINTER :: racthe(:) ! 1./SQRT(R1MU2), 1/(cos(theta))

REAL(KIND=JPRB) ,POINTER :: repsnm(:) ! eps(n,m) used in the Legendre transforms
REAL(KIND=JPRB) ,POINTER :: rn(:)     ! n (to avoid integer to real conversion)
REAL(KIND=JPRB) ,POINTER :: rlapin(:) ! eigen-values of the inverse Laplace operator
INTEGER(KIND=JPIM) ,POINTER :: nltn(:) ! R%NTMAX+2-JN
END TYPE fields_type

TYPE(fields_type),ALLOCATABLE,TARGET :: fields_resol(:)
TYPE(fields_type),POINTER     :: f

END MODULE tpm_fields