15 logical :: readasarrays = .false.
16 logical :: fixed_cell = .false.
17 logical :: auxiliary = .false.
18 logical :: auxmultname = .false.
19 logical :: iprpak = .false.
20 logical :: iprflow = .false.
21 logical :: ipakcb = .false.
22 logical :: tas_filerecord = .false.
23 logical :: tas6 = .false.
24 logical :: filein = .false.
25 logical :: tas6_filename = .false.
26 logical :: obs_filerecord = .false.
27 logical :: obs6 = .false.
28 logical :: obs6_filename = .false.
29 logical :: export_nc = .false.
30 logical :: irch = .false.
31 logical :: recharge = .false.
32 logical :: auxvar = .false.
37 character(len=16),
parameter :: &
53 'use array-based input', &
71 'if cell is dry do not apply recharge to underlying cell', &
89 'keyword to specify aux variables', &
107 'name of auxiliary variable for multiplier', &
125 'print input to listing file', &
143 'print recharge rates to listing file', &
161 'save CHD flows to budget file', &
177 'RECORD TAS6 FILEIN TAS6_FILENAME', &
233 'file name of time series information', &
249 'RECORD OBS6 FILEIN OBS6_FILENAME', &
287 'obs6 input filename', &
301 'EXPORT_ARRAY_NETCDF', &
305 'export array variables to netcdf output files.', &
323 'layer number for recharge', &
359 'recharge auxiliary variable iaux', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name