15 logical :: auxiliary = .false.
16 logical :: boundnames = .false.
17 logical :: iprpak = .false.
18 logical :: iprflow = .false.
19 logical :: ipakcb = .false.
20 logical :: ts_filerecord = .false.
21 logical :: ts6 = .false.
22 logical :: filein = .false.
23 logical :: ts6_filename = .false.
24 logical :: obs_filerecord = .false.
25 logical :: obs6 = .false.
26 logical :: obs6_filename = .false.
27 logical :: maxbound = .false.
28 logical :: cellid = .false.
29 logical :: idcxs = .false.
30 logical :: width = .false.
31 logical :: slope = .false.
32 logical :: rough = .false.
33 logical :: auxvar = .false.
34 logical :: boundname = .false.
39 character(len=16),
parameter :: &
55 'keyword to specify aux variables', &
91 'print input to listing file', &
109 'print calculated flows to listing file', &
127 'save flows to budget file', &
143 'RECORD TS6 FILEIN TS6_FILENAME', &
199 'file name of time series information', &
215 'RECORD OBS6 FILEIN OBS6_FILENAME', &
253 'obs6 input filename', &
271 'maximum number of zero-depth-gradient boundaries', &
307 'cross section identifier', &
325 'width of the zero-depth gradient boundary', &
361 'channel roughness', &
379 'auxiliary variables', &
397 'zero-depth-gradient boundary name', &
436 'STRESS_PERIOD_DATA', &
438 'RECARRAY CELLID IDCXS WIDTH SLOPE ROUGH AUX BOUNDNAME', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name