source: LMDZ5/trunk/libf/phymar/parkind2.F90 @ 4735

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 386 bytes
RevLine 
[2089]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.