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