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', &
61 'ZERO_ORDER_DECAY_WATER', &
65 'activate zero-order decay in aqueous phase', &
80 'ZERO_ORDER_DECAY_SOLID', &
84 'activate zero-order decay in solid phase', &
103 'density of water', &
118 'HEAT_CAPACITY_WATER', &
122 'heat capacity of water', &
137 'LATENT_HEAT_VAPORIZATION', &
141 'latent heat of vaporization', &
179 'aqueous phase decay rate coefficient', &
198 'solid phase decay rate coefficient', &
213 'HEAT_CAPACITY_SOLID', &
217 'heat capacity of the aquifer material', &
236 'density of aquifer material', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name