source: LMDZ6/branches/Optimisation_LMDZ/libf/phymar/parkind2.F90 @ 5006

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

Inclusion de la physique de MAR


Integration of MAR physics

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.