15 logical :: xt3d_off = .false.
16 logical :: xt3d_rhs = .false.
17 logical :: export_ascii = .false.
18 logical :: export_nc = .false.
19 logical :: alh = .false.
20 logical :: alv = .false.
21 logical :: ath1 = .false.
22 logical :: ath2 = .false.
23 logical :: atv = .false.
24 logical :: ktw = .false.
25 logical :: kts = .false.
30 character(len=16),
parameter :: &
65 'xt3d on right-hand side', &
80 'EXPORT_ARRAY_ASCII', &
84 'export array variables to layered ascii files.', &
99 'EXPORT_ARRAY_NETCDF', &
103 'export array variables to netcdf output files.', &
122 'longitudinal dispersivity in horizontal direction', &
141 'longitudinal dispersivity in vertical direction', &
160 'transverse dispersivity in horizontal direction', &
179 'transverse dispersivity in horizontal direction', &
198 'transverse dispersivity when flow is in vertical direction', &
217 'thermal conductivity of the simulated fluid', &
236 'thermal conductivity of the aquifer material', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name