MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
gwf-ocidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
3  use constantsmodule, only: lenvarname
6  private
10  public gwfocparamfoundtype
12  public gwf_oc_is_advanced
13  public gwf_oc_subpackages
14 
16  logical :: budfilerec = .false.
17  logical :: budget = .false.
18  logical :: fileout = .false.
19  logical :: budgetfile = .false.
20  logical :: budcsvfilerec = .false.
21  logical :: budgetcsv = .false.
22  logical :: budgetcsvfile = .false.
23  logical :: headfilerec = .false.
24  logical :: head = .false.
25  logical :: headfile = .false.
26  logical :: headprintrec = .false.
27  logical :: print_format = .false.
28  logical :: formatrecord = .false.
29  logical :: columns = .false.
30  logical :: width = .false.
31  logical :: digits = .false.
32  logical :: format = .false.
33  logical :: saverecord = .false.
34  logical :: save = .false.
35  logical :: printrecord = .false.
36  logical :: print = .false.
37  logical :: rtype = .false.
38  logical :: all = .false.
39  logical :: first = .false.
40  logical :: last = .false.
41  logical :: frequency = .false.
42  logical :: steps = .false.
43  end type gwfocparamfoundtype
44 
45  logical :: gwf_oc_multi_package = .false.
46  logical :: gwf_oc_is_advanced = .false.
47 
48  character(len=16), parameter :: &
49  gwf_oc_subpackages(*) = &
50  [ &
51  ' ' &
52  ]
53 
54  type(inputparamdefinitiontype), parameter :: &
56  ( &
57  'GWF', & ! component
58  'OC', & ! subcomponent
59  'OPTIONS', & ! block
60  'BUDGET_FILERECORD', & ! tag name
61  'BUDFILEREC', & ! fortran variable
62  'RECORD BUDGET FILEOUT BUDGETFILE', & ! type
63  '', & ! shape
64  '', & ! longname
65  .false., & ! required
66  .false., & ! developmode
67  .false., & ! multi-record
68  .false., & ! preserve case
69  .false., & ! layered
70  .false. & ! timeseries
71  )
72 
73  type(inputparamdefinitiontype), parameter :: &
75  ( &
76  'GWF', & ! component
77  'OC', & ! subcomponent
78  'OPTIONS', & ! block
79  'BUDGET', & ! tag name
80  'BUDGET', & ! fortran variable
81  'KEYWORD', & ! type
82  '', & ! shape
83  'budget keyword', & ! longname
84  .true., & ! required
85  .false., & ! developmode
86  .true., & ! multi-record
87  .false., & ! preserve case
88  .false., & ! layered
89  .false. & ! timeseries
90  )
91 
92  type(inputparamdefinitiontype), parameter :: &
94  ( &
95  'GWF', & ! component
96  'OC', & ! subcomponent
97  'OPTIONS', & ! block
98  'FILEOUT', & ! tag name
99  'FILEOUT', & ! fortran variable
100  'KEYWORD', & ! type
101  '', & ! shape
102  'file keyword', & ! longname
103  .true., & ! required
104  .false., & ! developmode
105  .true., & ! multi-record
106  .false., & ! preserve case
107  .false., & ! layered
108  .false. & ! timeseries
109  )
110 
111  type(inputparamdefinitiontype), parameter :: &
113  ( &
114  'GWF', & ! component
115  'OC', & ! subcomponent
116  'OPTIONS', & ! block
117  'BUDGETFILE', & ! tag name
118  'BUDGETFILE', & ! fortran variable
119  'STRING', & ! type
120  '', & ! shape
121  'file keyword', & ! longname
122  .true., & ! required
123  .false., & ! developmode
124  .true., & ! multi-record
125  .true., & ! preserve case
126  .false., & ! layered
127  .false. & ! timeseries
128  )
129 
130  type(inputparamdefinitiontype), parameter :: &
132  ( &
133  'GWF', & ! component
134  'OC', & ! subcomponent
135  'OPTIONS', & ! block
136  'BUDGETCSV_FILERECORD', & ! tag name
137  'BUDCSVFILEREC', & ! fortran variable
138  'RECORD BUDGETCSV FILEOUT BUDGETCSVFILE', & ! type
139  '', & ! shape
140  '', & ! longname
141  .false., & ! required
142  .false., & ! developmode
143  .false., & ! multi-record
144  .false., & ! preserve case
145  .false., & ! layered
146  .false. & ! timeseries
147  )
148 
149  type(inputparamdefinitiontype), parameter :: &
151  ( &
152  'GWF', & ! component
153  'OC', & ! subcomponent
154  'OPTIONS', & ! block
155  'BUDGETCSV', & ! tag name
156  'BUDGETCSV', & ! fortran variable
157  'KEYWORD', & ! type
158  '', & ! shape
159  'budget keyword', & ! longname
160  .true., & ! required
161  .false., & ! developmode
162  .true., & ! multi-record
163  .false., & ! preserve case
164  .false., & ! layered
165  .false. & ! timeseries
166  )
167 
168  type(inputparamdefinitiontype), parameter :: &
170  ( &
171  'GWF', & ! component
172  'OC', & ! subcomponent
173  'OPTIONS', & ! block
174  'BUDGETCSVFILE', & ! tag name
175  'BUDGETCSVFILE', & ! fortran variable
176  'STRING', & ! type
177  '', & ! shape
178  'file keyword', & ! longname
179  .true., & ! required
180  .false., & ! developmode
181  .true., & ! multi-record
182  .true., & ! preserve case
183  .false., & ! layered
184  .false. & ! timeseries
185  )
186 
187  type(inputparamdefinitiontype), parameter :: &
189  ( &
190  'GWF', & ! component
191  'OC', & ! subcomponent
192  'OPTIONS', & ! block
193  'HEAD_FILERECORD', & ! tag name
194  'HEADFILEREC', & ! fortran variable
195  'RECORD HEAD FILEOUT HEADFILE', & ! type
196  '', & ! shape
197  '', & ! longname
198  .false., & ! required
199  .false., & ! developmode
200  .false., & ! multi-record
201  .false., & ! preserve case
202  .false., & ! layered
203  .false. & ! timeseries
204  )
205 
206  type(inputparamdefinitiontype), parameter :: &
208  ( &
209  'GWF', & ! component
210  'OC', & ! subcomponent
211  'OPTIONS', & ! block
212  'HEAD', & ! tag name
213  'HEAD', & ! fortran variable
214  'KEYWORD', & ! type
215  '', & ! shape
216  'head keyword', & ! longname
217  .true., & ! required
218  .false., & ! developmode
219  .true., & ! multi-record
220  .false., & ! preserve case
221  .false., & ! layered
222  .false. & ! timeseries
223  )
224 
225  type(inputparamdefinitiontype), parameter :: &
227  ( &
228  'GWF', & ! component
229  'OC', & ! subcomponent
230  'OPTIONS', & ! block
231  'HEADFILE', & ! tag name
232  'HEADFILE', & ! fortran variable
233  'STRING', & ! type
234  '', & ! shape
235  'file keyword', & ! longname
236  .true., & ! required
237  .false., & ! developmode
238  .true., & ! multi-record
239  .true., & ! preserve case
240  .false., & ! layered
241  .false. & ! timeseries
242  )
243 
244  type(inputparamdefinitiontype), parameter :: &
246  ( &
247  'GWF', & ! component
248  'OC', & ! subcomponent
249  'OPTIONS', & ! block
250  'HEADPRINTRECORD', & ! tag name
251  'HEADPRINTREC', & ! fortran variable
252  'RECORD HEAD PRINT_FORMAT FORMATRECORD', & ! type
253  '', & ! shape
254  '', & ! longname
255  .false., & ! required
256  .false., & ! developmode
257  .false., & ! multi-record
258  .false., & ! preserve case
259  .false., & ! layered
260  .false. & ! timeseries
261  )
262 
263  type(inputparamdefinitiontype), parameter :: &
265  ( &
266  'GWF', & ! component
267  'OC', & ! subcomponent
268  'OPTIONS', & ! block
269  'PRINT_FORMAT', & ! tag name
270  'PRINT_FORMAT', & ! fortran variable
271  'KEYWORD', & ! type
272  '', & ! shape
273  'keyword to indicate that a print format follows', & ! longname
274  .true., & ! required
275  .false., & ! developmode
276  .true., & ! multi-record
277  .false., & ! preserve case
278  .false., & ! layered
279  .false. & ! timeseries
280  )
281 
282  type(inputparamdefinitiontype), parameter :: &
284  ( &
285  'GWF', & ! component
286  'OC', & ! subcomponent
287  'OPTIONS', & ! block
288  'FORMATRECORD', & ! tag name
289  'FORMATRECORD', & ! fortran variable
290  'RECORD COLUMNS WIDTH DIGITS FORMAT', & ! type
291  '', & ! shape
292  '', & ! longname
293  .true., & ! required
294  .false., & ! developmode
295  .true., & ! multi-record
296  .false., & ! preserve case
297  .false., & ! layered
298  .false. & ! timeseries
299  )
300 
301  type(inputparamdefinitiontype), parameter :: &
303  ( &
304  'GWF', & ! component
305  'OC', & ! subcomponent
306  'OPTIONS', & ! block
307  'COLUMNS', & ! tag name
308  'COLUMNS', & ! fortran variable
309  'INTEGER', & ! type
310  '', & ! shape
311  'number of columns', & ! longname
312  .true., & ! required
313  .false., & ! developmode
314  .true., & ! multi-record
315  .false., & ! preserve case
316  .false., & ! layered
317  .false. & ! timeseries
318  )
319 
320  type(inputparamdefinitiontype), parameter :: &
322  ( &
323  'GWF', & ! component
324  'OC', & ! subcomponent
325  'OPTIONS', & ! block
326  'WIDTH', & ! tag name
327  'WIDTH', & ! fortran variable
328  'INTEGER', & ! type
329  '', & ! shape
330  'width for each number', & ! longname
331  .true., & ! required
332  .false., & ! developmode
333  .true., & ! multi-record
334  .false., & ! preserve case
335  .false., & ! layered
336  .false. & ! timeseries
337  )
338 
339  type(inputparamdefinitiontype), parameter :: &
341  ( &
342  'GWF', & ! component
343  'OC', & ! subcomponent
344  'OPTIONS', & ! block
345  'DIGITS', & ! tag name
346  'DIGITS', & ! fortran variable
347  'INTEGER', & ! type
348  '', & ! shape
349  'number of digits', & ! longname
350  .true., & ! required
351  .false., & ! developmode
352  .true., & ! multi-record
353  .false., & ! preserve case
354  .false., & ! layered
355  .false. & ! timeseries
356  )
357 
358  type(inputparamdefinitiontype), parameter :: &
360  ( &
361  'GWF', & ! component
362  'OC', & ! subcomponent
363  'OPTIONS', & ! block
364  'FORMAT', & ! tag name
365  'FORMAT', & ! fortran variable
366  'STRING', & ! type
367  '', & ! shape
368  'write format', & ! longname
369  .true., & ! required
370  .false., & ! developmode
371  .true., & ! multi-record
372  .false., & ! preserve case
373  .false., & ! layered
374  .false. & ! timeseries
375  )
376 
377  type(inputparamdefinitiontype), parameter :: &
379  ( &
380  'GWF', & ! component
381  'OC', & ! subcomponent
382  'PERIOD', & ! block
383  'SAVERECORD', & ! tag name
384  'SAVERECORD', & ! fortran variable
385  'RECORD SAVE RTYPE OCSETTING', & ! type
386  '', & ! shape
387  '', & ! longname
388  .false., & ! required
389  .false., & ! developmode
390  .false., & ! multi-record
391  .false., & ! preserve case
392  .false., & ! layered
393  .false. & ! timeseries
394  )
395 
396  type(inputparamdefinitiontype), parameter :: &
398  ( &
399  'GWF', & ! component
400  'OC', & ! subcomponent
401  'PERIOD', & ! block
402  'SAVE', & ! tag name
403  'SAVE', & ! fortran variable
404  'KEYWORD', & ! type
405  '', & ! shape
406  'keyword to save', & ! longname
407  .true., & ! required
408  .false., & ! developmode
409  .true., & ! multi-record
410  .false., & ! preserve case
411  .false., & ! layered
412  .false. & ! timeseries
413  )
414 
415  type(inputparamdefinitiontype), parameter :: &
417  ( &
418  'GWF', & ! component
419  'OC', & ! subcomponent
420  'PERIOD', & ! block
421  'PRINTRECORD', & ! tag name
422  'PRINTRECORD', & ! fortran variable
423  'RECORD PRINT RTYPE OCSETTING', & ! type
424  '', & ! shape
425  '', & ! longname
426  .false., & ! required
427  .false., & ! developmode
428  .false., & ! multi-record
429  .false., & ! preserve case
430  .false., & ! layered
431  .false. & ! timeseries
432  )
433 
434  type(inputparamdefinitiontype), parameter :: &
436  ( &
437  'GWF', & ! component
438  'OC', & ! subcomponent
439  'PERIOD', & ! block
440  'PRINT', & ! tag name
441  'PRINT', & ! fortran variable
442  'KEYWORD', & ! type
443  '', & ! shape
444  'keyword to save', & ! longname
445  .true., & ! required
446  .false., & ! developmode
447  .true., & ! multi-record
448  .false., & ! preserve case
449  .false., & ! layered
450  .false. & ! timeseries
451  )
452 
453  type(inputparamdefinitiontype), parameter :: &
455  ( &
456  'GWF', & ! component
457  'OC', & ! subcomponent
458  'PERIOD', & ! block
459  'RTYPE', & ! tag name
460  'RTYPE', & ! fortran variable
461  'STRING', & ! type
462  '', & ! shape
463  'record type', & ! longname
464  .true., & ! required
465  .false., & ! developmode
466  .true., & ! multi-record
467  .false., & ! preserve case
468  .false., & ! layered
469  .false. & ! timeseries
470  )
471 
472  type(inputparamdefinitiontype), parameter :: &
474  ( &
475  'GWF', & ! component
476  'OC', & ! subcomponent
477  'PERIOD', & ! block
478  'ALL', & ! tag name
479  'ALL', & ! fortran variable
480  'KEYWORD', & ! type
481  '', & ! shape
482  '', & ! longname
483  .true., & ! required
484  .false., & ! developmode
485  .true., & ! multi-record
486  .false., & ! preserve case
487  .false., & ! layered
488  .false. & ! timeseries
489  )
490 
491  type(inputparamdefinitiontype), parameter :: &
493  ( &
494  'GWF', & ! component
495  'OC', & ! subcomponent
496  'PERIOD', & ! block
497  'FIRST', & ! tag name
498  'FIRST', & ! fortran variable
499  'KEYWORD', & ! type
500  '', & ! shape
501  '', & ! longname
502  .true., & ! required
503  .false., & ! developmode
504  .true., & ! multi-record
505  .false., & ! preserve case
506  .false., & ! layered
507  .false. & ! timeseries
508  )
509 
510  type(inputparamdefinitiontype), parameter :: &
512  ( &
513  'GWF', & ! component
514  'OC', & ! subcomponent
515  'PERIOD', & ! block
516  'LAST', & ! tag name
517  'LAST', & ! fortran variable
518  'KEYWORD', & ! type
519  '', & ! shape
520  '', & ! longname
521  .true., & ! required
522  .false., & ! developmode
523  .true., & ! multi-record
524  .false., & ! preserve case
525  .false., & ! layered
526  .false. & ! timeseries
527  )
528 
529  type(inputparamdefinitiontype), parameter :: &
531  ( &
532  'GWF', & ! component
533  'OC', & ! subcomponent
534  'PERIOD', & ! block
535  'FREQUENCY', & ! tag name
536  'FREQUENCY', & ! fortran variable
537  'INTEGER', & ! type
538  '', & ! shape
539  '', & ! longname
540  .true., & ! required
541  .false., & ! developmode
542  .true., & ! multi-record
543  .false., & ! preserve case
544  .false., & ! layered
545  .false. & ! timeseries
546  )
547 
548  type(inputparamdefinitiontype), parameter :: &
550  ( &
551  'GWF', & ! component
552  'OC', & ! subcomponent
553  'PERIOD', & ! block
554  'STEPS', & ! tag name
555  'STEPS', & ! fortran variable
556  'INTEGER1D', & ! type
557  '<NSTP', & ! shape
558  '', & ! longname
559  .true., & ! required
560  .false., & ! developmode
561  .true., & ! multi-record
562  .false., & ! preserve case
563  .false., & ! layered
564  .false. & ! timeseries
565  )
566 
567  type(inputparamdefinitiontype), parameter :: &
569  [ &
571  gwfoc_budget, &
572  gwfoc_fileout, &
575  gwfoc_budgetcsv, &
578  gwfoc_head, &
579  gwfoc_headfile, &
583  gwfoc_columns, &
584  gwfoc_width, &
585  gwfoc_digits, &
586  gwfoc_format, &
588  gwfoc_save, &
590  gwfoc_print, &
591  gwfoc_rtype, &
592  gwfoc_all, &
593  gwfoc_first, &
594  gwfoc_last, &
595  gwfoc_frequency, &
596  gwfoc_steps &
597  ]
598 
599  type(inputparamdefinitiontype), parameter :: &
601  ( &
602  'GWF', & ! component
603  'OC', & ! subcomponent
604  'PERIOD', & ! block
605  'OCSETTING', & ! tag name
606  'OCSETTING', & ! fortran variable
607  'KEYSTRING ALL FIRST LAST FREQUENCY STEPS', & ! type
608  '', & ! shape
609  '', & ! longname
610  .true., & ! required
611  .false., & ! developmode
612  .true., & ! multi-record
613  .false., & ! preserve case
614  .false., & ! layered
615  .false. & ! timeseries
616  )
617 
618  type(inputparamdefinitiontype), parameter :: &
620  [ &
622  ]
623 
624  type(inputblockdefinitiontype), parameter :: &
626  [ &
628  'OPTIONS', & ! blockname
629  .false., & ! required
630  .false., & ! aggregate
631  .false. & ! block_variable
632  ), &
634  'PERIOD', & ! blockname
635  .true., & ! required
636  .true., & ! aggregate
637  .true. & ! block_variable
638  ) &
639  ]
640 
641 end module gwfocinputmodule
This module contains simulation constants.
Definition: Constants.f90:9
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
logical, public gwf_oc_is_advanced
Definition: gwf-ocidm.f90:46
type(inputparamdefinitiontype), parameter gwfoc_print
Definition: gwf-ocidm.f90:434
type(inputparamdefinitiontype), parameter gwfoc_budgetcsv
Definition: gwf-ocidm.f90:149
type(inputparamdefinitiontype), parameter gwfoc_headfile
Definition: gwf-ocidm.f90:225
type(inputparamdefinitiontype), parameter gwfoc_save
Definition: gwf-ocidm.f90:396
type(inputparamdefinitiontype), parameter gwfoc_frequency
Definition: gwf-ocidm.f90:529
type(inputparamdefinitiontype), parameter gwfoc_budcsvfilerec
Definition: gwf-ocidm.f90:130
logical, public gwf_oc_multi_package
Definition: gwf-ocidm.f90:45
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_oc_block_definitions
Definition: gwf-ocidm.f90:624
type(inputparamdefinitiontype), parameter gwfoc_headfilerec
Definition: gwf-ocidm.f90:187
type(inputparamdefinitiontype), parameter gwfoc_first
Definition: gwf-ocidm.f90:491
type(inputparamdefinitiontype), parameter gwfoc_all
Definition: gwf-ocidm.f90:472
type(inputparamdefinitiontype), parameter gwfoc_last
Definition: gwf-ocidm.f90:510
type(inputparamdefinitiontype), parameter gwfoc_head
Definition: gwf-ocidm.f90:206
type(inputparamdefinitiontype), parameter gwfoc_printrecord
Definition: gwf-ocidm.f90:415
type(inputparamdefinitiontype), parameter gwfoc_budfilerec
Definition: gwf-ocidm.f90:54
type(inputparamdefinitiontype), parameter gwfoc_columns
Definition: gwf-ocidm.f90:301
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_oc_param_definitions
Definition: gwf-ocidm.f90:567
type(inputparamdefinitiontype), parameter gwfoc_budgetcsvfile
Definition: gwf-ocidm.f90:168
type(inputparamdefinitiontype), parameter gwfoc_fileout
Definition: gwf-ocidm.f90:92
type(inputparamdefinitiontype), parameter gwfoc_headprintrec
Definition: gwf-ocidm.f90:244
type(inputparamdefinitiontype), parameter gwfoc_format
Definition: gwf-ocidm.f90:358
type(inputparamdefinitiontype), parameter gwfoc_ocsetting
Definition: gwf-ocidm.f90:599
type(inputparamdefinitiontype), parameter gwfoc_print_format
Definition: gwf-ocidm.f90:263
type(inputparamdefinitiontype), parameter gwfoc_steps
Definition: gwf-ocidm.f90:548
character(len=16), dimension(*), parameter, public gwf_oc_subpackages
Definition: gwf-ocidm.f90:48
type(inputparamdefinitiontype), parameter gwfoc_formatrecord
Definition: gwf-ocidm.f90:282
type(inputparamdefinitiontype), parameter gwfoc_width
Definition: gwf-ocidm.f90:320
type(inputparamdefinitiontype), parameter gwfoc_budgetfile
Definition: gwf-ocidm.f90:111
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_oc_aggregate_definitions
Definition: gwf-ocidm.f90:618
type(inputparamdefinitiontype), parameter gwfoc_rtype
Definition: gwf-ocidm.f90:453
type(inputparamdefinitiontype), parameter gwfoc_digits
Definition: gwf-ocidm.f90:339
type(inputparamdefinitiontype), parameter gwfoc_budget
Definition: gwf-ocidm.f90:73
type(inputparamdefinitiontype), parameter gwfoc_saverecord
Definition: gwf-ocidm.f90:377
Input definition module.
Input block definition. Describes an input block.
Input parameter definition. Describes an input parameter.