MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
exg-gwfgwfidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
3  use constantsmodule, only: lenvarname
6  private
13 
15  logical :: auxiliary = .false.
16  logical :: boundnames = .false.
17  logical :: iprpak = .false.
18  logical :: iprflow = .false.
19  logical :: ipakcb = .false.
20  logical :: cell_averaging = .false.
21  logical :: cvoptions = .false.
22  logical :: variablecv = .false.
23  logical :: dewatered = .false.
24  logical :: newton = .false.
25  logical :: xt3d = .false.
26  logical :: gnc_filerecord = .false.
27  logical :: filein = .false.
28  logical :: gnc6 = .false.
29  logical :: gnc6_filename = .false.
30  logical :: mvr_filerecord = .false.
31  logical :: mvr6 = .false.
32  logical :: mvr6_filename = .false.
33  logical :: obs_filerecord = .false.
34  logical :: obs6 = .false.
35  logical :: obs6_filename = .false.
36  logical :: dev_ifmod_on = .false.
37  logical :: nexg = .false.
38  logical :: cellidm1 = .false.
39  logical :: cellidm2 = .false.
40  logical :: ihc = .false.
41  logical :: cl1 = .false.
42  logical :: cl2 = .false.
43  logical :: hwva = .false.
44  logical :: auxvar = .false.
45  logical :: boundname = .false.
47 
48  logical :: exg_gwfgwf_multi_package = .true.
49 
50  character(len=16), parameter :: &
52  [ &
53  ' ' &
54  ]
55 
56  type(inputparamdefinitiontype), parameter :: &
58  ( &
59  'EXG', & ! component
60  'GWFGWF', & ! subcomponent
61  'OPTIONS', & ! block
62  'AUXILIARY', & ! tag name
63  'AUXILIARY', & ! fortran variable
64  'STRING', & ! type
65  'NAUX', & ! shape
66  'keyword to specify aux variables', & ! longname
67  .false., & ! required
68  .false., & ! multi-record
69  .false., & ! preserve case
70  .false., & ! layered
71  .false. & ! timeseries
72  )
73 
74  type(inputparamdefinitiontype), parameter :: &
76  ( &
77  'EXG', & ! component
78  'GWFGWF', & ! subcomponent
79  'OPTIONS', & ! block
80  'BOUNDNAMES', & ! tag name
81  'BOUNDNAMES', & ! fortran variable
82  'KEYWORD', & ! type
83  '', & ! shape
84  '', & ! longname
85  .false., & ! required
86  .false., & ! multi-record
87  .false., & ! preserve case
88  .false., & ! layered
89  .false. & ! timeseries
90  )
91 
92  type(inputparamdefinitiontype), parameter :: &
94  ( &
95  'EXG', & ! component
96  'GWFGWF', & ! subcomponent
97  'OPTIONS', & ! block
98  'PRINT_INPUT', & ! tag name
99  'IPRPAK', & ! fortran variable
100  'KEYWORD', & ! type
101  '', & ! shape
102  'keyword to print input to list file', & ! longname
103  .false., & ! required
104  .false., & ! multi-record
105  .false., & ! preserve case
106  .false., & ! layered
107  .false. & ! timeseries
108  )
109 
110  type(inputparamdefinitiontype), parameter :: &
112  ( &
113  'EXG', & ! component
114  'GWFGWF', & ! subcomponent
115  'OPTIONS', & ! block
116  'PRINT_FLOWS', & ! tag name
117  'IPRFLOW', & ! fortran variable
118  'KEYWORD', & ! type
119  '', & ! shape
120  'keyword to print gwfgwf flows to list file', & ! longname
121  .false., & ! required
122  .false., & ! multi-record
123  .false., & ! preserve case
124  .false., & ! layered
125  .false. & ! timeseries
126  )
127 
128  type(inputparamdefinitiontype), parameter :: &
130  ( &
131  'EXG', & ! component
132  'GWFGWF', & ! subcomponent
133  'OPTIONS', & ! block
134  'SAVE_FLOWS', & ! tag name
135  'IPAKCB', & ! fortran variable
136  'KEYWORD', & ! type
137  '', & ! shape
138  'keyword to save GWFGWF flows', & ! longname
139  .false., & ! required
140  .false., & ! multi-record
141  .false., & ! preserve case
142  .false., & ! layered
143  .false. & ! timeseries
144  )
145 
146  type(inputparamdefinitiontype), parameter :: &
148  ( &
149  'EXG', & ! component
150  'GWFGWF', & ! subcomponent
151  'OPTIONS', & ! block
152  'CELL_AVERAGING', & ! tag name
153  'CELL_AVERAGING', & ! fortran variable
154  'STRING', & ! type
155  '', & ! shape
156  'conductance weighting option', & ! longname
157  .false., & ! required
158  .false., & ! multi-record
159  .false., & ! preserve case
160  .false., & ! layered
161  .false. & ! timeseries
162  )
163 
164  type(inputparamdefinitiontype), parameter :: &
166  ( &
167  'EXG', & ! component
168  'GWFGWF', & ! subcomponent
169  'OPTIONS', & ! block
170  'CVOPTIONS', & ! tag name
171  'CVOPTIONS', & ! fortran variable
172  'RECORD VARIABLECV DEWATERED', & ! type
173  '', & ! shape
174  'vertical conductance options', & ! longname
175  .false., & ! required
176  .false., & ! multi-record
177  .false., & ! preserve case
178  .false., & ! layered
179  .false. & ! timeseries
180  )
181 
182  type(inputparamdefinitiontype), parameter :: &
184  ( &
185  'EXG', & ! component
186  'GWFGWF', & ! subcomponent
187  'OPTIONS', & ! block
188  'VARIABLECV', & ! tag name
189  'VARIABLECV', & ! fortran variable
190  'KEYWORD', & ! type
191  '', & ! shape
192  'keyword to activate VARIABLECV option', & ! longname
193  .true., & ! required
194  .true., & ! multi-record
195  .false., & ! preserve case
196  .false., & ! layered
197  .false. & ! timeseries
198  )
199 
200  type(inputparamdefinitiontype), parameter :: &
202  ( &
203  'EXG', & ! component
204  'GWFGWF', & ! subcomponent
205  'OPTIONS', & ! block
206  'DEWATERED', & ! tag name
207  'DEWATERED', & ! fortran variable
208  'KEYWORD', & ! type
209  '', & ! shape
210  'keyword to activate DEWATERED option', & ! longname
211  .false., & ! required
212  .true., & ! multi-record
213  .false., & ! preserve case
214  .false., & ! layered
215  .false. & ! timeseries
216  )
217 
218  type(inputparamdefinitiontype), parameter :: &
220  ( &
221  'EXG', & ! component
222  'GWFGWF', & ! subcomponent
223  'OPTIONS', & ! block
224  'NEWTON', & ! tag name
225  'NEWTON', & ! fortran variable
226  'KEYWORD', & ! type
227  '', & ! shape
228  'keyword to activate Newton-Raphson', & ! longname
229  .false., & ! required
230  .false., & ! multi-record
231  .false., & ! preserve case
232  .false., & ! layered
233  .false. & ! timeseries
234  )
235 
236  type(inputparamdefinitiontype), parameter :: &
238  ( &
239  'EXG', & ! component
240  'GWFGWF', & ! subcomponent
241  'OPTIONS', & ! block
242  'XT3D', & ! tag name
243  'XT3D', & ! fortran variable
244  'KEYWORD', & ! type
245  '', & ! shape
246  'keyword to activate XT3D', & ! longname
247  .false., & ! required
248  .false., & ! multi-record
249  .false., & ! preserve case
250  .false., & ! layered
251  .false. & ! timeseries
252  )
253 
254  type(inputparamdefinitiontype), parameter :: &
256  ( &
257  'EXG', & ! component
258  'GWFGWF', & ! subcomponent
259  'OPTIONS', & ! block
260  'GNC_FILERECORD', & ! tag name
261  'GNC_FILERECORD', & ! fortran variable
262  'RECORD GNC6 FILEIN GNC6_FILENAME', & ! type
263  '', & ! shape
264  '', & ! longname
265  .false., & ! required
266  .false., & ! multi-record
267  .false., & ! preserve case
268  .false., & ! layered
269  .false. & ! timeseries
270  )
271 
272  type(inputparamdefinitiontype), parameter :: &
274  ( &
275  'EXG', & ! component
276  'GWFGWF', & ! subcomponent
277  'OPTIONS', & ! block
278  'FILEIN', & ! tag name
279  'FILEIN', & ! fortran variable
280  'KEYWORD', & ! type
281  '', & ! shape
282  'file keyword', & ! longname
283  .true., & ! required
284  .true., & ! multi-record
285  .false., & ! preserve case
286  .false., & ! layered
287  .false. & ! timeseries
288  )
289 
290  type(inputparamdefinitiontype), parameter :: &
292  ( &
293  'EXG', & ! component
294  'GWFGWF', & ! subcomponent
295  'OPTIONS', & ! block
296  'GNC6', & ! tag name
297  'GNC6', & ! fortran variable
298  'KEYWORD', & ! type
299  '', & ! shape
300  'gnc6 keyword', & ! longname
301  .true., & ! required
302  .true., & ! multi-record
303  .false., & ! preserve case
304  .false., & ! layered
305  .false. & ! timeseries
306  )
307 
308  type(inputparamdefinitiontype), parameter :: &
310  ( &
311  'EXG', & ! component
312  'GWFGWF', & ! subcomponent
313  'OPTIONS', & ! block
314  'GNC6_FILENAME', & ! tag name
315  'GNC6_FILENAME', & ! fortran variable
316  'STRING', & ! type
317  '', & ! shape
318  'gnc6 input filename', & ! longname
319  .true., & ! required
320  .true., & ! multi-record
321  .true., & ! preserve case
322  .false., & ! layered
323  .false. & ! timeseries
324  )
325 
326  type(inputparamdefinitiontype), parameter :: &
328  ( &
329  'EXG', & ! component
330  'GWFGWF', & ! subcomponent
331  'OPTIONS', & ! block
332  'MVR_FILERECORD', & ! tag name
333  'MVR_FILERECORD', & ! fortran variable
334  'RECORD MVR6 FILEIN MVR6_FILENAME', & ! type
335  '', & ! shape
336  '', & ! longname
337  .false., & ! required
338  .false., & ! multi-record
339  .false., & ! preserve case
340  .false., & ! layered
341  .false. & ! timeseries
342  )
343 
344  type(inputparamdefinitiontype), parameter :: &
346  ( &
347  'EXG', & ! component
348  'GWFGWF', & ! subcomponent
349  'OPTIONS', & ! block
350  'MVR6', & ! tag name
351  'MVR6', & ! fortran variable
352  'KEYWORD', & ! type
353  '', & ! shape
354  'obs keyword', & ! longname
355  .true., & ! required
356  .true., & ! multi-record
357  .false., & ! preserve case
358  .false., & ! layered
359  .false. & ! timeseries
360  )
361 
362  type(inputparamdefinitiontype), parameter :: &
364  ( &
365  'EXG', & ! component
366  'GWFGWF', & ! subcomponent
367  'OPTIONS', & ! block
368  'MVR6_FILENAME', & ! tag name
369  'MVR6_FILENAME', & ! fortran variable
370  'STRING', & ! type
371  '', & ! shape
372  'mvr6 input filename', & ! longname
373  .true., & ! required
374  .true., & ! multi-record
375  .true., & ! preserve case
376  .false., & ! layered
377  .false. & ! timeseries
378  )
379 
380  type(inputparamdefinitiontype), parameter :: &
382  ( &
383  'EXG', & ! component
384  'GWFGWF', & ! subcomponent
385  'OPTIONS', & ! block
386  'OBS_FILERECORD', & ! tag name
387  'OBS_FILERECORD', & ! fortran variable
388  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
389  '', & ! shape
390  '', & ! longname
391  .false., & ! required
392  .false., & ! multi-record
393  .false., & ! preserve case
394  .false., & ! layered
395  .false. & ! timeseries
396  )
397 
398  type(inputparamdefinitiontype), parameter :: &
400  ( &
401  'EXG', & ! component
402  'GWFGWF', & ! subcomponent
403  'OPTIONS', & ! block
404  'OBS6', & ! tag name
405  'OBS6', & ! fortran variable
406  'KEYWORD', & ! type
407  '', & ! shape
408  'obs keyword', & ! longname
409  .true., & ! required
410  .true., & ! multi-record
411  .false., & ! preserve case
412  .false., & ! layered
413  .false. & ! timeseries
414  )
415 
416  type(inputparamdefinitiontype), parameter :: &
418  ( &
419  'EXG', & ! component
420  'GWFGWF', & ! subcomponent
421  'OPTIONS', & ! block
422  'OBS6_FILENAME', & ! tag name
423  'OBS6_FILENAME', & ! fortran variable
424  'STRING', & ! type
425  '', & ! shape
426  'obs6 input filename', & ! longname
427  .true., & ! required
428  .true., & ! multi-record
429  .true., & ! preserve case
430  .false., & ! layered
431  .false. & ! timeseries
432  )
433 
434  type(inputparamdefinitiontype), parameter :: &
436  ( &
437  'EXG', & ! component
438  'GWFGWF', & ! subcomponent
439  'OPTIONS', & ! block
440  'DEV_INTERFACEMODEL_ON', & ! tag name
441  'DEV_IFMOD_ON', & ! fortran variable
442  'KEYWORD', & ! type
443  '', & ! shape
444  'activate interface model on exchange', & ! longname
445  .false., & ! required
446  .false., & ! multi-record
447  .false., & ! preserve case
448  .false., & ! layered
449  .false. & ! timeseries
450  )
451 
452  type(inputparamdefinitiontype), parameter :: &
454  ( &
455  'EXG', & ! component
456  'GWFGWF', & ! subcomponent
457  'DIMENSIONS', & ! block
458  'NEXG', & ! tag name
459  'NEXG', & ! fortran variable
460  'INTEGER', & ! type
461  '', & ! shape
462  'number of exchanges', & ! longname
463  .true., & ! required
464  .false., & ! multi-record
465  .false., & ! preserve case
466  .false., & ! layered
467  .false. & ! timeseries
468  )
469 
470  type(inputparamdefinitiontype), parameter :: &
472  ( &
473  'EXG', & ! component
474  'GWFGWF', & ! subcomponent
475  'EXCHANGEDATA', & ! block
476  'CELLIDM1', & ! tag name
477  'CELLIDM1', & ! fortran variable
478  'INTEGER1D', & ! type
479  'NCELLDIM', & ! shape
480  'cellid of first cell', & ! longname
481  .true., & ! required
482  .true., & ! multi-record
483  .false., & ! preserve case
484  .false., & ! layered
485  .false. & ! timeseries
486  )
487 
488  type(inputparamdefinitiontype), parameter :: &
490  ( &
491  'EXG', & ! component
492  'GWFGWF', & ! subcomponent
493  'EXCHANGEDATA', & ! block
494  'CELLIDM2', & ! tag name
495  'CELLIDM2', & ! fortran variable
496  'INTEGER1D', & ! type
497  'NCELLDIM', & ! shape
498  'cellid of second cell', & ! longname
499  .true., & ! required
500  .true., & ! multi-record
501  .false., & ! preserve case
502  .false., & ! layered
503  .false. & ! timeseries
504  )
505 
506  type(inputparamdefinitiontype), parameter :: &
508  ( &
509  'EXG', & ! component
510  'GWFGWF', & ! subcomponent
511  'EXCHANGEDATA', & ! block
512  'IHC', & ! tag name
513  'IHC', & ! fortran variable
514  'INTEGER', & ! type
515  '', & ! shape
516  'integer flag for connection type', & ! longname
517  .true., & ! required
518  .true., & ! multi-record
519  .false., & ! preserve case
520  .false., & ! layered
521  .false. & ! timeseries
522  )
523 
524  type(inputparamdefinitiontype), parameter :: &
526  ( &
527  'EXG', & ! component
528  'GWFGWF', & ! subcomponent
529  'EXCHANGEDATA', & ! block
530  'CL1', & ! tag name
531  'CL1', & ! fortran variable
532  'DOUBLE', & ! type
533  '', & ! shape
534  'connection distance', & ! longname
535  .true., & ! required
536  .true., & ! multi-record
537  .false., & ! preserve case
538  .false., & ! layered
539  .false. & ! timeseries
540  )
541 
542  type(inputparamdefinitiontype), parameter :: &
544  ( &
545  'EXG', & ! component
546  'GWFGWF', & ! subcomponent
547  'EXCHANGEDATA', & ! block
548  'CL2', & ! tag name
549  'CL2', & ! fortran variable
550  'DOUBLE', & ! type
551  '', & ! shape
552  'connection distance', & ! longname
553  .true., & ! required
554  .true., & ! multi-record
555  .false., & ! preserve case
556  .false., & ! layered
557  .false. & ! timeseries
558  )
559 
560  type(inputparamdefinitiontype), parameter :: &
562  ( &
563  'EXG', & ! component
564  'GWFGWF', & ! subcomponent
565  'EXCHANGEDATA', & ! block
566  'HWVA', & ! tag name
567  'HWVA', & ! fortran variable
568  'DOUBLE', & ! type
569  '', & ! shape
570  'horizontal cell width or area for vertical flow', & ! longname
571  .true., & ! required
572  .true., & ! multi-record
573  .false., & ! preserve case
574  .false., & ! layered
575  .false. & ! timeseries
576  )
577 
578  type(inputparamdefinitiontype), parameter :: &
580  ( &
581  'EXG', & ! component
582  'GWFGWF', & ! subcomponent
583  'EXCHANGEDATA', & ! block
584  'AUX', & ! tag name
585  'AUXVAR', & ! fortran variable
586  'DOUBLE1D', & ! type
587  'NAUX', & ! shape
588  'auxiliary variables', & ! longname
589  .false., & ! required
590  .true., & ! multi-record
591  .false., & ! preserve case
592  .false., & ! layered
593  .false. & ! timeseries
594  )
595 
596  type(inputparamdefinitiontype), parameter :: &
598  ( &
599  'EXG', & ! component
600  'GWFGWF', & ! subcomponent
601  'EXCHANGEDATA', & ! block
602  'BOUNDNAME', & ! tag name
603  'BOUNDNAME', & ! fortran variable
604  'STRING', & ! type
605  '', & ! shape
606  'exchange boundname', & ! longname
607  .false., & ! required
608  .true., & ! multi-record
609  .false., & ! preserve case
610  .false., & ! layered
611  .false. & ! timeseries
612  )
613 
614  type(inputparamdefinitiontype), parameter :: &
616  [ &
627  exggwfgwf_xt3d, &
630  exggwfgwf_gnc6, &
633  exggwfgwf_mvr6, &
636  exggwfgwf_obs6, &
639  exggwfgwf_nexg, &
642  exggwfgwf_ihc, &
643  exggwfgwf_cl1, &
644  exggwfgwf_cl2, &
645  exggwfgwf_hwva, &
648  ]
649 
650  type(inputparamdefinitiontype), parameter :: &
652  ( &
653  'EXG', & ! component
654  'GWFGWF', & ! subcomponent
655  'EXCHANGEDATA', & ! block
656  'EXCHANGEDATA', & ! tag name
657  'EXCHANGEDATA', & ! fortran variable
658  'RECARRAY CELLIDM1 CELLIDM2 IHC CL1 CL2 HWVA AUX BOUNDNAME', & ! type
659  'NEXG', & ! shape
660  'exchange data', & ! longname
661  .true., & ! required
662  .false., & ! multi-record
663  .false., & ! preserve case
664  .false., & ! layered
665  .false. & ! timeseries
666  )
667 
668  type(inputparamdefinitiontype), parameter :: &
670  [ &
672  ]
673 
674  type(inputblockdefinitiontype), parameter :: &
676  [ &
678  'OPTIONS', & ! blockname
679  .false., & ! required
680  .false., & ! aggregate
681  .false. & ! block_variable
682  ), &
684  'DIMENSIONS', & ! blockname
685  .true., & ! required
686  .false., & ! aggregate
687  .false. & ! block_variable
688  ), &
690  'EXCHANGEDATA', & ! blockname
691  .true., & ! required
692  .true., & ! aggregate
693  .false. & ! block_variable
694  ) &
695  ]
696 
697 end module exggwfgwfinputmodule
This module contains simulation constants.
Definition: Constants.f90:9
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
type(inputparamdefinitiontype), parameter exggwfgwf_cell_averaging
type(inputparamdefinitiontype), parameter exggwfgwf_mvr6
type(inputparamdefinitiontype), parameter exggwfgwf_exchangedata
type(inputparamdefinitiontype), parameter exggwfgwf_gnc6
type(inputparamdefinitiontype), parameter exggwfgwf_obs6
type(inputparamdefinitiontype), parameter exggwfgwf_boundnames
type(inputparamdefinitiontype), parameter exggwfgwf_auxvar
type(inputparamdefinitiontype), parameter exggwfgwf_iprpak
type(inputparamdefinitiontype), parameter exggwfgwf_gnc6_filename
type(inputparamdefinitiontype), parameter exggwfgwf_dev_ifmod_on
type(inputparamdefinitiontype), parameter exggwfgwf_variablecv
character(len=16), dimension(*), parameter, public exg_gwfgwf_subpackages
type(inputparamdefinitiontype), parameter exggwfgwf_cellidm1
type(inputparamdefinitiontype), parameter exggwfgwf_dewatered
type(inputparamdefinitiontype), parameter exggwfgwf_xt3d
type(inputparamdefinitiontype), parameter exggwfgwf_cl1
type(inputblockdefinitiontype), dimension(*), parameter, public exg_gwfgwf_block_definitions
type(inputparamdefinitiontype), parameter exggwfgwf_ipakcb
type(inputparamdefinitiontype), parameter exggwfgwf_obs6_filename
type(inputparamdefinitiontype), parameter exggwfgwf_gnc_filerecord
logical, public exg_gwfgwf_multi_package
type(inputparamdefinitiontype), dimension(*), parameter, public exg_gwfgwf_param_definitions
type(inputparamdefinitiontype), parameter exggwfgwf_obs_filerecord
type(inputparamdefinitiontype), parameter exggwfgwf_cvoptions
type(inputparamdefinitiontype), parameter exggwfgwf_mvr_filerecord
type(inputparamdefinitiontype), parameter exggwfgwf_cellidm2
type(inputparamdefinitiontype), parameter exggwfgwf_auxiliary
type(inputparamdefinitiontype), parameter exggwfgwf_ihc
type(inputparamdefinitiontype), parameter exggwfgwf_filein
type(inputparamdefinitiontype), parameter exggwfgwf_hwva
type(inputparamdefinitiontype), parameter exggwfgwf_mvr6_filename
type(inputparamdefinitiontype), dimension(*), parameter, public exg_gwfgwf_aggregate_definitions
type(inputparamdefinitiontype), parameter exggwfgwf_boundname
type(inputparamdefinitiontype), parameter exggwfgwf_iprflow
type(inputparamdefinitiontype), parameter exggwfgwf_nexg
type(inputparamdefinitiontype), parameter exggwfgwf_newton
type(inputparamdefinitiontype), parameter exggwfgwf_cl2
This module contains the InputDefinitionModule.