MODULE TPMALD_FIELDS

USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

TYPE ALDFIELDS_TYPE

REAL(KIND=JPRB) ,POINTER :: RLEPINM(:) ! eigen-values of the inverse Laplace operator
END TYPE ALDFIELDS_TYPE

TYPE(ALDFIELDS_TYPE),ALLOCATABLE,TARGET :: ALDFIELDS_RESOL(:)
TYPE(ALDFIELDS_TYPE),POINTER     :: FALD

REAL(KIND=JPRB) ,ALLOCATABLE :: FALD_RLEPINM(:)

END MODULE TPMALD_FIELDS
