16 logical :: flow_pkg_name = .false.
17 logical :: auxiliary = .false.
18 logical :: fp_aux_name = .false.
19 logical :: boundnames = .false.
20 logical :: iprpak = .false.
21 logical :: iprconc = .false.
22 logical :: iprflow = .false.
23 logical :: ipakcb = .false.
24 logical :: temp_filerec = .false.
25 logical :: options_temperature = .false.
26 logical :: tempfile = .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 :: ts_filerecord = .false.
35 logical :: ts6 = .false.
36 logical :: filein = .false.
37 logical :: ts6_filename = .false.
38 logical :: obs_filerecord = .false.
39 logical :: obs6 = .false.
40 logical :: obs6_filename = .false.
41 logical :: dev_nonexpanding = .false.
42 logical :: packagedata_ifno = .false.
43 logical :: strt = .false.
44 logical :: ktf = .false.
45 logical :: fthk = .false.
46 logical :: aux = .false.
47 logical :: boundname = .false.
48 logical :: ifno = .false.
49 logical :: status = .false.
50 logical :: temperature = .false.
51 logical :: rate = .false.
52 logical :: auxiliaryrecord = .false.
53 logical :: period_auxiliary = .false.
54 logical :: auxname = .false.
55 logical :: auxval = .false.
61 character(len=16),
parameter :: &
73 'FLOW_PACKAGE_NAME', &
77 'keyword to specify name of corresponding flow package', &
96 'keyword to specify aux variables', &
111 'FLOW_PACKAGE_AUXILIARY_NAME', &
115 'keyword to specify name of temperature auxiliary variable in '// &
154 'print input to listing file', &
169 'PRINT_TEMPERATURE', &
173 'print calculated temperatures to listing file', &
192 'print calculated flows to listing file', &
211 'save well flows to budget file', &
226 'TEMPERATURE_FILERECORD', &
228 'RECORD TEMPERATURE FILEOUT TEMPFILE', &
283 'BUDGET_FILERECORD', &
285 'RECORD BUDGET FILEOUT BUDGETFILE', &
359 'BUDGETCSV_FILERECORD', &
361 'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', &
418 'RECORD TS6 FILEIN TS6_FILENAME', &
477 'file name of time series information', &
494 'RECORD OBS6 FILEIN OBS6_FILENAME', &
534 'obs6 input filename', &
549 'DEV_NONEXPANDING_MATRIX', &
550 'DEV_NONEXPANDING', &
553 'do not add rows to the solution matrix', &
569 'PACKAGEDATA_IFNO', &
572 'well number for this entry', &
591 'starting well temperature', &
610 'thermal conductivity of the feature', &
629 'thickness of the well feature', &
648 'auxiliary variables', &
686 'well number for this entry', &
705 'well temperature status', &
724 'well temperature', &
743 'well injection temperature', &
760 'RECORD AUXILIARY AUXNAME AUXVAL', &
778 'PERIOD_AUXILIARY', &
819 'auxiliary variable value', &
881 'RECARRAY MAWNO STRT KTF FTHK AUX BOUNDNAME', &
900 'RECARRAY MAWNO MWESETTING', &
919 'KEYSTRING STATUS TEMPERATURE RATE AUXILIARYRECORD', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name