15 logical :: readarraygrid = .false.
16 logical :: auxiliary = .false.
17 logical :: auxmultname = .false.
18 logical :: iprpak = .false.
19 logical :: iprflow = .false.
20 logical :: ipakcb = .false.
21 logical :: flowred = .false.
22 logical :: afrcsv_rec = .false.
23 logical :: afrcsv = .false.
24 logical :: fileout = .false.
25 logical :: afrcsvfile = .false.
26 logical :: obs_filerecord = .false.
27 logical :: filein = .false.
28 logical :: obs6 = .false.
29 logical :: obs6_filename = .false.
30 logical :: mover = .false.
31 logical :: export_nc = .false.
32 logical :: maxbound = .false.
33 logical :: q = .false.
34 logical :: auxvar = .false.
39 character(len=16),
parameter :: &
55 'use array-based grid input', &
73 'keyword to specify aux variables', &
91 'name of auxiliary variable for multiplier', &
109 'print input to listing file', &
127 'print calculated flows to listing file', &
145 'save well flows to budget file', &
159 'AUTO_FLOW_REDUCE', &
163 'cell fractional thickness for reduced pumping', &
177 'AFRCSV_FILERECORD', &
179 'RECORD AUTO_FLOW_REDUCE_CSV FILEOUT AFRCSVFILE', &
195 'AUTO_FLOW_REDUCE_CSV', &
251 'RECORD OBS6 FILEIN OBS6_FILENAME', &
307 'obs6 input filename', &
339 'EXPORT_ARRAY_NETCDF', &
343 'export array variables to netcdf output files.', &
361 'maximum number of wells in any stress period', &
397 'well auxiliary variable iaux', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name