source: LMDZ5/branches/testing/libf/phymar/parkind2.F90 @ 2275

Last change on this file since 2275 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

File size: 386 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(28,2400)
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.