16 logical :: auxiliary = .false.
17 logical :: boundnames = .false.
18 logical :: iprpak = .false.
19 logical :: print_head = .false.
20 logical :: iprflow = .false.
21 logical :: ipakcb = .false.
22 logical :: head_filerecord = .false.
23 logical :: head = .false.
24 logical :: headfile = .false.
25 logical :: budfilerec = .false.
26 logical :: budget = .false.
27 logical :: fileout = .false.
28 logical :: budgetfile = .false.
29 logical :: budcsvfilerec = .false.
30 logical :: budgetcsv = .false.
31 logical :: budgetcsvfile = .false.
32 logical :: no_well_storage = .false.
33 logical :: flow_correction = .false.
34 logical :: inonvert = .false.
35 logical :: flowing_wells = .false.
36 logical :: shutdown_theta = .false.
37 logical :: shutdown_kappa = .false.
38 logical :: mfrcsvfilerec = .false.
39 logical :: maw_flw_red_csv = .false.
40 logical :: mfrcsvfile = .false.
41 logical :: ts_filerecord = .false.
42 logical :: ts6 = .false.
43 logical :: filein = .false.
44 logical :: ts6_filename = .false.
45 logical :: obs_filerecord = .false.
46 logical :: obs6 = .false.
47 logical :: obs6_filename = .false.
48 logical :: mover = .false.
49 logical :: ieffradopt = .false.
50 logical :: maxbound = .false.
51 logical :: packagedata_ifno = .false.
52 logical :: radius = .false.
53 logical :: bottom = .false.
54 logical :: strt = .false.
55 logical :: condeqn = .false.
56 logical :: ngwfnodes = .false.
57 logical :: aux = .false.
58 logical :: boundname = .false.
59 logical :: conndata_ifno = .false.
60 logical :: icon = .false.
61 logical :: cellid = .false.
62 logical :: scrn_top = .false.
63 logical :: scrn_bot = .false.
64 logical :: hk_skin = .false.
65 logical :: radius_skin = .false.
66 logical :: angledata_ifno = .false.
67 logical :: angledata_icon = .false.
68 logical :: angle = .false.
69 logical :: connlen = .false.
70 logical :: ifno = .false.
71 logical :: status = .false.
72 logical :: connstatusrec = .false.
73 logical :: conn_status = .false.
74 logical :: period_icon = .false.
75 logical :: connstatus = .false.
76 logical :: period_bottom = .false.
77 logical :: flwwellrecord = .false.
78 logical :: flowing_well = .false.
79 logical :: fwelev = .false.
80 logical :: fwcond = .false.
81 logical :: fwrlen = .false.
82 logical :: rate = .false.
83 logical :: well_head = .false.
84 logical :: head_limit = .false.
85 logical :: shutoffrecord = .false.
86 logical :: shut_off = .false.
87 logical :: minrate = .false.
88 logical :: maxrate = .false.
89 logical :: ratescalingrec = .false.
90 logical :: rate_scaling = .false.
91 logical :: pump_elevation = .false.
92 logical :: scaling_length = .false.
93 logical :: auxiliaryrecord = .false.
94 logical :: period_auxiliary = .false.
95 logical :: auxname = .false.
96 logical :: auxval = .false.
102 character(len=16),
parameter :: &
118 'keyword to specify aux variables', &
156 'print input to listing file', &
175 'print calculated heads to listing file', &
194 'print calculated flows to listing file', &
213 'save well flows to budget file', &
230 'RECORD HEAD FILEOUT HEADFILE', &
285 'BUDGET_FILERECORD', &
287 'RECORD BUDGET FILEOUT BUDGETFILE', &
361 'BUDGETCSV_FILERECORD', &
363 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
422 'deactivate well storage', &
441 'activate flow correction', &
456 'NON_VERTICAL_WELLS', &
460 'activate non-vertical well connections', &
479 'activate flowing wells', &
532 'MFRCSV_FILERECORD', &
534 'RECORD MAW_FLOW_REDUCE_CSV FILEOUT MFRCSVFILE', &
551 'MAW_FLOW_REDUCE_CSV', &
591 'RECORD TS6 FILEIN TS6_FILENAME', &
650 'file name of time series information', &
667 'RECORD OBS6 FILEIN OBS6_FILENAME', &
707 'obs6 input filename', &
741 'DEV_PEACEMAN_EFFECTIVE_RADIUS', &
745 'use the Peaceman effective radius', &
764 'number of MAW wells', &
780 'PACKAGEDATA_IFNO', &
783 'well number for this entry', &
859 'conductance equation', &
878 'number of connected GWF cells', &
897 'auxiliary variables', &
935 'well number for this entry', &
954 'connection number', &
1068 'well number for this entry', &
1087 'connection number', &
1106 'tilt angle from vertical', &
1125 'in-cell screen length', &
1144 'well number for this entry', &
1178 'CONNECTION_STATUSRECORD', &
1180 'RECORD CONNECTION_STATUS ICON CONNSTATUS', &
1197 'CONNECTION_STATUS', &
1201 'connection status keyword', &
1220 'connection number', &
1239 'connection status', &
1273 'FLOWING_WELLRECORD', &
1275 'RECORD FLOWING_WELL FWELEV FWCOND FWRLEN', &
1296 'well is a flowing well', &
1315 'flowing well elevation', &
1334 'well flowing well conductance', &
1353 'flowing well reduction length', &
1372 'well pumping rate', &
1427 'RECORD SHUT_OFF MINRATE MAXRATE', &
1467 'minimum shutoff rate', &
1486 'maximum shutoff rate', &
1501 'RATE_SCALINGRECORD', &
1503 'RECORD RATE_SCALING PUMP_ELEVATION SCALING_LENGTH', &
1577 'AUXILIARYRECORD', &
1578 'AUXILIARYRECORD', &
1579 'RECORD AUXILIARY AUXNAME AUXVAL', &
1597 'PERIOD_AUXILIARY', &
1638 'auxiliary variable value', &
1741 'RECARRAY IFNO RADIUS BOTTOM STRT CONDEQN NGWFNODES AUX '// &
1761 'RECARRAY IFNO ICON CELLID SCRN_TOP SCRN_BOT HK_SKIN '// &
1781 'RECARRAY IFNO ICON ANGLE CONN_LENGTH', &
1800 'RECARRAY IFNO MAWSETTING', &
1819 'KEYSTRING STATUS CONNECTION_STATUSRECORD BOTTOM '// &
1820 'FLOWING_WELLRECORD RATE WELL_HEAD HEAD_LIMIT SHUTOFFRECORD '// &
1821 'RATE_SCALINGRECORD AUXILIARYRECORD', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name