Last change
on this file since 3992 was
3331,
checked in by acozic, 6 years ago
|
Add modification for isotopes
|
-
Property svn:executable set to
*
|
File size:
608 bytes
|
Line | |
---|
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 |
---|
Note: See
TracBrowser
for help on using the repository browser.