16 logical :: auxiliary = .false.
17 logical :: boundnames = .false.
18 logical :: iprpak = .false.
19 logical :: print_stage = .false.
20 logical :: iprflow = .false.
21 logical :: ipakcb = .false.
22 logical :: stage_filerecord = .false.
23 logical :: options_stage = .false.
24 logical :: stagefile = .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 :: pkgconvfilerec = .false.
33 logical :: pkgconv = .false.
34 logical :: pkgconvfname = .false.
35 logical :: ts_filerecord = .false.
36 logical :: ts6 = .false.
37 logical :: options_filein = .false.
38 logical :: ts6_filename = .false.
39 logical :: obs_filerecord = .false.
40 logical :: obs6 = .false.
41 logical :: obs6_filename = .false.
42 logical :: mover = .false.
43 logical :: iforceleg = .false.
44 logical :: iforceleglak = .false.
45 logical :: igwhcopt = .false.
46 logical :: outdmax = .false.
47 logical :: surfdep = .false.
48 logical :: iimplicit = .false.
49 logical :: maxlakit = .false.
50 logical :: dmaxchg = .false.
51 logical :: convtime = .false.
52 logical :: convlength = .false.
53 logical :: iconvchk = .false.
54 logical :: nlakes = .false.
55 logical :: noutlets = .false.
56 logical :: ntables = .false.
57 logical :: packagedata_ifno = .false.
58 logical :: strt = .false.
59 logical :: nlakeconn = .false.
60 logical :: aux = .false.
61 logical :: boundname = .false.
62 logical :: conndata_ifno = .false.
63 logical :: iconn = .false.
64 logical :: cellid = .false.
65 logical :: claktype = .false.
66 logical :: bedleak = .false.
67 logical :: belev = .false.
68 logical :: telev = .false.
69 logical :: connlen = .false.
70 logical :: connwidth = .false.
71 logical :: tables_ifno = .false.
72 logical :: tab6 = .false.
73 logical :: tables_filein = .false.
74 logical :: laktab6_filename = .false.
75 logical :: outlets_outletno = .false.
76 logical :: lakein = .false.
77 logical :: lakeout = .false.
78 logical :: couttype = .false.
79 logical :: outlets_invert = .false.
80 logical :: outlets_width = .false.
81 logical :: outlets_rough = .false.
82 logical :: outlets_slope = .false.
83 logical :: ifno = .false.
84 logical :: status = .false.
85 logical :: stage = .false.
86 logical :: rainfall = .false.
87 logical :: evaporation = .false.
88 logical :: runoff = .false.
89 logical :: inflow = .false.
90 logical :: withdrawal = .false.
91 logical :: rate = .false.
92 logical :: invert = .false.
93 logical :: rough = .false.
94 logical :: width = .false.
95 logical :: slope = .false.
96 logical :: auxrecord = .false.
97 logical :: period_auxiliary = .false.
98 logical :: auxname = .false.
99 logical :: auxval = .false.
105 character(len=16),
parameter :: &
121 'keyword to specify aux variables', &
159 'print input to listing file', &
178 'print calculated stages to listing file', &
197 'print calculated flows to listing file', &
216 'save lake flows to budget file', &
231 'STAGE_FILERECORD', &
232 'STAGE_FILERECORD', &
233 'RECORD STAGE FILEOUT STAGEFILE', &
288 'BUDGET_FILERECORD', &
290 'RECORD BUDGET FILEOUT BUDGETFILE', &
364 'BUDGETCSV_FILERECORD', &
366 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
421 'PACKAGE_CONVERGENCE_FILERECORD', &
423 'RECORD PACKAGE_CONVERGENCE FILEOUT '// &
424 'PACKAGE_CONVERGENCE_FILENAME', &
441 'PACKAGE_CONVERGENCE', &
445 'package_convergence keyword', &
460 'PACKAGE_CONVERGENCE_FILENAME', &
481 'RECORD TS6 FILEIN TS6_FILENAME', &
540 'file name of time series information', &
557 'RECORD OBS6 FILEIN OBS6_FILENAME', &
597 'obs6 input filename', &
631 'DEV_FORCE_LEGACY', &
635 'force the legacy solution for every lake', &
650 'DEV_FORCE_LEGACY_LAKE', &
654 'force the legacy solution for one lake', &
669 'DEV_GROUNDWATER_HEAD_CONDUCTANCE', &
673 'use the groundwater head to calculate horizontal conductance', &
688 'DEV_MAXIMUM_OUTLET_DEPTH', &
692 'maximum outlet depth', &
711 'surface depression depth', &
730 'solve lake stage in the groundwater flow matrix', &
745 'MAXIMUM_ITERATIONS', &
749 'LAK Newton-Raphson iterations', &
764 'MAXIMUM_STAGE_CHANGE', &
768 'stage closure tolerance', &
787 'time conversion factor', &
802 'LENGTH_CONVERSION', &
806 'length conversion factor', &
821 'DEV_NO_FINAL_CHECK', &
825 'disable final convergence check for lake stages', &
863 'number of outlets', &
882 'number of tables', &
898 'PACKAGEDATA_IFNO', &
901 'lake number for this entry', &
920 'starting lake stage', &
939 'number of lake connections', &
958 'auxiliary variables', &
996 'lake number for this entry', &
1015 'connection number for this entry', &
1034 'cell identifier', &
1053 'lake connection type', &
1091 'bottom elevation', &
1129 'connection length', &
1148 'connection width', &
1167 'lake number for this entry', &
1221 'LAKTAB6_FILENAME', &
1224 'table file name', &
1240 'OUTLETS_OUTLETNO', &
1243 'outlet number for this entry', &
1262 'lake number for upstream lake', &
1281 'lake number for downstream lake', &
1319 'invert elevation', &
1357 'roughness coefficient', &
1395 'lake or outlet number for this entry', &
1471 'evaporation rate', &
1528 'maximum withdrawal rate', &
1547 'extraction rate', &
1566 'invert elevation', &
1585 'roughness coefficient', &
1638 'AUXILIARYRECORD', &
1640 'RECORD AUXILIARY AUXNAME AUXVAL', &
1658 'PERIOD_AUXILIARY', &
1699 'auxiliary variable value', &
1805 'RECARRAY IFNO STRT NLAKECONN AUX BOUNDNAME', &
1824 'RECARRAY IFNO ICONN CELLID CLAKTYPE BEDLEAK BELEV TELEV '// &
1825 'CONNLEN CONNWIDTH', &
1844 'RECARRAY IFNO TAB6 FILEIN TAB6_FILENAME', &
1863 'RECARRAY OUTLETNO LAKEIN LAKEOUT COUTTYPE INVERT WIDTH ROUGH '// &
1883 'RECARRAY NUMBER LAKSETTING', &
1902 'KEYSTRING STATUS STAGE RAINFALL EVAPORATION RUNOFF INFLOW '// &
1903 'WITHDRAWAL RATE INVERT WIDTH SLOPE ROUGH AUXILIARYRECORD', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name