MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
gwf-csubidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfcsubinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_csub_param_definitions
8  public gwf_csub_aggregate_definitions
9  public gwf_csub_block_definitions
10  public gwfcsubparamfoundtype
11  public gwf_csub_multi_package
12  public gwf_csub_is_advanced
13  public gwf_csub_subpackages
14 
15  type gwfcsubparamfoundtype
16  logical :: boundnames = .false.
17  logical :: print_input = .false.
18  logical :: save_flows = .false.
19  logical :: gammaw = .false.
20  logical :: beta = .false.
21  logical :: ei_smoothing = .false.
22  logical :: strict_stress = .false.
23  logical :: head_based = .false.
24  logical :: precon_head = .false.
25  logical :: ndelaycells = .false.
26  logical :: icompress = .false.
27  logical :: matprop = .false.
28  logical :: cell_fraction = .false.
29  logical :: interbed_state = .false.
30  logical :: precon_stress = .false.
31  logical :: delay_head = .false.
32  logical :: stress_lag = .false.
33  logical :: strainibfr = .false.
34  logical :: csvinterbed = .false.
35  logical :: fileout = .false.
36  logical :: interbedstrainfn = .false.
37  logical :: straincgfr = .false.
38  logical :: csvcoarse = .false.
39  logical :: coarsestrainfn = .false.
40  logical :: cmpfr = .false.
41  logical :: compaction = .false.
42  logical :: cmpfn = .false.
43  logical :: cmpelasticfr = .false.
44  logical :: cmpelastic = .false.
45  logical :: elasticcmpfn = .false.
46  logical :: cmpinelasticfr = .false.
47  logical :: cmpinelastic = .false.
48  logical :: inelasticcmpfn = .false.
49  logical :: cmpinterbedfr = .false.
50  logical :: cmpinterbed = .false.
51  logical :: interbedcmpfn = .false.
52  logical :: cmpcoarsefr = .false.
53  logical :: cmpcoarse = .false.
54  logical :: cmpcoarsefn = .false.
55  logical :: zdispfr = .false.
56  logical :: zdisplacement = .false.
57  logical :: zdispfn = .false.
58  logical :: pkgconvergefr = .false.
59  logical :: pkgconverge = .false.
60  logical :: pkgconvergefn = .false.
61  logical :: ts_filerecord = .false.
62  logical :: ts6 = .false.
63  logical :: filein = .false.
64  logical :: ts6_filename = .false.
65  logical :: obs_filerecord = .false.
66  logical :: obs6 = .false.
67  logical :: obs6_filename = .false.
68  logical :: ninterbeds = .false.
69  logical :: maxbound = .false.
70  logical :: cg_ske_cr = .false.
71  logical :: cg_theta = .false.
72  logical :: sgm = .false.
73  logical :: sgs = .false.
74  logical :: icsubno = .false.
75  logical :: cellid_pkgdata = .false.
76  logical :: cdelay = .false.
77  logical :: pcs0 = .false.
78  logical :: thick_frac = .false.
79  logical :: rnb = .false.
80  logical :: ssv_cc = .false.
81  logical :: sse_cr = .false.
82  logical :: theta = .false.
83  logical :: kv = .false.
84  logical :: h0 = .false.
85  logical :: boundname = .false.
86  logical :: cellid = .false.
87  logical :: sig0 = .false.
88  end type gwfcsubparamfoundtype
89 
90  logical :: gwf_csub_multi_package = .false.
91  logical :: gwf_csub_is_advanced = .false.
92 
93  character(len=16), parameter :: &
94  gwf_csub_subpackages(*) = &
95  [ &
96  ' ' &
97  ]
98 
99  type(inputparamdefinitiontype), parameter :: &
100  gwfcsub_boundnames = inputparamdefinitiontype &
101  ( &
102  'GWF', & ! component
103  'CSUB', & ! subcomponent
104  'OPTIONS', & ! block
105  'BOUNDNAMES', & ! tag name
106  'BOUNDNAMES', & ! fortran variable
107  'KEYWORD', & ! type
108  '', & ! shape
109  '', & ! longname
110  .false., & ! required
111  .false., & ! developmode
112  .false., & ! multi-record
113  .false., & ! preserve case
114  .false., & ! layered
115  .false. & ! timeseries
116  )
117 
118  type(inputparamdefinitiontype), parameter :: &
119  gwfcsub_print_input = inputparamdefinitiontype &
120  ( &
121  'GWF', & ! component
122  'CSUB', & ! subcomponent
123  'OPTIONS', & ! block
124  'PRINT_INPUT', & ! tag name
125  'PRINT_INPUT', & ! fortran variable
126  'KEYWORD', & ! type
127  '', & ! shape
128  'print input to listing file', & ! longname
129  .false., & ! required
130  .false., & ! developmode
131  .false., & ! multi-record
132  .false., & ! preserve case
133  .false., & ! layered
134  .false. & ! timeseries
135  )
136 
137  type(inputparamdefinitiontype), parameter :: &
138  gwfcsub_save_flows = inputparamdefinitiontype &
139  ( &
140  'GWF', & ! component
141  'CSUB', & ! subcomponent
142  'OPTIONS', & ! block
143  'SAVE_FLOWS', & ! tag name
144  'SAVE_FLOWS', & ! fortran variable
145  'KEYWORD', & ! type
146  '', & ! shape
147  'keyword to save CSUB flows', & ! longname
148  .false., & ! required
149  .false., & ! developmode
150  .false., & ! multi-record
151  .false., & ! preserve case
152  .false., & ! layered
153  .false. & ! timeseries
154  )
155 
156  type(inputparamdefinitiontype), parameter :: &
157  gwfcsub_gammaw = inputparamdefinitiontype &
158  ( &
159  'GWF', & ! component
160  'CSUB', & ! subcomponent
161  'OPTIONS', & ! block
162  'GAMMAW', & ! tag name
163  'GAMMAW', & ! fortran variable
164  'DOUBLE', & ! type
165  '', & ! shape
166  'unit weight of water', & ! longname
167  .false., & ! required
168  .false., & ! developmode
169  .false., & ! multi-record
170  .false., & ! preserve case
171  .false., & ! layered
172  .false. & ! timeseries
173  )
174 
175  type(inputparamdefinitiontype), parameter :: &
176  gwfcsub_beta = inputparamdefinitiontype &
177  ( &
178  'GWF', & ! component
179  'CSUB', & ! subcomponent
180  'OPTIONS', & ! block
181  'BETA', & ! tag name
182  'BETA', & ! fortran variable
183  'DOUBLE', & ! type
184  '', & ! shape
185  'compressibility of water', & ! longname
186  .false., & ! required
187  .false., & ! developmode
188  .false., & ! multi-record
189  .false., & ! preserve case
190  .false., & ! layered
191  .false. & ! timeseries
192  )
193 
194  type(inputparamdefinitiontype), parameter :: &
195  gwfcsub_ei_smoothing = inputparamdefinitiontype &
196  ( &
197  'GWF', & ! component
198  'CSUB', & ! subcomponent
199  'OPTIONS', & ! block
200  'ELASTIC_INELASTIC_SMOOTHING', & ! tag name
201  'EI_SMOOTHING', & ! fortran variable
202  'KEYWORD', & ! type
203  '', & ! shape
204  'elastic to inelastic smoothing', & ! longname
205  .false., & ! required
206  .false., & ! developmode
207  .false., & ! multi-record
208  .false., & ! preserve case
209  .false., & ! layered
210  .false. & ! timeseries
211  )
212 
213  type(inputparamdefinitiontype), parameter :: &
214  gwfcsub_strict_stress = inputparamdefinitiontype &
215  ( &
216  'GWF', & ! component
217  'CSUB', & ! subcomponent
218  'OPTIONS', & ! block
219  'STRICT_EFFECTIVE_STRESS', & ! tag name
220  'STRICT_STRESS', & ! fortran variable
221  'KEYWORD', & ! type
222  '', & ! shape
223  'terminate on negative effective stress', & ! longname
224  .false., & ! required
225  .false., & ! developmode
226  .false., & ! multi-record
227  .false., & ! preserve case
228  .false., & ! layered
229  .false. & ! timeseries
230  )
231 
232  type(inputparamdefinitiontype), parameter :: &
233  gwfcsub_head_based = inputparamdefinitiontype &
234  ( &
235  'GWF', & ! component
236  'CSUB', & ! subcomponent
237  'OPTIONS', & ! block
238  'HEAD_BASED', & ! tag name
239  'HEAD_BASED', & ! fortran variable
240  'KEYWORD', & ! type
241  '', & ! shape
242  'keyword to indicate the head-based formulation will be used', & ! longname
243  .false., & ! required
244  .false., & ! developmode
245  .false., & ! multi-record
246  .false., & ! preserve case
247  .false., & ! layered
248  .false. & ! timeseries
249  )
250 
251  type(inputparamdefinitiontype), parameter :: &
252  gwfcsub_precon_head = inputparamdefinitiontype &
253  ( &
254  'GWF', & ! component
255  'CSUB', & ! subcomponent
256  'OPTIONS', & ! block
257  'INITIAL_PRECONSOLIDATION_HEAD', & ! tag name
258  'PRECON_HEAD', & ! fortran variable
259  'KEYWORD', & ! type
260  '', & ! shape
261  'keyword to indicate that preconsolidation heads will be '// &
262  'specified', & ! longname
263  .false., & ! required
264  .false., & ! developmode
265  .false., & ! multi-record
266  .false., & ! preserve case
267  .false., & ! layered
268  .false. & ! timeseries
269  )
270 
271  type(inputparamdefinitiontype), parameter :: &
272  gwfcsub_ndelaycells = inputparamdefinitiontype &
273  ( &
274  'GWF', & ! component
275  'CSUB', & ! subcomponent
276  'OPTIONS', & ! block
277  'NDELAYCELLS', & ! tag name
278  'NDELAYCELLS', & ! fortran variable
279  'INTEGER', & ! type
280  '', & ! shape
281  'number of interbed cell nodes', & ! longname
282  .false., & ! required
283  .false., & ! developmode
284  .false., & ! multi-record
285  .false., & ! preserve case
286  .false., & ! layered
287  .false. & ! timeseries
288  )
289 
290  type(inputparamdefinitiontype), parameter :: &
291  gwfcsub_icompress = inputparamdefinitiontype &
292  ( &
293  'GWF', & ! component
294  'CSUB', & ! subcomponent
295  'OPTIONS', & ! block
296  'COMPRESSION_INDICES', & ! tag name
297  'ICOMPRESS', & ! fortran variable
298  'KEYWORD', & ! type
299  '', & ! shape
300  'keyword to indicate CR and CC are read instead of SSE and '// &
301  'SSV', & ! longname
302  .false., & ! required
303  .false., & ! developmode
304  .false., & ! multi-record
305  .false., & ! preserve case
306  .false., & ! layered
307  .false. & ! timeseries
308  )
309 
310  type(inputparamdefinitiontype), parameter :: &
311  gwfcsub_matprop = inputparamdefinitiontype &
312  ( &
313  'GWF', & ! component
314  'CSUB', & ! subcomponent
315  'OPTIONS', & ! block
316  'UPDATE_MATERIAL_PROPERTIES', & ! tag name
317  'MATPROP', & ! fortran variable
318  'KEYWORD', & ! type
319  '', & ! shape
320  'keyword to indicate material properties can change during '// &
321  'the simulations', & ! longname
322  .false., & ! required
323  .false., & ! developmode
324  .false., & ! multi-record
325  .false., & ! preserve case
326  .false., & ! layered
327  .false. & ! timeseries
328  )
329 
330  type(inputparamdefinitiontype), parameter :: &
331  gwfcsub_cell_fraction = inputparamdefinitiontype &
332  ( &
333  'GWF', & ! component
334  'CSUB', & ! subcomponent
335  'OPTIONS', & ! block
336  'CELL_FRACTION', & ! tag name
337  'CELL_FRACTION', & ! fortran variable
338  'KEYWORD', & ! type
339  '', & ! shape
340  'keyword to indicate cell fraction interbed thickness', & ! longname
341  .false., & ! required
342  .false., & ! developmode
343  .false., & ! multi-record
344  .false., & ! preserve case
345  .false., & ! layered
346  .false. & ! timeseries
347  )
348 
349  type(inputparamdefinitiontype), parameter :: &
350  gwfcsub_interbed_state = inputparamdefinitiontype &
351  ( &
352  'GWF', & ! component
353  'CSUB', & ! subcomponent
354  'OPTIONS', & ! block
355  'SPECIFIED_INITIAL_INTERBED_STATE', & ! tag name
356  'INTERBED_STATE', & ! fortran variable
357  'KEYWORD', & ! type
358  '', & ! shape
359  'keyword to indicate that absolute initial states will be '// &
360  'specified', & ! longname
361  .false., & ! required
362  .false., & ! developmode
363  .false., & ! multi-record
364  .false., & ! preserve case
365  .false., & ! layered
366  .false. & ! timeseries
367  )
368 
369  type(inputparamdefinitiontype), parameter :: &
370  gwfcsub_precon_stress = inputparamdefinitiontype &
371  ( &
372  'GWF', & ! component
373  'CSUB', & ! subcomponent
374  'OPTIONS', & ! block
375  'SPECIFIED_INITIAL_PRECONSOLIDATION_STRESS', & ! tag name
376  'PRECON_STRESS', & ! fortran variable
377  'KEYWORD', & ! type
378  '', & ! shape
379  'keyword to indicate that absolute initial preconsolidation '// &
380  'stresses (head) will be specified', & ! longname
381  .false., & ! required
382  .false., & ! developmode
383  .false., & ! multi-record
384  .false., & ! preserve case
385  .false., & ! layered
386  .false. & ! timeseries
387  )
388 
389  type(inputparamdefinitiontype), parameter :: &
390  gwfcsub_delay_head = inputparamdefinitiontype &
391  ( &
392  'GWF', & ! component
393  'CSUB', & ! subcomponent
394  'OPTIONS', & ! block
395  'SPECIFIED_INITIAL_DELAY_HEAD', & ! tag name
396  'DELAY_HEAD', & ! fortran variable
397  'KEYWORD', & ! type
398  '', & ! shape
399  'keyword to indicate that absolute initial delay bed heads '// &
400  'will be specified', & ! longname
401  .false., & ! required
402  .false., & ! developmode
403  .false., & ! multi-record
404  .false., & ! preserve case
405  .false., & ! layered
406  .false. & ! timeseries
407  )
408 
409  type(inputparamdefinitiontype), parameter :: &
410  gwfcsub_stress_lag = inputparamdefinitiontype &
411  ( &
412  'GWF', & ! component
413  'CSUB', & ! subcomponent
414  'OPTIONS', & ! block
415  'EFFECTIVE_STRESS_LAG', & ! tag name
416  'STRESS_LAG', & ! fortran variable
417  'KEYWORD', & ! type
418  '', & ! shape
419  'keyword to indicate that specific storage will be calculate '// &
420  'using the effective stress from the previous time step', & ! longname
421  .false., & ! required
422  .false., & ! developmode
423  .false., & ! multi-record
424  .false., & ! preserve case
425  .false., & ! layered
426  .false. & ! timeseries
427  )
428 
429  type(inputparamdefinitiontype), parameter :: &
430  gwfcsub_strainibfr = inputparamdefinitiontype &
431  ( &
432  'GWF', & ! component
433  'CSUB', & ! subcomponent
434  'OPTIONS', & ! block
435  'STRAINIB_FILERECORD', & ! tag name
436  'STRAINIBFR', & ! fortran variable
437  'RECORD STRAIN_CSV_INTERBED FILEOUT INTERBEDSTRAIN_FILENAME', & ! type
438  '', & ! shape
439  '', & ! longname
440  .false., & ! required
441  .false., & ! developmode
442  .false., & ! multi-record
443  .false., & ! preserve case
444  .false., & ! layered
445  .false. & ! timeseries
446  )
447 
448  type(inputparamdefinitiontype), parameter :: &
449  gwfcsub_csvinterbed = inputparamdefinitiontype &
450  ( &
451  'GWF', & ! component
452  'CSUB', & ! subcomponent
453  'OPTIONS', & ! block
454  'STRAIN_CSV_INTERBED', & ! tag name
455  'CSVINTERBED', & ! fortran variable
456  'KEYWORD', & ! type
457  '', & ! shape
458  'budget keyword', & ! longname
459  .true., & ! required
460  .false., & ! developmode
461  .true., & ! multi-record
462  .false., & ! preserve case
463  .false., & ! layered
464  .false. & ! timeseries
465  )
466 
467  type(inputparamdefinitiontype), parameter :: &
468  gwfcsub_fileout = inputparamdefinitiontype &
469  ( &
470  'GWF', & ! component
471  'CSUB', & ! subcomponent
472  'OPTIONS', & ! block
473  'FILEOUT', & ! tag name
474  'FILEOUT', & ! fortran variable
475  'KEYWORD', & ! type
476  '', & ! shape
477  'file keyword', & ! longname
478  .true., & ! required
479  .false., & ! developmode
480  .true., & ! multi-record
481  .false., & ! preserve case
482  .false., & ! layered
483  .false. & ! timeseries
484  )
485 
486  type(inputparamdefinitiontype), parameter :: &
487  gwfcsub_interbedstrainfn = inputparamdefinitiontype &
488  ( &
489  'GWF', & ! component
490  'CSUB', & ! subcomponent
491  'OPTIONS', & ! block
492  'INTERBEDSTRAIN_FILENAME', & ! tag name
493  'INTERBEDSTRAINFN', & ! fortran variable
494  'STRING', & ! type
495  '', & ! shape
496  'file keyword', & ! longname
497  .true., & ! required
498  .false., & ! developmode
499  .true., & ! multi-record
500  .true., & ! preserve case
501  .false., & ! layered
502  .false. & ! timeseries
503  )
504 
505  type(inputparamdefinitiontype), parameter :: &
506  gwfcsub_straincgfr = inputparamdefinitiontype &
507  ( &
508  'GWF', & ! component
509  'CSUB', & ! subcomponent
510  'OPTIONS', & ! block
511  'STRAINCG_FILERECORD', & ! tag name
512  'STRAINCGFR', & ! fortran variable
513  'RECORD STRAIN_CSV_COARSE FILEOUT COARSESTRAIN_FILENAME', & ! type
514  '', & ! shape
515  '', & ! longname
516  .false., & ! required
517  .false., & ! developmode
518  .false., & ! multi-record
519  .false., & ! preserve case
520  .false., & ! layered
521  .false. & ! timeseries
522  )
523 
524  type(inputparamdefinitiontype), parameter :: &
525  gwfcsub_csvcoarse = inputparamdefinitiontype &
526  ( &
527  'GWF', & ! component
528  'CSUB', & ! subcomponent
529  'OPTIONS', & ! block
530  'STRAIN_CSV_COARSE', & ! tag name
531  'CSVCOARSE', & ! fortran variable
532  'KEYWORD', & ! type
533  '', & ! shape
534  'budget keyword', & ! longname
535  .true., & ! required
536  .false., & ! developmode
537  .true., & ! multi-record
538  .false., & ! preserve case
539  .false., & ! layered
540  .false. & ! timeseries
541  )
542 
543  type(inputparamdefinitiontype), parameter :: &
544  gwfcsub_coarsestrainfn = inputparamdefinitiontype &
545  ( &
546  'GWF', & ! component
547  'CSUB', & ! subcomponent
548  'OPTIONS', & ! block
549  'COARSESTRAIN_FILENAME', & ! tag name
550  'COARSESTRAINFN', & ! fortran variable
551  'STRING', & ! type
552  '', & ! shape
553  'file keyword', & ! longname
554  .true., & ! required
555  .false., & ! developmode
556  .true., & ! multi-record
557  .true., & ! preserve case
558  .false., & ! layered
559  .false. & ! timeseries
560  )
561 
562  type(inputparamdefinitiontype), parameter :: &
563  gwfcsub_cmpfr = inputparamdefinitiontype &
564  ( &
565  'GWF', & ! component
566  'CSUB', & ! subcomponent
567  'OPTIONS', & ! block
568  'COMPACTION_FILERECORD', & ! tag name
569  'CMPFR', & ! fortran variable
570  'RECORD COMPACTION FILEOUT COMPACTION_FILENAME', & ! type
571  '', & ! shape
572  '', & ! longname
573  .false., & ! required
574  .false., & ! developmode
575  .false., & ! multi-record
576  .false., & ! preserve case
577  .false., & ! layered
578  .false. & ! timeseries
579  )
580 
581  type(inputparamdefinitiontype), parameter :: &
582  gwfcsub_compaction = inputparamdefinitiontype &
583  ( &
584  'GWF', & ! component
585  'CSUB', & ! subcomponent
586  'OPTIONS', & ! block
587  'COMPACTION', & ! tag name
588  'COMPACTION', & ! fortran variable
589  'KEYWORD', & ! type
590  '', & ! shape
591  'compaction keyword', & ! longname
592  .true., & ! required
593  .false., & ! developmode
594  .true., & ! multi-record
595  .false., & ! preserve case
596  .false., & ! layered
597  .false. & ! timeseries
598  )
599 
600  type(inputparamdefinitiontype), parameter :: &
601  gwfcsub_cmpfn = inputparamdefinitiontype &
602  ( &
603  'GWF', & ! component
604  'CSUB', & ! subcomponent
605  'OPTIONS', & ! block
606  'COMPACTION_FILENAME', & ! tag name
607  'CMPFN', & ! fortran variable
608  'STRING', & ! type
609  '', & ! shape
610  'file keyword', & ! longname
611  .true., & ! required
612  .false., & ! developmode
613  .true., & ! multi-record
614  .true., & ! preserve case
615  .false., & ! layered
616  .false. & ! timeseries
617  )
618 
619  type(inputparamdefinitiontype), parameter :: &
620  gwfcsub_cmpelasticfr = inputparamdefinitiontype &
621  ( &
622  'GWF', & ! component
623  'CSUB', & ! subcomponent
624  'OPTIONS', & ! block
625  'COMPACTION_ELASTIC_FILERECORD', & ! tag name
626  'CMPELASTICFR', & ! fortran variable
627  'RECORD COMPACTION_ELASTIC FILEOUT '// &
628  'ELASTIC_COMPACTION_FILENAME', & ! type
629  '', & ! shape
630  '', & ! longname
631  .false., & ! required
632  .false., & ! developmode
633  .false., & ! multi-record
634  .false., & ! preserve case
635  .false., & ! layered
636  .false. & ! timeseries
637  )
638 
639  type(inputparamdefinitiontype), parameter :: &
640  gwfcsub_cmpelastic = inputparamdefinitiontype &
641  ( &
642  'GWF', & ! component
643  'CSUB', & ! subcomponent
644  'OPTIONS', & ! block
645  'COMPACTION_ELASTIC', & ! tag name
646  'CMPELASTIC', & ! fortran variable
647  'KEYWORD', & ! type
648  '', & ! shape
649  'elastic interbed compaction keyword', & ! longname
650  .true., & ! required
651  .false., & ! developmode
652  .true., & ! multi-record
653  .false., & ! preserve case
654  .false., & ! layered
655  .false. & ! timeseries
656  )
657 
658  type(inputparamdefinitiontype), parameter :: &
659  gwfcsub_elasticcmpfn = inputparamdefinitiontype &
660  ( &
661  'GWF', & ! component
662  'CSUB', & ! subcomponent
663  'OPTIONS', & ! block
664  'ELASTIC_COMPACTION_FILENAME', & ! tag name
665  'ELASTICCMPFN', & ! fortran variable
666  'STRING', & ! type
667  '', & ! shape
668  'file keyword', & ! longname
669  .true., & ! required
670  .false., & ! developmode
671  .true., & ! multi-record
672  .true., & ! preserve case
673  .false., & ! layered
674  .false. & ! timeseries
675  )
676 
677  type(inputparamdefinitiontype), parameter :: &
678  gwfcsub_cmpinelasticfr = inputparamdefinitiontype &
679  ( &
680  'GWF', & ! component
681  'CSUB', & ! subcomponent
682  'OPTIONS', & ! block
683  'COMPACTION_INELASTIC_FILERECORD', & ! tag name
684  'CMPINELASTICFR', & ! fortran variable
685  'RECORD COMPACTION_INELASTIC FILEOUT '// &
686  'INELASTIC_COMPACTION_FILENAME', & ! type
687  '', & ! shape
688  '', & ! longname
689  .false., & ! required
690  .false., & ! developmode
691  .false., & ! multi-record
692  .false., & ! preserve case
693  .false., & ! layered
694  .false. & ! timeseries
695  )
696 
697  type(inputparamdefinitiontype), parameter :: &
698  gwfcsub_cmpinelastic = inputparamdefinitiontype &
699  ( &
700  'GWF', & ! component
701  'CSUB', & ! subcomponent
702  'OPTIONS', & ! block
703  'COMPACTION_INELASTIC', & ! tag name
704  'CMPINELASTIC', & ! fortran variable
705  'KEYWORD', & ! type
706  '', & ! shape
707  'inelastic interbed compaction keyword', & ! longname
708  .true., & ! required
709  .false., & ! developmode
710  .true., & ! multi-record
711  .false., & ! preserve case
712  .false., & ! layered
713  .false. & ! timeseries
714  )
715 
716  type(inputparamdefinitiontype), parameter :: &
717  gwfcsub_inelasticcmpfn = inputparamdefinitiontype &
718  ( &
719  'GWF', & ! component
720  'CSUB', & ! subcomponent
721  'OPTIONS', & ! block
722  'INELASTIC_COMPACTION_FILENAME', & ! tag name
723  'INELASTICCMPFN', & ! fortran variable
724  'STRING', & ! type
725  '', & ! shape
726  'file keyword', & ! longname
727  .true., & ! required
728  .false., & ! developmode
729  .true., & ! multi-record
730  .true., & ! preserve case
731  .false., & ! layered
732  .false. & ! timeseries
733  )
734 
735  type(inputparamdefinitiontype), parameter :: &
736  gwfcsub_cmpinterbedfr = inputparamdefinitiontype &
737  ( &
738  'GWF', & ! component
739  'CSUB', & ! subcomponent
740  'OPTIONS', & ! block
741  'COMPACTION_INTERBED_FILERECORD', & ! tag name
742  'CMPINTERBEDFR', & ! fortran variable
743  'RECORD COMPACTION_INTERBED FILEOUT '// &
744  'INTERBED_COMPACTION_FILENAME', & ! type
745  '', & ! shape
746  '', & ! longname
747  .false., & ! required
748  .false., & ! developmode
749  .false., & ! multi-record
750  .false., & ! preserve case
751  .false., & ! layered
752  .false. & ! timeseries
753  )
754 
755  type(inputparamdefinitiontype), parameter :: &
756  gwfcsub_cmpinterbed = inputparamdefinitiontype &
757  ( &
758  'GWF', & ! component
759  'CSUB', & ! subcomponent
760  'OPTIONS', & ! block
761  'COMPACTION_INTERBED', & ! tag name
762  'CMPINTERBED', & ! fortran variable
763  'KEYWORD', & ! type
764  '', & ! shape
765  'interbed compaction keyword', & ! longname
766  .true., & ! required
767  .false., & ! developmode
768  .true., & ! multi-record
769  .false., & ! preserve case
770  .false., & ! layered
771  .false. & ! timeseries
772  )
773 
774  type(inputparamdefinitiontype), parameter :: &
775  gwfcsub_interbedcmpfn = inputparamdefinitiontype &
776  ( &
777  'GWF', & ! component
778  'CSUB', & ! subcomponent
779  'OPTIONS', & ! block
780  'INTERBED_COMPACTION_FILENAME', & ! tag name
781  'INTERBEDCMPFN', & ! fortran variable
782  'STRING', & ! type
783  '', & ! shape
784  'file keyword', & ! longname
785  .true., & ! required
786  .false., & ! developmode
787  .true., & ! multi-record
788  .true., & ! preserve case
789  .false., & ! layered
790  .false. & ! timeseries
791  )
792 
793  type(inputparamdefinitiontype), parameter :: &
794  gwfcsub_cmpcoarsefr = inputparamdefinitiontype &
795  ( &
796  'GWF', & ! component
797  'CSUB', & ! subcomponent
798  'OPTIONS', & ! block
799  'COMPACTION_COARSE_FILERECORD', & ! tag name
800  'CMPCOARSEFR', & ! fortran variable
801  'RECORD COMPACTION_COARSE FILEOUT COARSE_COMPACTION_FILENAME', & ! type
802  '', & ! shape
803  '', & ! longname
804  .false., & ! required
805  .false., & ! developmode
806  .false., & ! multi-record
807  .false., & ! preserve case
808  .false., & ! layered
809  .false. & ! timeseries
810  )
811 
812  type(inputparamdefinitiontype), parameter :: &
813  gwfcsub_cmpcoarse = inputparamdefinitiontype &
814  ( &
815  'GWF', & ! component
816  'CSUB', & ! subcomponent
817  'OPTIONS', & ! block
818  'COMPACTION_COARSE', & ! tag name
819  'CMPCOARSE', & ! fortran variable
820  'KEYWORD', & ! type
821  '', & ! shape
822  'coarse compaction keyword', & ! longname
823  .true., & ! required
824  .false., & ! developmode
825  .true., & ! multi-record
826  .false., & ! preserve case
827  .false., & ! layered
828  .false. & ! timeseries
829  )
830 
831  type(inputparamdefinitiontype), parameter :: &
832  gwfcsub_cmpcoarsefn = inputparamdefinitiontype &
833  ( &
834  'GWF', & ! component
835  'CSUB', & ! subcomponent
836  'OPTIONS', & ! block
837  'COARSE_COMPACTION_FILENAME', & ! tag name
838  'CMPCOARSEFN', & ! fortran variable
839  'STRING', & ! type
840  '', & ! shape
841  'file keyword', & ! longname
842  .true., & ! required
843  .false., & ! developmode
844  .true., & ! multi-record
845  .true., & ! preserve case
846  .false., & ! layered
847  .false. & ! timeseries
848  )
849 
850  type(inputparamdefinitiontype), parameter :: &
851  gwfcsub_zdispfr = inputparamdefinitiontype &
852  ( &
853  'GWF', & ! component
854  'CSUB', & ! subcomponent
855  'OPTIONS', & ! block
856  'ZDISPLACEMENT_FILERECORD', & ! tag name
857  'ZDISPFR', & ! fortran variable
858  'RECORD ZDISPLACEMENT FILEOUT ZDISPLACEMENT_FILENAME', & ! type
859  '', & ! shape
860  '', & ! longname
861  .false., & ! required
862  .false., & ! developmode
863  .false., & ! multi-record
864  .false., & ! preserve case
865  .false., & ! layered
866  .false. & ! timeseries
867  )
868 
869  type(inputparamdefinitiontype), parameter :: &
870  gwfcsub_zdisplacement = inputparamdefinitiontype &
871  ( &
872  'GWF', & ! component
873  'CSUB', & ! subcomponent
874  'OPTIONS', & ! block
875  'ZDISPLACEMENT', & ! tag name
876  'ZDISPLACEMENT', & ! fortran variable
877  'KEYWORD', & ! type
878  '', & ! shape
879  'budget keyword', & ! longname
880  .true., & ! required
881  .false., & ! developmode
882  .true., & ! multi-record
883  .false., & ! preserve case
884  .false., & ! layered
885  .false. & ! timeseries
886  )
887 
888  type(inputparamdefinitiontype), parameter :: &
889  gwfcsub_zdispfn = inputparamdefinitiontype &
890  ( &
891  'GWF', & ! component
892  'CSUB', & ! subcomponent
893  'OPTIONS', & ! block
894  'ZDISPLACEMENT_FILENAME', & ! tag name
895  'ZDISPFN', & ! fortran variable
896  'STRING', & ! type
897  '', & ! shape
898  'file keyword', & ! longname
899  .true., & ! required
900  .false., & ! developmode
901  .true., & ! multi-record
902  .true., & ! preserve case
903  .false., & ! layered
904  .false. & ! timeseries
905  )
906 
907  type(inputparamdefinitiontype), parameter :: &
908  gwfcsub_pkgconvergefr = inputparamdefinitiontype &
909  ( &
910  'GWF', & ! component
911  'CSUB', & ! subcomponent
912  'OPTIONS', & ! block
913  'PACKAGE_CONVERGENCE_FILERECORD', & ! tag name
914  'PKGCONVERGEFR', & ! fortran variable
915  'RECORD PACKAGE_CONVERGENCE FILEOUT '// &
916  'PACKAGE_CONVERGENCE_FILENAME', & ! type
917  '', & ! shape
918  '', & ! longname
919  .false., & ! required
920  .false., & ! developmode
921  .false., & ! multi-record
922  .false., & ! preserve case
923  .false., & ! layered
924  .false. & ! timeseries
925  )
926 
927  type(inputparamdefinitiontype), parameter :: &
928  gwfcsub_pkgconverge = inputparamdefinitiontype &
929  ( &
930  'GWF', & ! component
931  'CSUB', & ! subcomponent
932  'OPTIONS', & ! block
933  'PACKAGE_CONVERGENCE', & ! tag name
934  'PKGCONVERGE', & ! fortran variable
935  'KEYWORD', & ! type
936  '', & ! shape
937  'package_convergence keyword', & ! longname
938  .true., & ! required
939  .false., & ! developmode
940  .true., & ! multi-record
941  .false., & ! preserve case
942  .false., & ! layered
943  .false. & ! timeseries
944  )
945 
946  type(inputparamdefinitiontype), parameter :: &
947  gwfcsub_pkgconvergefn = inputparamdefinitiontype &
948  ( &
949  'GWF', & ! component
950  'CSUB', & ! subcomponent
951  'OPTIONS', & ! block
952  'PACKAGE_CONVERGENCE_FILENAME', & ! tag name
953  'PKGCONVERGEFN', & ! fortran variable
954  'STRING', & ! type
955  '', & ! shape
956  'file keyword', & ! longname
957  .true., & ! required
958  .false., & ! developmode
959  .true., & ! multi-record
960  .true., & ! preserve case
961  .false., & ! layered
962  .false. & ! timeseries
963  )
964 
965  type(inputparamdefinitiontype), parameter :: &
966  gwfcsub_ts_filerecord = inputparamdefinitiontype &
967  ( &
968  'GWF', & ! component
969  'CSUB', & ! subcomponent
970  'OPTIONS', & ! block
971  'TS_FILERECORD', & ! tag name
972  'TS_FILERECORD', & ! fortran variable
973  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
974  '', & ! shape
975  '', & ! longname
976  .false., & ! required
977  .false., & ! developmode
978  .false., & ! multi-record
979  .false., & ! preserve case
980  .false., & ! layered
981  .false. & ! timeseries
982  )
983 
984  type(inputparamdefinitiontype), parameter :: &
985  gwfcsub_ts6 = inputparamdefinitiontype &
986  ( &
987  'GWF', & ! component
988  'CSUB', & ! subcomponent
989  'OPTIONS', & ! block
990  'TS6', & ! tag name
991  'TS6', & ! fortran variable
992  'KEYWORD', & ! type
993  '', & ! shape
994  'head keyword', & ! longname
995  .true., & ! required
996  .false., & ! developmode
997  .true., & ! multi-record
998  .false., & ! preserve case
999  .false., & ! layered
1000  .false. & ! timeseries
1001  )
1002 
1003  type(inputparamdefinitiontype), parameter :: &
1004  gwfcsub_filein = inputparamdefinitiontype &
1005  ( &
1006  'GWF', & ! component
1007  'CSUB', & ! subcomponent
1008  'OPTIONS', & ! block
1009  'FILEIN', & ! tag name
1010  'FILEIN', & ! fortran variable
1011  'KEYWORD', & ! type
1012  '', & ! shape
1013  'file keyword', & ! longname
1014  .true., & ! required
1015  .false., & ! developmode
1016  .true., & ! multi-record
1017  .false., & ! preserve case
1018  .false., & ! layered
1019  .false. & ! timeseries
1020  )
1021 
1022  type(inputparamdefinitiontype), parameter :: &
1023  gwfcsub_ts6_filename = inputparamdefinitiontype &
1024  ( &
1025  'GWF', & ! component
1026  'CSUB', & ! subcomponent
1027  'OPTIONS', & ! block
1028  'TS6_FILENAME', & ! tag name
1029  'TS6_FILENAME', & ! fortran variable
1030  'STRING', & ! type
1031  '', & ! shape
1032  'file name of time series information', & ! longname
1033  .true., & ! required
1034  .false., & ! developmode
1035  .true., & ! multi-record
1036  .true., & ! preserve case
1037  .false., & ! layered
1038  .false. & ! timeseries
1039  )
1040 
1041  type(inputparamdefinitiontype), parameter :: &
1042  gwfcsub_obs_filerecord = inputparamdefinitiontype &
1043  ( &
1044  'GWF', & ! component
1045  'CSUB', & ! subcomponent
1046  'OPTIONS', & ! block
1047  'OBS_FILERECORD', & ! tag name
1048  'OBS_FILERECORD', & ! fortran variable
1049  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
1050  '', & ! shape
1051  '', & ! longname
1052  .false., & ! required
1053  .false., & ! developmode
1054  .false., & ! multi-record
1055  .false., & ! preserve case
1056  .false., & ! layered
1057  .false. & ! timeseries
1058  )
1059 
1060  type(inputparamdefinitiontype), parameter :: &
1061  gwfcsub_obs6 = inputparamdefinitiontype &
1062  ( &
1063  'GWF', & ! component
1064  'CSUB', & ! subcomponent
1065  'OPTIONS', & ! block
1066  'OBS6', & ! tag name
1067  'OBS6', & ! fortran variable
1068  'KEYWORD', & ! type
1069  '', & ! shape
1070  'obs keyword', & ! longname
1071  .true., & ! required
1072  .false., & ! developmode
1073  .true., & ! multi-record
1074  .false., & ! preserve case
1075  .false., & ! layered
1076  .false. & ! timeseries
1077  )
1078 
1079  type(inputparamdefinitiontype), parameter :: &
1080  gwfcsub_obs6_filename = inputparamdefinitiontype &
1081  ( &
1082  'GWF', & ! component
1083  'CSUB', & ! subcomponent
1084  'OPTIONS', & ! block
1085  'OBS6_FILENAME', & ! tag name
1086  'OBS6_FILENAME', & ! fortran variable
1087  'STRING', & ! type
1088  '', & ! shape
1089  'obs6 input filename', & ! longname
1090  .true., & ! required
1091  .false., & ! developmode
1092  .true., & ! multi-record
1093  .true., & ! preserve case
1094  .false., & ! layered
1095  .false. & ! timeseries
1096  )
1097 
1098  type(inputparamdefinitiontype), parameter :: &
1099  gwfcsub_ninterbeds = inputparamdefinitiontype &
1100  ( &
1101  'GWF', & ! component
1102  'CSUB', & ! subcomponent
1103  'DIMENSIONS', & ! block
1104  'NINTERBEDS', & ! tag name
1105  'NINTERBEDS', & ! fortran variable
1106  'INTEGER', & ! type
1107  '', & ! shape
1108  'number of CSUB interbed systems', & ! longname
1109  .true., & ! required
1110  .false., & ! developmode
1111  .false., & ! multi-record
1112  .false., & ! preserve case
1113  .false., & ! layered
1114  .false. & ! timeseries
1115  )
1116 
1117  type(inputparamdefinitiontype), parameter :: &
1118  gwfcsub_maxbound = inputparamdefinitiontype &
1119  ( &
1120  'GWF', & ! component
1121  'CSUB', & ! subcomponent
1122  'DIMENSIONS', & ! block
1123  'MAXSIG0', & ! tag name
1124  'MAXBOUND', & ! fortran variable
1125  'INTEGER', & ! type
1126  '', & ! shape
1127  'maximum number of stress offset cells', & ! longname
1128  .false., & ! required
1129  .false., & ! developmode
1130  .false., & ! multi-record
1131  .false., & ! preserve case
1132  .false., & ! layered
1133  .false. & ! timeseries
1134  )
1135 
1136  type(inputparamdefinitiontype), parameter :: &
1137  gwfcsub_cg_ske_cr = inputparamdefinitiontype &
1138  ( &
1139  'GWF', & ! component
1140  'CSUB', & ! subcomponent
1141  'GRIDDATA', & ! block
1142  'CG_SKE_CR', & ! tag name
1143  'CG_SKE_CR', & ! fortran variable
1144  'DOUBLE1D', & ! type
1145  'NODES', & ! shape
1146  'elastic coarse specific storage', & ! longname
1147  .true., & ! required
1148  .false., & ! developmode
1149  .false., & ! multi-record
1150  .false., & ! preserve case
1151  .true., & ! layered
1152  .false. & ! timeseries
1153  )
1154 
1155  type(inputparamdefinitiontype), parameter :: &
1156  gwfcsub_cg_theta = inputparamdefinitiontype &
1157  ( &
1158  'GWF', & ! component
1159  'CSUB', & ! subcomponent
1160  'GRIDDATA', & ! block
1161  'CG_THETA', & ! tag name
1162  'CG_THETA', & ! fortran variable
1163  'DOUBLE1D', & ! type
1164  'NODES', & ! shape
1165  'initial coarse-grained material porosity', & ! longname
1166  .true., & ! required
1167  .false., & ! developmode
1168  .false., & ! multi-record
1169  .false., & ! preserve case
1170  .true., & ! layered
1171  .false. & ! timeseries
1172  )
1173 
1174  type(inputparamdefinitiontype), parameter :: &
1175  gwfcsub_sgm = inputparamdefinitiontype &
1176  ( &
1177  'GWF', & ! component
1178  'CSUB', & ! subcomponent
1179  'GRIDDATA', & ! block
1180  'SGM', & ! tag name
1181  'SGM', & ! fortran variable
1182  'DOUBLE1D', & ! type
1183  'NODES', & ! shape
1184  'specific gravity of moist sediments', & ! longname
1185  .false., & ! required
1186  .false., & ! developmode
1187  .false., & ! multi-record
1188  .false., & ! preserve case
1189  .true., & ! layered
1190  .false. & ! timeseries
1191  )
1192 
1193  type(inputparamdefinitiontype), parameter :: &
1194  gwfcsub_sgs = inputparamdefinitiontype &
1195  ( &
1196  'GWF', & ! component
1197  'CSUB', & ! subcomponent
1198  'GRIDDATA', & ! block
1199  'SGS', & ! tag name
1200  'SGS', & ! fortran variable
1201  'DOUBLE1D', & ! type
1202  'NODES', & ! shape
1203  'specific gravity of saturated sediments', & ! longname
1204  .false., & ! required
1205  .false., & ! developmode
1206  .false., & ! multi-record
1207  .false., & ! preserve case
1208  .true., & ! layered
1209  .false. & ! timeseries
1210  )
1211 
1212  type(inputparamdefinitiontype), parameter :: &
1213  gwfcsub_icsubno = inputparamdefinitiontype &
1214  ( &
1215  'GWF', & ! component
1216  'CSUB', & ! subcomponent
1217  'PACKAGEDATA', & ! block
1218  'ICSUBNO', & ! tag name
1219  'ICSUBNO', & ! fortran variable
1220  'INTEGER', & ! type
1221  '', & ! shape
1222  'CSUB id number for this entry', & ! longname
1223  .true., & ! required
1224  .false., & ! developmode
1225  .true., & ! multi-record
1226  .false., & ! preserve case
1227  .false., & ! layered
1228  .false. & ! timeseries
1229  )
1230 
1231  type(inputparamdefinitiontype), parameter :: &
1232  gwfcsub_cellid_pkgdata = inputparamdefinitiontype &
1233  ( &
1234  'GWF', & ! component
1235  'CSUB', & ! subcomponent
1236  'PACKAGEDATA', & ! block
1237  'CELLID', & ! tag name
1238  'CELLID_PKGDATA', & ! fortran variable
1239  'INTEGER1D', & ! type
1240  'NCELLDIM', & ! shape
1241  'cell identifier', & ! longname
1242  .true., & ! required
1243  .false., & ! developmode
1244  .true., & ! multi-record
1245  .false., & ! preserve case
1246  .false., & ! layered
1247  .false. & ! timeseries
1248  )
1249 
1250  type(inputparamdefinitiontype), parameter :: &
1251  gwfcsub_cdelay = inputparamdefinitiontype &
1252  ( &
1253  'GWF', & ! component
1254  'CSUB', & ! subcomponent
1255  'PACKAGEDATA', & ! block
1256  'CDELAY', & ! tag name
1257  'CDELAY', & ! fortran variable
1258  'STRING', & ! type
1259  '', & ! shape
1260  'delay type', & ! longname
1261  .true., & ! required
1262  .false., & ! developmode
1263  .true., & ! multi-record
1264  .false., & ! preserve case
1265  .false., & ! layered
1266  .false. & ! timeseries
1267  )
1268 
1269  type(inputparamdefinitiontype), parameter :: &
1270  gwfcsub_pcs0 = inputparamdefinitiontype &
1271  ( &
1272  'GWF', & ! component
1273  'CSUB', & ! subcomponent
1274  'PACKAGEDATA', & ! block
1275  'PCS0', & ! tag name
1276  'PCS0', & ! fortran variable
1277  'DOUBLE', & ! type
1278  '', & ! shape
1279  'initial stress', & ! longname
1280  .true., & ! required
1281  .false., & ! developmode
1282  .true., & ! multi-record
1283  .false., & ! preserve case
1284  .false., & ! layered
1285  .false. & ! timeseries
1286  )
1287 
1288  type(inputparamdefinitiontype), parameter :: &
1289  gwfcsub_thick_frac = inputparamdefinitiontype &
1290  ( &
1291  'GWF', & ! component
1292  'CSUB', & ! subcomponent
1293  'PACKAGEDATA', & ! block
1294  'THICK_FRAC', & ! tag name
1295  'THICK_FRAC', & ! fortran variable
1296  'DOUBLE', & ! type
1297  '', & ! shape
1298  'interbed thickness or cell fraction', & ! longname
1299  .true., & ! required
1300  .false., & ! developmode
1301  .true., & ! multi-record
1302  .false., & ! preserve case
1303  .false., & ! layered
1304  .false. & ! timeseries
1305  )
1306 
1307  type(inputparamdefinitiontype), parameter :: &
1308  gwfcsub_rnb = inputparamdefinitiontype &
1309  ( &
1310  'GWF', & ! component
1311  'CSUB', & ! subcomponent
1312  'PACKAGEDATA', & ! block
1313  'RNB', & ! tag name
1314  'RNB', & ! fortran variable
1315  'DOUBLE', & ! type
1316  '', & ! shape
1317  'delay interbed material factor', & ! longname
1318  .true., & ! required
1319  .false., & ! developmode
1320  .true., & ! multi-record
1321  .false., & ! preserve case
1322  .false., & ! layered
1323  .false. & ! timeseries
1324  )
1325 
1326  type(inputparamdefinitiontype), parameter :: &
1327  gwfcsub_ssv_cc = inputparamdefinitiontype &
1328  ( &
1329  'GWF', & ! component
1330  'CSUB', & ! subcomponent
1331  'PACKAGEDATA', & ! block
1332  'SSV_CC', & ! tag name
1333  'SSV_CC', & ! fortran variable
1334  'DOUBLE', & ! type
1335  '', & ! shape
1336  'initial interbed inelastic specific storage', & ! longname
1337  .true., & ! required
1338  .false., & ! developmode
1339  .true., & ! multi-record
1340  .false., & ! preserve case
1341  .false., & ! layered
1342  .false. & ! timeseries
1343  )
1344 
1345  type(inputparamdefinitiontype), parameter :: &
1346  gwfcsub_sse_cr = inputparamdefinitiontype &
1347  ( &
1348  'GWF', & ! component
1349  'CSUB', & ! subcomponent
1350  'PACKAGEDATA', & ! block
1351  'SSE_CR', & ! tag name
1352  'SSE_CR', & ! fortran variable
1353  'DOUBLE', & ! type
1354  '', & ! shape
1355  'initial interbed elastic specific storage', & ! longname
1356  .true., & ! required
1357  .false., & ! developmode
1358  .true., & ! multi-record
1359  .false., & ! preserve case
1360  .false., & ! layered
1361  .false. & ! timeseries
1362  )
1363 
1364  type(inputparamdefinitiontype), parameter :: &
1365  gwfcsub_theta = inputparamdefinitiontype &
1366  ( &
1367  'GWF', & ! component
1368  'CSUB', & ! subcomponent
1369  'PACKAGEDATA', & ! block
1370  'THETA', & ! tag name
1371  'THETA', & ! fortran variable
1372  'DOUBLE', & ! type
1373  '', & ! shape
1374  'initial interbed porosity', & ! longname
1375  .true., & ! required
1376  .false., & ! developmode
1377  .true., & ! multi-record
1378  .false., & ! preserve case
1379  .false., & ! layered
1380  .false. & ! timeseries
1381  )
1382 
1383  type(inputparamdefinitiontype), parameter :: &
1384  gwfcsub_kv = inputparamdefinitiontype &
1385  ( &
1386  'GWF', & ! component
1387  'CSUB', & ! subcomponent
1388  'PACKAGEDATA', & ! block
1389  'KV', & ! tag name
1390  'KV', & ! fortran variable
1391  'DOUBLE', & ! type
1392  '', & ! shape
1393  'delay interbed vertical hydraulic conductivity', & ! longname
1394  .true., & ! required
1395  .false., & ! developmode
1396  .true., & ! multi-record
1397  .false., & ! preserve case
1398  .false., & ! layered
1399  .false. & ! timeseries
1400  )
1401 
1402  type(inputparamdefinitiontype), parameter :: &
1403  gwfcsub_h0 = inputparamdefinitiontype &
1404  ( &
1405  'GWF', & ! component
1406  'CSUB', & ! subcomponent
1407  'PACKAGEDATA', & ! block
1408  'H0', & ! tag name
1409  'H0', & ! fortran variable
1410  'DOUBLE', & ! type
1411  '', & ! shape
1412  'initial delay interbed head', & ! longname
1413  .true., & ! required
1414  .false., & ! developmode
1415  .true., & ! multi-record
1416  .false., & ! preserve case
1417  .false., & ! layered
1418  .false. & ! timeseries
1419  )
1420 
1421  type(inputparamdefinitiontype), parameter :: &
1422  gwfcsub_boundname = inputparamdefinitiontype &
1423  ( &
1424  'GWF', & ! component
1425  'CSUB', & ! subcomponent
1426  'PACKAGEDATA', & ! block
1427  'BOUNDNAME', & ! tag name
1428  'BOUNDNAME', & ! fortran variable
1429  'STRING', & ! type
1430  '', & ! shape
1431  'interbed name', & ! longname
1432  .false., & ! required
1433  .false., & ! developmode
1434  .true., & ! multi-record
1435  .false., & ! preserve case
1436  .false., & ! layered
1437  .false. & ! timeseries
1438  )
1439 
1440  type(inputparamdefinitiontype), parameter :: &
1441  gwfcsub_cellid = inputparamdefinitiontype &
1442  ( &
1443  'GWF', & ! component
1444  'CSUB', & ! subcomponent
1445  'PERIOD', & ! block
1446  'CELLID', & ! tag name
1447  'CELLID', & ! fortran variable
1448  'INTEGER1D', & ! type
1449  'NCELLDIM', & ! shape
1450  'cell identifier', & ! longname
1451  .true., & ! required
1452  .false., & ! developmode
1453  .true., & ! multi-record
1454  .false., & ! preserve case
1455  .false., & ! layered
1456  .false. & ! timeseries
1457  )
1458 
1459  type(inputparamdefinitiontype), parameter :: &
1460  gwfcsub_sig0 = inputparamdefinitiontype &
1461  ( &
1462  'GWF', & ! component
1463  'CSUB', & ! subcomponent
1464  'PERIOD', & ! block
1465  'SIG0', & ! tag name
1466  'SIG0', & ! fortran variable
1467  'DOUBLE', & ! type
1468  '', & ! shape
1469  'geostatic stress offset', & ! longname
1470  .true., & ! required
1471  .false., & ! developmode
1472  .true., & ! multi-record
1473  .false., & ! preserve case
1474  .false., & ! layered
1475  .true. & ! timeseries
1476  )
1477 
1478  type(inputparamdefinitiontype), parameter :: &
1479  gwf_csub_param_definitions(*) = &
1480  [ &
1481  gwfcsub_boundnames, &
1482  gwfcsub_print_input, &
1483  gwfcsub_save_flows, &
1484  gwfcsub_gammaw, &
1485  gwfcsub_beta, &
1486  gwfcsub_ei_smoothing, &
1487  gwfcsub_strict_stress, &
1488  gwfcsub_head_based, &
1489  gwfcsub_precon_head, &
1490  gwfcsub_ndelaycells, &
1491  gwfcsub_icompress, &
1492  gwfcsub_matprop, &
1493  gwfcsub_cell_fraction, &
1494  gwfcsub_interbed_state, &
1495  gwfcsub_precon_stress, &
1496  gwfcsub_delay_head, &
1497  gwfcsub_stress_lag, &
1498  gwfcsub_strainibfr, &
1499  gwfcsub_csvinterbed, &
1500  gwfcsub_fileout, &
1501  gwfcsub_interbedstrainfn, &
1502  gwfcsub_straincgfr, &
1503  gwfcsub_csvcoarse, &
1504  gwfcsub_coarsestrainfn, &
1505  gwfcsub_cmpfr, &
1506  gwfcsub_compaction, &
1507  gwfcsub_cmpfn, &
1508  gwfcsub_cmpelasticfr, &
1509  gwfcsub_cmpelastic, &
1510  gwfcsub_elasticcmpfn, &
1511  gwfcsub_cmpinelasticfr, &
1512  gwfcsub_cmpinelastic, &
1513  gwfcsub_inelasticcmpfn, &
1514  gwfcsub_cmpinterbedfr, &
1515  gwfcsub_cmpinterbed, &
1516  gwfcsub_interbedcmpfn, &
1517  gwfcsub_cmpcoarsefr, &
1518  gwfcsub_cmpcoarse, &
1519  gwfcsub_cmpcoarsefn, &
1520  gwfcsub_zdispfr, &
1521  gwfcsub_zdisplacement, &
1522  gwfcsub_zdispfn, &
1523  gwfcsub_pkgconvergefr, &
1524  gwfcsub_pkgconverge, &
1525  gwfcsub_pkgconvergefn, &
1526  gwfcsub_ts_filerecord, &
1527  gwfcsub_ts6, &
1528  gwfcsub_filein, &
1529  gwfcsub_ts6_filename, &
1530  gwfcsub_obs_filerecord, &
1531  gwfcsub_obs6, &
1532  gwfcsub_obs6_filename, &
1533  gwfcsub_ninterbeds, &
1534  gwfcsub_maxbound, &
1535  gwfcsub_cg_ske_cr, &
1536  gwfcsub_cg_theta, &
1537  gwfcsub_sgm, &
1538  gwfcsub_sgs, &
1539  gwfcsub_icsubno, &
1540  gwfcsub_cellid_pkgdata, &
1541  gwfcsub_cdelay, &
1542  gwfcsub_pcs0, &
1543  gwfcsub_thick_frac, &
1544  gwfcsub_rnb, &
1545  gwfcsub_ssv_cc, &
1546  gwfcsub_sse_cr, &
1547  gwfcsub_theta, &
1548  gwfcsub_kv, &
1549  gwfcsub_h0, &
1550  gwfcsub_boundname, &
1551  gwfcsub_cellid, &
1552  gwfcsub_sig0 &
1553  ]
1554 
1555  type(inputparamdefinitiontype), parameter :: &
1556  gwfcsub_packagedata = inputparamdefinitiontype &
1557  ( &
1558  'GWF', & ! component
1559  'CSUB', & ! subcomponent
1560  'PACKAGEDATA', & ! block
1561  'PACKAGEDATA', & ! tag name
1562  'PACKAGEDATA', & ! fortran variable
1563  'RECARRAY ICSUBNO CELLID CDELAY PCS0 THICK_FRAC RNB SSV_CC '// &
1564  'SSE_CR THETA KV H0 BOUNDNAME', & ! type
1565  'NINTERBEDS', & ! shape
1566  '', & ! longname
1567  .false., & ! required
1568  .false., & ! developmode
1569  .false., & ! multi-record
1570  .false., & ! preserve case
1571  .false., & ! layered
1572  .false. & ! timeseries
1573  )
1574 
1575  type(inputparamdefinitiontype), parameter :: &
1576  gwfcsub_spd = inputparamdefinitiontype &
1577  ( &
1578  'GWF', & ! component
1579  'CSUB', & ! subcomponent
1580  'PERIOD', & ! block
1581  'STRESS_PERIOD_DATA', & ! tag name
1582  'SPD', & ! fortran variable
1583  'RECARRAY CELLID SIG0', & ! type
1584  'MAXSIG0', & ! shape
1585  '', & ! longname
1586  .true., & ! required
1587  .false., & ! developmode
1588  .false., & ! multi-record
1589  .false., & ! preserve case
1590  .false., & ! layered
1591  .false. & ! timeseries
1592  )
1593 
1594  type(inputparamdefinitiontype), parameter :: &
1595  gwf_csub_aggregate_definitions(*) = &
1596  [ &
1597  gwfcsub_packagedata, &
1598  gwfcsub_spd &
1599  ]
1600 
1601  type(inputblockdefinitiontype), parameter :: &
1602  gwf_csub_block_definitions(*) = &
1603  [ &
1604  inputblockdefinitiontype( &
1605  'OPTIONS', & ! blockname
1606  .false., & ! required
1607  .false., & ! aggregate
1608  .false. & ! block_variable
1609  ), &
1610  inputblockdefinitiontype( &
1611  'DIMENSIONS', & ! blockname
1612  .true., & ! required
1613  .false., & ! aggregate
1614  .false. & ! block_variable
1615  ), &
1616  inputblockdefinitiontype( &
1617  'GRIDDATA', & ! blockname
1618  .true., & ! required
1619  .false., & ! aggregate
1620  .false. & ! block_variable
1621  ), &
1622  inputblockdefinitiontype( &
1623  'PACKAGEDATA', & ! blockname
1624  .false., & ! required
1625  .true., & ! aggregate
1626  .false. & ! block_variable
1627  ), &
1628  inputblockdefinitiontype( &
1629  'PERIOD', & ! blockname
1630  .true., & ! required
1631  .true., & ! aggregate
1632  .true. & ! block_variable
1633  ) &
1634  ]
1635 
1636 end module gwfcsubinputmodule
constantsmodule
This module contains simulation constants.
Definition: Constants.f90:9
constantsmodule::lenvarname
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
gwfcsubinputmodule::gwfcsub_filein
type(inputparamdefinitiontype), parameter gwfcsub_filein
Definition: gwf-csubidm.f90:1003
gwfcsubinputmodule::gwfcsub_zdispfn
type(inputparamdefinitiontype), parameter gwfcsub_zdispfn
Definition: gwf-csubidm.f90:888
gwfcsubinputmodule::gwfcsub_pcs0
type(inputparamdefinitiontype), parameter gwfcsub_pcs0
Definition: gwf-csubidm.f90:1269
gwfcsubinputmodule::gwfcsub_straincgfr
type(inputparamdefinitiontype), parameter gwfcsub_straincgfr
Definition: gwf-csubidm.f90:505
gwfcsubinputmodule::gwfcsub_pkgconverge
type(inputparamdefinitiontype), parameter gwfcsub_pkgconverge
Definition: gwf-csubidm.f90:927
gwfcsubinputmodule::gwfcsub_strict_stress
type(inputparamdefinitiontype), parameter gwfcsub_strict_stress
Definition: gwf-csubidm.f90:213
gwfcsubinputmodule::gwfcsub_icompress
type(inputparamdefinitiontype), parameter gwfcsub_icompress
Definition: gwf-csubidm.f90:290
gwfcsubinputmodule::gwfcsub_interbedstrainfn
type(inputparamdefinitiontype), parameter gwfcsub_interbedstrainfn
Definition: gwf-csubidm.f90:486
gwfcsubinputmodule::gwf_csub_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_csub_aggregate_definitions
Definition: gwf-csubidm.f90:1594
gwfcsubinputmodule::gwfcsub_stress_lag
type(inputparamdefinitiontype), parameter gwfcsub_stress_lag
Definition: gwf-csubidm.f90:409
gwfcsubinputmodule::gwfcsub_cg_theta
type(inputparamdefinitiontype), parameter gwfcsub_cg_theta
Definition: gwf-csubidm.f90:1155
gwfcsubinputmodule::gwfcsub_cmpelasticfr
type(inputparamdefinitiontype), parameter gwfcsub_cmpelasticfr
Definition: gwf-csubidm.f90:619
gwfcsubinputmodule::gwfcsub_h0
type(inputparamdefinitiontype), parameter gwfcsub_h0
Definition: gwf-csubidm.f90:1402
gwfcsubinputmodule::gwfcsub_cellid_pkgdata
type(inputparamdefinitiontype), parameter gwfcsub_cellid_pkgdata
Definition: gwf-csubidm.f90:1231
gwfcsubinputmodule::gwfcsub_pkgconvergefn
type(inputparamdefinitiontype), parameter gwfcsub_pkgconvergefn
Definition: gwf-csubidm.f90:946
gwfcsubinputmodule::gwfcsub_kv
type(inputparamdefinitiontype), parameter gwfcsub_kv
Definition: gwf-csubidm.f90:1383
gwfcsubinputmodule::gwf_csub_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_csub_param_definitions
Definition: gwf-csubidm.f90:1478
gwfcsubinputmodule::gwfcsub_cmpfr
type(inputparamdefinitiontype), parameter gwfcsub_cmpfr
Definition: gwf-csubidm.f90:562
gwfcsubinputmodule::gwfcsub_csvinterbed
type(inputparamdefinitiontype), parameter gwfcsub_csvinterbed
Definition: gwf-csubidm.f90:448
gwfcsubinputmodule::gwfcsub_cellid
type(inputparamdefinitiontype), parameter gwfcsub_cellid
Definition: gwf-csubidm.f90:1440
gwfcsubinputmodule::gwfcsub_elasticcmpfn
type(inputparamdefinitiontype), parameter gwfcsub_elasticcmpfn
Definition: gwf-csubidm.f90:658
gwfcsubinputmodule::gwfcsub_precon_head
type(inputparamdefinitiontype), parameter gwfcsub_precon_head
Definition: gwf-csubidm.f90:251
gwfcsubinputmodule::gwfcsub_cmpinterbedfr
type(inputparamdefinitiontype), parameter gwfcsub_cmpinterbedfr
Definition: gwf-csubidm.f90:735
gwfcsubinputmodule::gwfcsub_sgm
type(inputparamdefinitiontype), parameter gwfcsub_sgm
Definition: gwf-csubidm.f90:1174
gwfcsubinputmodule::gwfcsub_spd
type(inputparamdefinitiontype), parameter gwfcsub_spd
Definition: gwf-csubidm.f90:1575
gwfcsubinputmodule::gwfcsub_cmpinelasticfr
type(inputparamdefinitiontype), parameter gwfcsub_cmpinelasticfr
Definition: gwf-csubidm.f90:677
gwfcsubinputmodule::gwfcsub_cell_fraction
type(inputparamdefinitiontype), parameter gwfcsub_cell_fraction
Definition: gwf-csubidm.f90:330
gwfcsubinputmodule::gwfcsub_pkgconvergefr
type(inputparamdefinitiontype), parameter gwfcsub_pkgconvergefr
Definition: gwf-csubidm.f90:907
gwfcsubinputmodule::gwfcsub_ssv_cc
type(inputparamdefinitiontype), parameter gwfcsub_ssv_cc
Definition: gwf-csubidm.f90:1326
gwfcsubinputmodule::gwfcsub_cmpcoarsefn
type(inputparamdefinitiontype), parameter gwfcsub_cmpcoarsefn
Definition: gwf-csubidm.f90:831
gwfcsubinputmodule::gwf_csub_subpackages
character(len=16), dimension(*), parameter, public gwf_csub_subpackages
Definition: gwf-csubidm.f90:93
gwfcsubinputmodule::gwfcsub_precon_stress
type(inputparamdefinitiontype), parameter gwfcsub_precon_stress
Definition: gwf-csubidm.f90:369
gwfcsubinputmodule::gwfcsub_cmpfn
type(inputparamdefinitiontype), parameter gwfcsub_cmpfn
Definition: gwf-csubidm.f90:600
gwfcsubinputmodule::gwfcsub_ninterbeds
type(inputparamdefinitiontype), parameter gwfcsub_ninterbeds
Definition: gwf-csubidm.f90:1098
gwfcsubinputmodule::gwfcsub_rnb
type(inputparamdefinitiontype), parameter gwfcsub_rnb
Definition: gwf-csubidm.f90:1307
gwfcsubinputmodule::gwfcsub_save_flows
type(inputparamdefinitiontype), parameter gwfcsub_save_flows
Definition: gwf-csubidm.f90:137
gwfcsubinputmodule::gwfcsub_sig0
type(inputparamdefinitiontype), parameter gwfcsub_sig0
Definition: gwf-csubidm.f90:1459
gwfcsubinputmodule::gwfcsub_obs6
type(inputparamdefinitiontype), parameter gwfcsub_obs6
Definition: gwf-csubidm.f90:1060
gwfcsubinputmodule::gwfcsub_ts6_filename
type(inputparamdefinitiontype), parameter gwfcsub_ts6_filename
Definition: gwf-csubidm.f90:1022
gwfcsubinputmodule::gwfcsub_compaction
type(inputparamdefinitiontype), parameter gwfcsub_compaction
Definition: gwf-csubidm.f90:581
gwfcsubinputmodule::gwfcsub_head_based
type(inputparamdefinitiontype), parameter gwfcsub_head_based
Definition: gwf-csubidm.f90:232
gwfcsubinputmodule::gwfcsub_beta
type(inputparamdefinitiontype), parameter gwfcsub_beta
Definition: gwf-csubidm.f90:175
gwfcsubinputmodule::gwfcsub_sse_cr
type(inputparamdefinitiontype), parameter gwfcsub_sse_cr
Definition: gwf-csubidm.f90:1345
gwfcsubinputmodule::gwfcsub_ts_filerecord
type(inputparamdefinitiontype), parameter gwfcsub_ts_filerecord
Definition: gwf-csubidm.f90:965
gwfcsubinputmodule::gwfcsub_cmpelastic
type(inputparamdefinitiontype), parameter gwfcsub_cmpelastic
Definition: gwf-csubidm.f90:639
gwfcsubinputmodule::gwfcsub_zdispfr
type(inputparamdefinitiontype), parameter gwfcsub_zdispfr
Definition: gwf-csubidm.f90:850
gwfcsubinputmodule::gwfcsub_strainibfr
type(inputparamdefinitiontype), parameter gwfcsub_strainibfr
Definition: gwf-csubidm.f90:429
gwfcsubinputmodule::gwf_csub_is_advanced
logical, public gwf_csub_is_advanced
Definition: gwf-csubidm.f90:91
gwfcsubinputmodule::gwfcsub_icsubno
type(inputparamdefinitiontype), parameter gwfcsub_icsubno
Definition: gwf-csubidm.f90:1212
gwfcsubinputmodule::gwf_csub_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_csub_block_definitions
Definition: gwf-csubidm.f90:1601
gwfcsubinputmodule::gwfcsub_ts6
type(inputparamdefinitiontype), parameter gwfcsub_ts6
Definition: gwf-csubidm.f90:984
gwfcsubinputmodule::gwfcsub_ei_smoothing
type(inputparamdefinitiontype), parameter gwfcsub_ei_smoothing
Definition: gwf-csubidm.f90:194
gwfcsubinputmodule::gwfcsub_coarsestrainfn
type(inputparamdefinitiontype), parameter gwfcsub_coarsestrainfn
Definition: gwf-csubidm.f90:543
gwfcsubinputmodule::gwfcsub_cmpinelastic
type(inputparamdefinitiontype), parameter gwfcsub_cmpinelastic
Definition: gwf-csubidm.f90:697
gwfcsubinputmodule::gwfcsub_print_input
type(inputparamdefinitiontype), parameter gwfcsub_print_input
Definition: gwf-csubidm.f90:118
gwfcsubinputmodule::gwfcsub_gammaw
type(inputparamdefinitiontype), parameter gwfcsub_gammaw
Definition: gwf-csubidm.f90:156
gwfcsubinputmodule::gwf_csub_multi_package
logical, public gwf_csub_multi_package
Definition: gwf-csubidm.f90:90
gwfcsubinputmodule::gwfcsub_interbedcmpfn
type(inputparamdefinitiontype), parameter gwfcsub_interbedcmpfn
Definition: gwf-csubidm.f90:774
gwfcsubinputmodule::gwfcsub_matprop
type(inputparamdefinitiontype), parameter gwfcsub_matprop
Definition: gwf-csubidm.f90:310
gwfcsubinputmodule::gwfcsub_boundnames
type(inputparamdefinitiontype), parameter gwfcsub_boundnames
Definition: gwf-csubidm.f90:99
gwfcsubinputmodule::gwfcsub_obs6_filename
type(inputparamdefinitiontype), parameter gwfcsub_obs6_filename
Definition: gwf-csubidm.f90:1079
gwfcsubinputmodule::gwfcsub_boundname
type(inputparamdefinitiontype), parameter gwfcsub_boundname
Definition: gwf-csubidm.f90:1421
gwfcsubinputmodule::gwfcsub_zdisplacement
type(inputparamdefinitiontype), parameter gwfcsub_zdisplacement
Definition: gwf-csubidm.f90:869
gwfcsubinputmodule::gwfcsub_interbed_state
type(inputparamdefinitiontype), parameter gwfcsub_interbed_state
Definition: gwf-csubidm.f90:349
gwfcsubinputmodule::gwfcsub_obs_filerecord
type(inputparamdefinitiontype), parameter gwfcsub_obs_filerecord
Definition: gwf-csubidm.f90:1041
gwfcsubinputmodule::gwfcsub_cmpcoarsefr
type(inputparamdefinitiontype), parameter gwfcsub_cmpcoarsefr
Definition: gwf-csubidm.f90:793
gwfcsubinputmodule::gwfcsub_fileout
type(inputparamdefinitiontype), parameter gwfcsub_fileout
Definition: gwf-csubidm.f90:467
gwfcsubinputmodule::gwfcsub_csvcoarse
type(inputparamdefinitiontype), parameter gwfcsub_csvcoarse
Definition: gwf-csubidm.f90:524
gwfcsubinputmodule::gwfcsub_sgs
type(inputparamdefinitiontype), parameter gwfcsub_sgs
Definition: gwf-csubidm.f90:1193
gwfcsubinputmodule::gwfcsub_cdelay
type(inputparamdefinitiontype), parameter gwfcsub_cdelay
Definition: gwf-csubidm.f90:1250
gwfcsubinputmodule::gwfcsub_theta
type(inputparamdefinitiontype), parameter gwfcsub_theta
Definition: gwf-csubidm.f90:1364
gwfcsubinputmodule::gwfcsub_cmpinterbed
type(inputparamdefinitiontype), parameter gwfcsub_cmpinterbed
Definition: gwf-csubidm.f90:755
gwfcsubinputmodule::gwfcsub_inelasticcmpfn
type(inputparamdefinitiontype), parameter gwfcsub_inelasticcmpfn
Definition: gwf-csubidm.f90:716
gwfcsubinputmodule::gwfcsub_maxbound
type(inputparamdefinitiontype), parameter gwfcsub_maxbound
Definition: gwf-csubidm.f90:1117
gwfcsubinputmodule::gwfcsub_ndelaycells
type(inputparamdefinitiontype), parameter gwfcsub_ndelaycells
Definition: gwf-csubidm.f90:271
gwfcsubinputmodule::gwfcsub_packagedata
type(inputparamdefinitiontype), parameter gwfcsub_packagedata
Definition: gwf-csubidm.f90:1555
gwfcsubinputmodule::gwfcsub_thick_frac
type(inputparamdefinitiontype), parameter gwfcsub_thick_frac
Definition: gwf-csubidm.f90:1288
gwfcsubinputmodule::gwfcsub_cg_ske_cr
type(inputparamdefinitiontype), parameter gwfcsub_cg_ske_cr
Definition: gwf-csubidm.f90:1136
gwfcsubinputmodule::gwfcsub_cmpcoarse
type(inputparamdefinitiontype), parameter gwfcsub_cmpcoarse
Definition: gwf-csubidm.f90:812
gwfcsubinputmodule::gwfcsub_delay_head
type(inputparamdefinitiontype), parameter gwfcsub_delay_head
Definition: gwf-csubidm.f90:389
inputdefinitionmodule
Input definition module.
Definition: InputDefinition.f90:7
inputdefinitionmodule::inputblockdefinitiontype
Input block definition. Describes an input block.
Definition: InputDefinition.f90:36
inputdefinitionmodule::inputparamdefinitiontype
Input parameter definition. Describes an input parameter.
Definition: InputDefinition.f90:18