source: CPL/oasis3/trunk/src/lib/psmile/src/mod_kinds_model.F90 @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 964 bytes
Line 
1!-------------------------------------------------------------------
2! BOP
3!
4! !MODULE: mod_kinds_model
5MODULE mod_kinds_model
6!
7! !USES:
8!
9! !PUBLIC TYPES:
10IMPLICIT NONE
11SAVE
12!
13! !PUBLIC MEMBER FUNCTIONS:
14!
15! !PUBLIC DATA MEMBERS:
16!
17! !PARAMETERS:
18  INTEGER, PARAMETER :: ip_single_p = SELECTED_REAL_KIND(6,37)
19  INTEGER, PARAMETER :: ip_double_p = SELECTED_REAL_KIND(12,307)
20#ifdef use_realtype_single
21  INTEGER, PARAMETER :: ip_realwp_p = ip_single_p
22#else
23  INTEGER, PARAMETER :: ip_realwp_p = ip_double_p 
24#endif
25  INTEGER, PARAMETER :: ip_i2_p = SELECTED_INT_KIND(4)
26  INTEGER, PARAMETER :: ip_i4_p = SELECTED_INT_KIND(9)
27#ifdef SX
28  INTEGER, PARAMETER :: ip_i8_p = SELECTED_INT_KIND(15)
29#else
30  INTEGER, PARAMETER :: ip_i8_p = SELECTED_INT_KIND(18)
31#endif
32  INTEGER, PARAMETER :: ip_intwp_p = ip_i4_p 
33!
34! !DESCRIPTION:
35! This modules contains the parameters defining the precision used for
36! real and integer variables
37!   
38  END MODULE mod_kinds_model
39
Note: See TracBrowser for help on using the repository browser.