15 logical :: budfilerec = .false.
16 logical :: budget = .false.
17 logical :: fileout = .false.
18 logical :: budgetfile = .false.
19 logical :: budcsvfilerec = .false.
20 logical :: budgetcsv = .false.
21 logical :: budgetcsvfile = .false.
22 logical :: qoutfilerec = .false.
23 logical :: qoutflow = .false.
24 logical :: qoutflowfile = .false.
25 logical :: stagefilerec = .false.
26 logical :: stage = .false.
27 logical :: stagefile = .false.
28 logical :: qoutprintrec = .false.
29 logical :: print_format = .false.
30 logical :: formatrecord = .false.
31 logical :: columns = .false.
32 logical :: width = .false.
33 logical :: digits = .false.
34 logical :: format = .false.
35 logical :: saverecord = .false.
36 logical ::
save = .false.
37 logical :: printrecord = .false.
38 logical :: print = .false.
39 logical :: rtype = .false.
40 logical :: ocsetting = .false.
41 logical :: all = .false.
42 logical :: first = .false.
43 logical :: last = .false.
44 logical :: frequency = .false.
45 logical :: steps = .false.
50 character(len=16),
parameter :: &
62 'BUDGET_FILERECORD', &
64 'RECORD BUDGET FILEOUT BUDGETFILE', &
138 'BUDGETCSV_FILERECORD', &
140 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
195 'QOUTFLOW_FILERECORD', &
197 'RECORD QOUTFLOW FILEOUT QOUTFLOWFILE', &
218 'qoutflow keyword', &
252 'STAGE_FILERECORD', &
254 'RECORD STAGE FILEOUT STAGEFILE', &
309 'QOUTFLOWPRINTRECORD', &
311 'RECORD QOUTFLOW PRINT_FORMAT FORMATRECORD', &
332 'keyword to indicate that a print format follows', &
349 'RECORD COLUMNS WIDTH DIGITS FORMAT', &
370 'number of columns', &
389 'width for each number', &
408 'number of digits', &
444 'RECORD SAVE RTYPE OCSETTING', &
482 'RECORD PRINT RTYPE OCSETTING', &
539 'KEYSTRING ALL FIRST LAST FREQUENCY STEPS', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name