source: LMDZ6/trunk/libf/phylmd/rrtm/parkind1.F90 @ 3981

Last change on this file since 3981 was 1990, checked in by Laurent Fairhead, 10 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: 851 bytes
Line 
1MODULE PARKIND1
2!
3!     *** Define usual kinds for strong typing ***
4!
5IMPLICIT NONE
6SAVE
7!
8!     Integer Kinds
9!     -------------
10!
11INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
12INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
13INTEGER, PARAMETER :: JPIM = SELECTED_INT_KIND(9)
14INTEGER, PARAMETER :: JPIB = SELECTED_INT_KIND(12)
15
16!Special integer type to be used for sensative adress calculations
17!should be *8 for a machine with 8byte adressing for optimum performance
18#ifdef ADDRESS64
19INTEGER, PARAMETER :: JPIA = JPIB
20#else
21INTEGER, PARAMETER :: JPIA = JPIM
22#endif
23
24!
25!     Real Kinds
26!     ----------
27!
28INTEGER, PARAMETER :: JPRT = SELECTED_REAL_KIND(2,1)
29INTEGER, PARAMETER :: JPRS = SELECTED_REAL_KIND(4,2)
30INTEGER, PARAMETER :: JPRM = SELECTED_REAL_KIND(6,37)
31INTEGER, PARAMETER :: JPRB = SELECTED_REAL_KIND(13,300)
32!
33END MODULE PARKIND1
Note: See TracBrowser for help on using the repository browser.