1 |
|
|
MODULE TPM_GEOMETRY |
2 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
3 |
|
|
|
4 |
|
|
IMPLICIT NONE |
5 |
|
|
|
6 |
|
|
SAVE |
7 |
|
|
|
8 |
|
|
TYPE GEOM_TYPE |
9 |
|
|
INTEGER(KIND=JPIM),POINTER :: NLOEN(:) ! NUMBER OF POINTS ON A PARALLEL |
10 |
|
|
INTEGER(KIND=JPIM),POINTER :: NMEN(:) ! ASSOCIATED CUT-OFF WAVE NUMBER |
11 |
|
|
INTEGER(KIND=JPIM),POINTER :: NDGLU(:) ! NUMBER OF HEMISPERIC LATITUDES |
12 |
|
|
! FOR A GIVEN WAVE NUMBER M |
13 |
|
|
|
14 |
|
|
LOGICAL :: LREDUCED_GRID |
15 |
|
|
LOGICAL :: LINEAR_GRID |
16 |
|
|
END TYPE GEOM_TYPE |
17 |
|
|
|
18 |
|
|
TYPE(GEOM_TYPE),ALLOCATABLE,TARGET :: GEOM_RESOL(:) |
19 |
|
|
TYPE(GEOM_TYPE),POINTER :: G |
20 |
|
|
|
21 |
|
|
!$OMP THREADPRIVATE(g) |
22 |
|
|
!$OMP THREADPRIVATE(geom_resol) |
23 |
|
|
|
24 |
|
|
END MODULE TPM_GEOMETRY |