source: LMDZ5/trunk/libf/phylmd/rrtm/tpm_geometry.F90 @ 1990

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

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • 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: 552 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
21END MODULE TPM_GEOMETRY
Note: See TracBrowser for help on using the repository browser.