15 logical :: boundnames = .false.
16 logical :: print_input = .false.
17 logical :: save_flows = .false.
18 logical :: gammaw = .false.
19 logical :: beta = .false.
20 logical :: head_based = .false.
21 logical :: precon_head = .false.
22 logical :: ndelaycells = .false.
23 logical :: icompress = .false.
24 logical :: matprop = .false.
25 logical :: cell_fraction = .false.
26 logical :: interbed_state = .false.
27 logical :: precon_stress = .false.
28 logical :: delay_head = .false.
29 logical :: stress_lag = .false.
30 logical :: strainibfr = .false.
31 logical :: csvinterbed = .false.
32 logical :: fileout = .false.
33 logical :: interbedstrainfn = .false.
34 logical :: straincgfr = .false.
35 logical :: csvcoarse = .false.
36 logical :: coarsestrainfn = .false.
37 logical :: cmpfr = .false.
38 logical :: compaction = .false.
39 logical :: cmpfn = .false.
40 logical :: cmpelasticfr = .false.
41 logical :: cmpelastic = .false.
42 logical :: elasticcmpfn = .false.
43 logical :: cmpinelasticfr = .false.
44 logical :: cmpinelastic = .false.
45 logical :: inelasticcmpfn = .false.
46 logical :: cmpinterbedfr = .false.
47 logical :: cmpinterbed = .false.
48 logical :: interbedcmpfn = .false.
49 logical :: cmpcoarsefr = .false.
50 logical :: cmpcoarse = .false.
51 logical :: cmpcoarsefn = .false.
52 logical :: zdispfr = .false.
53 logical :: zdisplacement = .false.
54 logical :: zdispfn = .false.
55 logical :: pkgconvergefr = .false.
56 logical :: pkgconverge = .false.
57 logical :: pkgconvergefn = .false.
58 logical :: ts_filerecord = .false.
59 logical :: ts6 = .false.
60 logical :: filein = .false.
61 logical :: ts6_filename = .false.
62 logical :: obs_filerecord = .false.
63 logical :: obs6 = .false.
64 logical :: obs6_filename = .false.
65 logical :: ninterbeds = .false.
66 logical :: maxbound = .false.
67 logical :: cg_ske_cr = .false.
68 logical :: cg_theta = .false.
69 logical :: sgm = .false.
70 logical :: sgs = .false.
71 logical :: icsubno = .false.
72 logical :: cellid_pkgdata = .false.
73 logical :: cdelay = .false.
74 logical :: pcs0 = .false.
75 logical :: thick_frac = .false.
76 logical :: rnb = .false.
77 logical :: ssv_cc = .false.
78 logical :: sse_cr = .false.
79 logical :: theta = .false.
80 logical :: kv = .false.
81 logical :: h0 = .false.
82 logical :: boundname = .false.
83 logical :: cellid = .false.
84 logical :: sig0 = .false.
89 character(len=16),
parameter :: &
124 'print input to listing file', &
143 'keyword to save CSUB flows', &
162 'unit weight of water', &
181 'compressibility of water', &
200 'keyword to indicate the head-based formulation will be used', &
215 'INITIAL_PRECONSOLIDATION_HEAD', &
219 'keyword to indicate that preconsolidation heads will be specified', &
238 'number of interbed cell nodes', &
253 'COMPRESSION_INDICES', &
257 'keyword to indicate CR and CC are read instead of SSE and SSV', &
272 'UPDATE_MATERIAL_PROPERTIES', &
276 'keyword to indicate material properties can change during the&
296 'keyword to indicate cell fraction interbed thickness', &
311 'SPECIFIED_INITIAL_INTERBED_STATE', &
315 'keyword to indicate that absolute initial states will be specified', &
330 'SPECIFIED_INITIAL_PRECONSOLIDATION_STRESS', &
334 'keyword to indicate that absolute initial preconsolidation stresses&
335 & (head) will be specified', &
350 'SPECIFIED_INITIAL_DELAY_HEAD', &
354 'keyword to indicate that absolute initial delay bed heads will be&
370 'EFFECTIVE_STRESS_LAG', &
374 'keyword to indicate that specific storage will be calculate using the&
375 & effective stress from the previous time step', &
390 'STRAINIB_FILERECORD', &
392 'RECORD STRAIN_CSV_INTERBED FILEOUT INTERBEDSTRAIN_FILENAME', &
409 'STRAIN_CSV_INTERBED', &
447 'INTERBEDSTRAIN_FILENAME', &
448 'INTERBEDSTRAINFN', &
466 'STRAINCG_FILERECORD', &
468 'RECORD STRAIN_CSV_COARSE FILEOUT COARSESTRAIN_FILENAME', &
485 'STRAIN_CSV_COARSE', &
504 'COARSESTRAIN_FILENAME', &
523 'COMPACTION_FILERECORD', &
525 'RECORD COMPACTION FILEOUT COMPACTION_FILENAME', &
546 'compaction keyword', &
561 'COMPACTION_FILENAME', &
580 'COMPACTION_ELASTIC_FILERECORD', &
582 'RECORD COMPACTION_ELASTIC FILEOUT ELASTIC_COMPACTION_FILENAME', &
599 'COMPACTION_ELASTIC', &
603 'elastic interbed compaction keyword', &
618 'ELASTIC_COMPACTION_FILENAME', &
637 'COMPACTION_INELASTIC_FILERECORD', &
639 'RECORD COMPACTION_INELASTIC FILEOUT INELASTIC_COMPACTION_FILENAME', &
656 'COMPACTION_INELASTIC', &
660 'inelastic interbed compaction keyword', &
675 'INELASTIC_COMPACTION_FILENAME', &
694 'COMPACTION_INTERBED_FILERECORD', &
696 'RECORD COMPACTION_INTERBED FILEOUT INTERBED_COMPACTION_FILENAME', &
713 'COMPACTION_INTERBED', &
717 'interbed compaction keyword', &
732 'INTERBED_COMPACTION_FILENAME', &
751 'COMPACTION_COARSE_FILERECORD', &
753 'RECORD COMPACTION_COARSE FILEOUT COARSE_COMPACTION_FILENAME', &
770 'COMPACTION_COARSE', &
774 'coarse compaction keyword', &
789 'COARSE_COMPACTION_FILENAME', &
808 'ZDISPLACEMENT_FILERECORD', &
810 'RECORD ZDISPLACEMENT FILEOUT ZDISPLACEMENT_FILENAME', &
846 'ZDISPLACEMENT_FILENAME', &
865 'PACKAGE_CONVERGENCE_FILERECORD', &
867 'RECORD PACKAGE_CONVERGENCE FILEOUT PACKAGE_CONVERGENCE_FILENAME', &
884 'PACKAGE_CONVERGENCE', &
888 'package_convergence keyword', &
903 'PACKAGE_CONVERGENCE_FILENAME', &
924 'RECORD TS6 FILEIN TS6_FILENAME', &
983 'file name of time series information', &
1000 'RECORD OBS6 FILEIN OBS6_FILENAME', &
1040 'obs6 input filename', &
1059 'number of CSUB interbed systems', &
1078 'maximum number of stress offset cells', &
1097 'elastic coarse specific storage', &
1116 'initial coarse-grained material porosity', &
1135 'specific gravity of moist sediments', &
1154 'specific gravity of saturated sediments', &
1173 'CSUB id number for this entry', &
1192 'cell identifier', &
1249 'interbed thickness or cell fraction', &
1268 'delay interbed material factor', &
1287 'initial interbed inelastic specific storage', &
1306 'initial interbed elastic specific storage', &
1325 'initial interbed porosity', &
1344 'delay interbed vertical hydraulic conductivity', &
1363 'initial delay interbed head', &
1401 'cell identifier', &
1420 'well stress offset', &
1512 'RECARRAY ICSUBNO CELLID CDELAY PCS0 THICK_FRAC RNB SSV_CC SSE_CR THETA KV H0 BOUNDNAME', &
1529 'STRESS_PERIOD_DATA', &
1531 'RECARRAY CELLID SIG0', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name