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 :: &
64 'xt3d on right-hand side', &
78 'EXPORT_ARRAY_ASCII', &
82 'export array variables to layered ascii files.', &
96 'EXPORT_ARRAY_NETCDF', &
100 'export array variables to netcdf output files.', &
118 'longitudinal dispersivity in horizontal direction', &
136 'longitudinal dispersivity in vertical direction', &
154 'transverse dispersivity in horizontal direction', &
172 'transverse dispersivity in horizontal direction', &
190 'transverse dispersivity when flow is in vertical direction', &
208 'thermal conductivity of the simulated fluid', &
226 'thermal conductivity of the aquifer material', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name