16 logical :: storage = .false.
17 logical :: ats_courant = .false.
18 logical :: auxiliary = .false.
19 logical :: boundnames = .false.
20 logical :: iprpak = .false.
21 logical :: print_stage = .false.
22 logical :: iprflow = .false.
23 logical :: ipakcb = .false.
24 logical :: stage_filerecord = .false.
25 logical :: options_stage = .false.
26 logical :: stagefile = .false.
27 logical :: budfilerec = .false.
28 logical :: budget = .false.
29 logical :: fileout = .false.
30 logical :: budgetfile = .false.
31 logical :: budcsvfilerec = .false.
32 logical :: budgetcsv = .false.
33 logical :: budgetcsvfile = .false.
34 logical :: pkgconvfilerec = .false.
35 logical :: pkgconv = .false.
36 logical :: pkgconvfname = .false.
37 logical :: ts_filerecord = .false.
38 logical :: ts6 = .false.
39 logical :: options_filein = .false.
40 logical :: ts6_filename = .false.
41 logical :: obs_filerecord = .false.
42 logical :: obs6 = .false.
43 logical :: obs6_filename = .false.
44 logical :: mover = .false.
45 logical :: maxsfrpicard = .false.
46 logical :: maxsfrit = .false.
47 logical :: dmaxchg = .false.
48 logical :: unit_conversion = .false.
49 logical :: lengthconv = .false.
50 logical :: time_conversion = .false.
51 logical :: storage_weight = .false.
52 logical :: icheck = .false.
53 logical :: iconvchk = .false.
54 logical :: maxbound = .false.
55 logical :: packagedata_ifno = .false.
56 logical :: cellid = .false.
57 logical :: rlen = .false.
58 logical :: rwid = .false.
59 logical :: rgrd = .false.
60 logical :: rtp = .false.
61 logical :: rbth = .false.
62 logical :: rhk = .false.
63 logical :: man = .false.
64 logical :: ncon = .false.
65 logical :: ustrf = .false.
66 logical :: ndv = .false.
67 logical :: aux = .false.
68 logical :: boundname = .false.
69 logical :: crosssect_ifno = .false.
70 logical :: xs_tab6 = .false.
71 logical :: xs_filein = .false.
72 logical :: sfrtab6_filename = .false.
73 logical :: conndata_ifno = .false.
74 logical :: ic = .false.
75 logical :: diversions_ifno = .false.
76 logical :: diversions_idv = .false.
77 logical :: iconr = .false.
78 logical :: cprior = .false.
79 logical :: initstage_ifno = .false.
80 logical :: initialstage = .false.
81 logical :: ifno = .false.
82 logical :: status = .false.
83 logical :: bedk = .false.
84 logical :: manning = .false.
85 logical :: stage = .false.
86 logical :: inflow = .false.
87 logical :: rainfall = .false.
88 logical :: evaporation = .false.
89 logical :: runoff = .false.
90 logical :: diversionrecord = .false.
91 logical :: diversion = .false.
92 logical :: idv = .false.
93 logical :: divflow = .false.
94 logical :: upstream_frac = .false.
95 logical :: xsectionrecord = .false.
96 logical :: cross_section = .false.
97 logical :: tab6 = .false.
98 logical :: filein = .false.
99 logical :: tab6_filename = .false.
100 logical :: auxiliaryrecord = .false.
101 logical :: period_auxiliary = .false.
102 logical :: auxname = .false.
103 logical :: auxval = .false.
109 character(len=16),
parameter :: &
125 'activate reach storage', &
144 'target Courant number for adaptive time stepping', &
163 'keyword to specify aux variables', &
201 'print input to listing file', &
220 'print calculated stages to listing file', &
239 'print calculated flows to listing file', &
258 'save stream reach flows to budget file', &
273 'STAGE_FILERECORD', &
274 'STAGE_FILERECORD', &
275 'RECORD STAGE FILEOUT STAGEFILE', &
330 'BUDGET_FILERECORD', &
332 'RECORD BUDGET FILEOUT BUDGETFILE', &
406 'BUDGETCSV_FILERECORD', &
408 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
463 'PACKAGE_CONVERGENCE_FILERECORD', &
465 'RECORD PACKAGE_CONVERGENCE FILEOUT '// &
466 'PACKAGE_CONVERGENCE_FILENAME', &
483 'PACKAGE_CONVERGENCE', &
487 'package_convergence keyword', &
502 'PACKAGE_CONVERGENCE_FILENAME', &
523 'RECORD TS6 FILEIN TS6_FILENAME', &
582 'file name of time series information', &
599 'RECORD OBS6 FILEIN OBS6_FILENAME', &
639 'obs6 input filename', &
673 'MAXIMUM_PICARD_ITERATIONS', &
677 'SFR picard iterations', &
692 'MAXIMUM_ITERATIONS', &
696 'SFR Newton-Raphson iterations', &
711 'MAXIMUM_DEPTH_CHANGE', &
715 'depth closure tolerance', &
734 'conversion factor', &
749 'LENGTH_CONVERSION', &
753 'length conversion factor', &
772 'time conversion factor', &
787 'DEV_STORAGE_WEIGHT', &
791 'reach storage time weighting', &
810 'do not check reach geometry and parameters', &
825 'DEV_NO_FINAL_CHECK', &
829 'do not perform final convergence check', &
848 'maximum number reaches', &
864 'PACKAGEDATA_IFNO', &
867 'reach number for this entry', &
962 'reach streambed top elevation', &
981 'streambed thickness', &
1000 'reach bed hydraulic conductivity', &
1019 'Mannings roughness coefficient', &
1038 'number of connected reaches', &
1057 'fraction of upstream flow', &
1076 'number of downstream reaches', &
1095 'auxiliary variables', &
1133 'reach number for this entry', &
1187 'SFRTAB6_FILENAME', &
1190 'table file name', &
1209 'reach number for this entry', &
1228 'connected reach numbers', &
1244 'DIVERSIONS_IFNO', &
1247 'reach number for this entry', &
1266 'downstream diversion number', &
1285 'downstream reach number for diversion', &
1323 'reach number for this entry', &
1342 'initial reach stage', &
1361 'reach number for this entry', &
1399 'reach bed hydraulic conductivity', &
1418 'reach Mannings roughness coefficient', &
1494 'evaporation rate', &
1528 'DIVERSIONRECORD', &
1529 'DIVERSIONRECORD', &
1530 'RECORD DIVERSION IDV DIVFLOW', &
1551 'diversion keyword', &
1570 'diversion number', &
1589 'volumetric diversion flow rate', &
1604 'UPSTREAM_FRACTION', &
1608 'fraction of upstream flow', &
1623 'CROSS_SECTIONRECORD', &
1625 'RECORD CROSS_SECTION TAB6 FILEIN TAB6_FILENAME', &
1646 'cross_section keyword', &
1703 'table file name', &
1718 'AUXILIARYRECORD', &
1719 'AUXILIARYRECORD', &
1720 'RECORD AUXILIARY AUXNAME AUXVAL', &
1738 'PERIOD_AUXILIARY', &
1779 'auxiliary variable value', &
1889 'RECARRAY IFNO CELLID RLEN RWID RGRD RTP RBTH RHK MAN NCON '// &
1890 'USTRF NDV AUX BOUNDNAME', &
1909 'RECARRAY IFNO TAB6 FILEIN TAB6_FILENAME', &
1928 'RECARRAY IFNO IC', &
1947 'RECARRAY IFNO IDV ICONR CPRIOR', &
1966 'RECARRAY IFNO INITIALSTAGE', &
1985 'RECARRAY IFNO SFRSETTING', &
2004 'KEYSTRING STATUS BEDK MANNING STAGE INFLOW RAINFALL '// &
2005 'EVAPORATION RUNOFF DIVERSIONRECORD UPSTREAM_FRACTION '// &
2006 'CROSS_SECTIONRECORD AUXILIARYRECORD', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name