Oasis3-MCT
 All Classes Files Functions Variables Macros Pages
mod_oasis_kinds.F90
Go to the documentation of this file.
1 !> Defines kinds for OASIS
2 
3 !-------------------------------------------------------------------
4 ! BOP
5 !
6 ! !MODULE: mod_oasis_kinds
8 !
9 ! !USES:
10 !
11 ! !PUBLIC TYPES:
12 IMPLICIT NONE
13 public
14 SAVE
15 !
16 ! !PUBLIC MEMBER FUNCTIONS:
17 !
18 ! !PARAMETERS:
19  INTEGER, PARAMETER :: ic_sm = 8
20  INTEGER, PARAMETER :: ic_med = 64
21  INTEGER, PARAMETER :: ic_long = 256
22  INTEGER, PARAMETER :: ic_xl = 1024
23  INTEGER, PARAMETER :: ic_lvar = 80 ! max length of variable, model name, grid name
24  INTEGER, PARAMETER :: ic_lvar2= 120 ! max length of partition
25  INTEGER, PARAMETER :: ip_single_p = selected_real_kind(6,37)
26  INTEGER, PARAMETER :: ip_double_p = selected_real_kind(12,307)
27  INTEGER, PARAMETER :: ip_realwp_p = ip_double_p
28  LOGICAL, PARAMETER :: ll_single = .false.
29  INTEGER, PARAMETER :: ip_i2_p = selected_int_kind(4)
30  INTEGER, PARAMETER :: ip_i4_p = selected_int_kind(9)
31 #ifdef SX
32  INTEGER, PARAMETER :: ip_i8_p = selected_int_kind(15)
33 #else
34  INTEGER, PARAMETER :: ip_i8_p = selected_int_kind(18)
35 #endif
36  INTEGER, PARAMETER :: ip_intwp_p = ip_i4_p
37  INTEGER, PARAMETER :: ip_r8_p = ip_double_p
38 !
39 ! !PUBLIC DATA MEMBERS:
40 !
41 ! !DESCRIPTION:
42 ! This modules contains the parameters defining the precision used for
43 ! real and integer variables
44 !
45 END MODULE mod_oasis_kinds
46 
Defines kinds for OASIS.