16 logical :: save_flows = .false.
17 logical :: ord0_decay_water = .false.
18 logical :: ord0_decay_solid = .false.
19 logical :: rhow = .false.
20 logical :: cpw = .false.
21 logical :: latheatvap = .false.
22 logical :: porosity = .false.
23 logical :: decay_water = .false.
24 logical :: decay_solid = .false.
25 logical :: cps = .false.
26 logical :: rhos = .false.
32 character(len=16),
parameter :: &
48 'save calculated flows to budget file', &
63 'ZERO_ORDER_DECAY_WATER', &
67 'activate zero-order decay in aqueous phase', &
82 'ZERO_ORDER_DECAY_SOLID', &
86 'activate zero-order decay in solid phase', &
105 'density of water', &
120 'HEAT_CAPACITY_WATER', &
124 'heat capacity of water', &
139 'LATENT_HEAT_VAPORIZATION', &
143 'latent heat of vaporization', &
181 'aqueous phase decay rate coefficient', &
200 'solid phase decay rate coefficient', &
215 'HEAT_CAPACITY_SOLID', &
219 'heat capacity of the aquifer material', &
238 'density of aquifer material', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name