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
|
Rev | Line | |
---|
[1677] | 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.