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 |
---|
5 | MODULE mod_kinds_model |
---|
6 | ! |
---|
7 | ! !USES: |
---|
8 | ! |
---|
9 | ! !PUBLIC TYPES: |
---|
10 | IMPLICIT NONE |
---|
11 | SAVE |
---|
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.