| Line |
Branch |
Exec |
Source |
| 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 |
| 25 |
|
|
|