source: LMDZ6/trunk/libf/phylmd/rrtm/parkind2.F90 @ 5134

Last change on this file since 5134 was 1990, checked in by Laurent Fairhead, 12 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: 385 bytes
Line 
1MODULE PARKIND2
2!
3!     *** Define huge kinds for strong typing ***
4!
5IMPLICIT NONE
6SAVE
7!
8!     Integer Kinds
9!     -------------
10!
11INTEGER, PARAMETER :: JPIH = SELECTED_INT_KIND(18)
12!
13!     Real Kinds
14!     ----------
15!
16#ifdef REALHUGE
17INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(31,291)
18#else
19INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(13,300)
20#endif
21!
22END MODULE PARKIND2
Note: See TracBrowser for help on using the repository browser.