15 logical :: save_flows = .false.
16 logical :: ord0_decay_water = .false.
17 logical :: ord0_decay_solid = .false.
18 logical :: rhow = .false.
19 logical :: cpw = .false.
20 logical :: latheatvap = .false.
21 logical :: porosity = .false.
22 logical :: decay_water = .false.
23 logical :: decay_solid = .false.
24 logical :: cps = .false.
25 logical :: rhos = .false.
30 character(len=16),
parameter :: &
46 'save calculated flows to budget file', &
60 'ZERO_ORDER_DECAY_WATER', &
64 'activate zero-order decay in aqueous phase', &
78 'ZERO_ORDER_DECAY_SOLID', &
82 'activate zero-order decay in solid phase', &
100 'density of water', &
114 'HEAT_CAPACITY_WATER', &
118 'heat capacity of water', &
132 'LATENT_HEAT_VAPORIZATION', &
136 'latent heat of vaporization', &
172 'aqueous phase decay rate coefficient', &
190 'solid phase decay rate coefficient', &
204 'HEAT_CAPACITY_SOLID', &
208 'heat capacity of the aquifer material', &
226 'density of aquifer material', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name