-
Notifications
You must be signed in to change notification settings - Fork 9
/
field_defaults_module.F90
31 lines (29 loc) · 1.37 KB
/
field_defaults_module.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
MODULE FIELD_DEFAULTS_MODULE
USE PARKIND1
USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : INT64
LOGICAL :: USE_INIT_DEBUG_VALUE = .FALSE.
REAL(KIND=JPRM) :: INIT_DEBUG_VALUE_JPRM = 0.0_JPRM
REAL(KIND=JPRB) :: INIT_DEBUG_VALUE_JPRB = 0.0_JPRB
REAL(KIND=JPRD) :: INIT_DEBUG_VALUE_JPRD = 0.0_JPRD
INTEGER(KIND=JPIM) :: INIT_DEBUG_VALUE_JPIM = 0_JPIM
LOGICAL(KIND=JPLM) :: INIT_DEBUG_VALUE_JPLM = .FALSE.
LOGICAL :: GET_DEBUG_PRINT_CRC = .FALSE.
LOGICAL :: GET_DEBUG_PRINT_LOCATION = .FALSE.
LOGICAL :: INIT_PINNED_VALUE = .FALSE.
LOGICAL :: INIT_SYNC_ON_FINAL = .TRUE.
LOGICAL :: INIT_INITIALIZED = .TRUE.
LOGICAL :: INIT_MAP_DEVPTR = .TRUE.
INTEGER :: GET_DEBUG_PRINT_LOCATION_DEPTH = 3
LOGICAL :: POOL_OWNED_FIELDS = .FALSE.
INTEGER :: POOL_ALLOC_PADDING_FACTOR = 8
INTEGER(KIND=INT64) :: POOL_BLOCK_SIZE = 2_INT64*1024_INT64*1024_INT64*1024_INT64 ! 2Gb
NAMELIST / NAMFIELD_API / &
& USE_INIT_DEBUG_VALUE, INIT_DEBUG_VALUE_JPRM, &
& INIT_DEBUG_VALUE_JPRB, INIT_DEBUG_VALUE_JPRD, &
& INIT_DEBUG_VALUE_JPIM, INIT_DEBUG_VALUE_JPLM, &
& GET_DEBUG_PRINT_CRC, GET_DEBUG_PRINT_LOCATION, &
& INIT_PINNED_VALUE, INIT_SYNC_ON_FINAL, &
& INIT_MAP_DEVPTR, GET_DEBUG_PRINT_LOCATION_DEPTH, &
& POOL_OWNED_FIELDS, POOL_ALLOC_PADDING_FACTOR, &
& POOL_BLOCK_SIZE
END MODULE FIELD_DEFAULTS_MODULE