source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/tpm_geometry.F90 @ 3847

Last change on this file since 3847 was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP


OpenMP modifications

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 608 bytes
Line 
1MODULE TPM_GEOMETRY
2USE PARKIND1  ,ONLY : JPIM     ,JPRB
3
4IMPLICIT NONE
5
6SAVE
7
8TYPE GEOM_TYPE
9INTEGER(KIND=JPIM),POINTER :: NLOEN(:) ! NUMBER OF POINTS ON A PARALLEL
10INTEGER(KIND=JPIM),POINTER :: NMEN(:)  ! ASSOCIATED CUT-OFF WAVE NUMBER
11INTEGER(KIND=JPIM),POINTER :: NDGLU(:) ! NUMBER OF HEMISPERIC LATITUDES
12!                                   FOR A GIVEN WAVE NUMBER M
13
14LOGICAL :: LREDUCED_GRID
15LOGICAL :: LINEAR_GRID
16END TYPE GEOM_TYPE
17
18TYPE(GEOM_TYPE),ALLOCATABLE,TARGET :: GEOM_RESOL(:)
19TYPE(GEOM_TYPE),POINTER     :: G
20
21!$OMP THREADPRIVATE(g)
22!$OMP THREADPRIVATE(geom_resol)
23
24END MODULE TPM_GEOMETRY
Note: See TracBrowser for help on using the repository browser.