16 logical :: auxiliary = .false.
17 logical :: auxmultname = .false.
18 logical :: boundnames = .false.
19 logical :: iprpak = .false.
20 logical :: iprflow = .false.
21 logical :: ipakcb = .false.
22 logical :: flowred = .false.
23 logical :: afrcsv_rec = .false.
24 logical :: afrcsv = .false.
25 logical :: fileout = .false.
26 logical :: afrcsvfile = .false.
27 logical :: iflowredlen = .false.
28 logical :: afrauxname = .false.
29 logical :: ts_filerecord = .false.
30 logical :: ts6 = .false.
31 logical :: filein = .false.
32 logical :: ts6_filename = .false.
33 logical :: obs_filerecord = .false.
34 logical :: obs6 = .false.
35 logical :: obs6_filename = .false.
36 logical :: mover = .false.
37 logical :: maxbound = .false.
38 logical :: cellid = .false.
39 logical :: q = .false.
40 logical :: auxvar = .false.
41 logical :: boundname = .false.
47 character(len=16),
parameter :: &
63 'keyword to specify aux variables', &
82 'name of auxiliary variable for multiplier', &
120 'print input to listing file', &
139 'print calculated flows to listing file', &
158 'save well flows to budget file', &
173 'AUTO_FLOW_REDUCE', &
177 'cell fractional thickness for reduced pumping', &
192 'AFRCSV_FILERECORD', &
194 'RECORD AUTO_FLOW_REDUCE_CSV FILEOUT AFRCSVFILE', &
211 'AUTO_FLOW_REDUCE_CSV', &
268 'FLOW_REDUCTION_LENGTH', &
272 'flow reduction length keyword', &
287 'AUTO_FLOW_REDUCE_AUXNAME', &
291 'name of auxiliary variable for the per-well '// &
292 'AUTO\_FLOW\_REDUCE value', &
309 'RECORD TS6 FILEIN TS6_FILENAME', &
368 'file name of time series information', &
385 'RECORD OBS6 FILEIN OBS6_FILENAME', &
425 'obs6 input filename', &
463 'maximum number of wells', &
520 'auxiliary variables', &
585 'STRESS_PERIOD_DATA', &
587 'RECARRAY CELLID Q AUX BOUNDNAME', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name