source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/parkind1.F90 @ 4249

Last change on this file since 4249 was 3331, checked in by acozic, 7 years ago

Add modification for isotopes

  • Property svn:executable set to *
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.