tpm_geometry.F90

Go to the documentation of this file.

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