MODULE TPM_GEOMETRY USE PARKIND1 ,ONLY : JPIM ,JPRB IMPLICIT NONE SAVE TYPE GEOM_TYPE INTEGER(KIND=JPIM),POINTER :: NLOEN(:) ! NUMBER OF POINTS ON A PARALLEL INTEGER(KIND=JPIM),POINTER :: NMEN(:) ! ASSOCIATED CUT-OFF WAVE NUMBER INTEGER(KIND=JPIM),POINTER :: NDGLU(:) ! NUMBER OF HEMISPERIC LATITUDES ! FOR A GIVEN WAVE NUMBER M LOGICAL :: LREDUCED_GRID LOGICAL :: LINEAR_GRID END TYPE GEOM_TYPE TYPE(GEOM_TYPE),ALLOCATABLE,TARGET :: GEOM_RESOL(:) TYPE(GEOM_TYPE),POINTER :: G !$OMP THREADPRIVATE(g) !$OMP THREADPRIVATE(geom_resol) END MODULE TPM_GEOMETRY