source: LMDZ5/branches/LMDZ6_rc0/libf/phylmd/rrtm/parkind2.F90 @ 2687

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

Merged trunk changes r1920:1997 into testing branch

  • 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.