MODFLOW 6  version 6.7.0.dev3
USGS Modular Hydrologic Model
exg-gwtgwtidm.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 :: gwfmodelname1 = .false.
16  logical :: gwfmodelname2 = .false.
17  logical :: auxiliary = .false.
18  logical :: boundnames = .false.
19  logical :: iprpak = .false.
20  logical :: iprflow = .false.
21  logical :: ipakcb = .false.
22  logical :: adv_scheme = .false.
23  logical :: dsp_xt3d_off = .false.
24  logical :: dsp_xt3d_rhs = .false.
25  logical :: filein = .false.
26  logical :: mvt_filerecord = .false.
27  logical :: mvt6 = .false.
28  logical :: mvt6_filename = .false.
29  logical :: obs_filerecord = .false.
30  logical :: obs6 = .false.
31  logical :: obs6_filename = .false.
32  logical :: dev_ifmod_on = .false.
33  logical :: nexg = .false.
34  logical :: cellidm1 = .false.
35  logical :: cellidm2 = .false.
36  logical :: ihc = .false.
37  logical :: cl1 = .false.
38  logical :: cl2 = .false.
39  logical :: hwva = .false.
40  logical :: auxvar = .false.
41  logical :: boundname = .false.
43 
44  logical :: exg_gwtgwt_multi_package = .true.
45 
46  character(len=16), parameter :: &
48  [ &
49  ' ' &
50  ]
51 
52  type(inputparamdefinitiontype), parameter :: &
54  ( &
55  'EXG', & ! component
56  'GWTGWT', & ! subcomponent
57  'OPTIONS', & ! block
58  'GWFMODELNAME1', & ! tag name
59  'GWFMODELNAME1', & ! fortran variable
60  'STRING', & ! type
61  '', & ! shape
62  'keyword to specify name of first corresponding GWF Model', & ! longname
63  .true., & ! required
64  .false., & ! prerelease
65  .false., & ! multi-record
66  .false., & ! preserve case
67  .false., & ! layered
68  .false. & ! timeseries
69  )
70 
71  type(inputparamdefinitiontype), parameter :: &
73  ( &
74  'EXG', & ! component
75  'GWTGWT', & ! subcomponent
76  'OPTIONS', & ! block
77  'GWFMODELNAME2', & ! tag name
78  'GWFMODELNAME2', & ! fortran variable
79  'STRING', & ! type
80  '', & ! shape
81  'keyword to specify name of second corresponding GWF Model', & ! longname
82  .true., & ! required
83  .false., & ! prerelease
84  .false., & ! multi-record
85  .false., & ! preserve case
86  .false., & ! layered
87  .false. & ! timeseries
88  )
89 
90  type(inputparamdefinitiontype), parameter :: &
92  ( &
93  'EXG', & ! component
94  'GWTGWT', & ! subcomponent
95  'OPTIONS', & ! block
96  'AUXILIARY', & ! tag name
97  'AUXILIARY', & ! fortran variable
98  'STRING', & ! type
99  'NAUX', & ! shape
100  'keyword to specify aux variables', & ! longname
101  .false., & ! required
102  .false., & ! prerelease
103  .false., & ! multi-record
104  .false., & ! preserve case
105  .false., & ! layered
106  .false. & ! timeseries
107  )
108 
109  type(inputparamdefinitiontype), parameter :: &
111  ( &
112  'EXG', & ! component
113  'GWTGWT', & ! subcomponent
114  'OPTIONS', & ! block
115  'BOUNDNAMES', & ! tag name
116  'BOUNDNAMES', & ! fortran variable
117  'KEYWORD', & ! type
118  '', & ! shape
119  '', & ! longname
120  .false., & ! required
121  .false., & ! prerelease
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  'GWTGWT', & ! subcomponent
133  'OPTIONS', & ! block
134  'PRINT_INPUT', & ! tag name
135  'IPRPAK', & ! fortran variable
136  'KEYWORD', & ! type
137  '', & ! shape
138  'keyword to print input to list file', & ! longname
139  .false., & ! required
140  .false., & ! prerelease
141  .false., & ! multi-record
142  .false., & ! preserve case
143  .false., & ! layered
144  .false. & ! timeseries
145  )
146 
147  type(inputparamdefinitiontype), parameter :: &
149  ( &
150  'EXG', & ! component
151  'GWTGWT', & ! subcomponent
152  'OPTIONS', & ! block
153  'PRINT_FLOWS', & ! tag name
154  'IPRFLOW', & ! fortran variable
155  'KEYWORD', & ! type
156  '', & ! shape
157  'keyword to print gwfgwf flows to list file', & ! longname
158  .false., & ! required
159  .false., & ! prerelease
160  .false., & ! multi-record
161  .false., & ! preserve case
162  .false., & ! layered
163  .false. & ! timeseries
164  )
165 
166  type(inputparamdefinitiontype), parameter :: &
168  ( &
169  'EXG', & ! component
170  'GWTGWT', & ! subcomponent
171  'OPTIONS', & ! block
172  'SAVE_FLOWS', & ! tag name
173  'IPAKCB', & ! fortran variable
174  'KEYWORD', & ! type
175  '', & ! shape
176  'keyword to save GWFGWF flows', & ! longname
177  .false., & ! required
178  .false., & ! prerelease
179  .false., & ! multi-record
180  .false., & ! preserve case
181  .false., & ! layered
182  .false. & ! timeseries
183  )
184 
185  type(inputparamdefinitiontype), parameter :: &
187  ( &
188  'EXG', & ! component
189  'GWTGWT', & ! subcomponent
190  'OPTIONS', & ! block
191  'ADV_SCHEME', & ! tag name
192  'ADV_SCHEME', & ! fortran variable
193  'STRING', & ! type
194  '', & ! shape
195  'advective scheme', & ! longname
196  .false., & ! required
197  .false., & ! prerelease
198  .false., & ! multi-record
199  .false., & ! preserve case
200  .false., & ! layered
201  .false. & ! timeseries
202  )
203 
204  type(inputparamdefinitiontype), parameter :: &
206  ( &
207  'EXG', & ! component
208  'GWTGWT', & ! subcomponent
209  'OPTIONS', & ! block
210  'DSP_XT3D_OFF', & ! tag name
211  'DSP_XT3D_OFF', & ! fortran variable
212  'KEYWORD', & ! type
213  '', & ! shape
214  'deactivate xt3d', & ! longname
215  .false., & ! required
216  .false., & ! prerelease
217  .false., & ! multi-record
218  .false., & ! preserve case
219  .false., & ! layered
220  .false. & ! timeseries
221  )
222 
223  type(inputparamdefinitiontype), parameter :: &
225  ( &
226  'EXG', & ! component
227  'GWTGWT', & ! subcomponent
228  'OPTIONS', & ! block
229  'DSP_XT3D_RHS', & ! tag name
230  'DSP_XT3D_RHS', & ! fortran variable
231  'KEYWORD', & ! type
232  '', & ! shape
233  'xt3d on right-hand side', & ! longname
234  .false., & ! required
235  .false., & ! prerelease
236  .false., & ! multi-record
237  .false., & ! preserve case
238  .false., & ! layered
239  .false. & ! timeseries
240  )
241 
242  type(inputparamdefinitiontype), parameter :: &
244  ( &
245  'EXG', & ! component
246  'GWTGWT', & ! subcomponent
247  'OPTIONS', & ! block
248  'FILEIN', & ! tag name
249  'FILEIN', & ! fortran variable
250  'KEYWORD', & ! type
251  '', & ! shape
252  'file keyword', & ! longname
253  .true., & ! required
254  .false., & ! prerelease
255  .true., & ! multi-record
256  .false., & ! preserve case
257  .false., & ! layered
258  .false. & ! timeseries
259  )
260 
261  type(inputparamdefinitiontype), parameter :: &
263  ( &
264  'EXG', & ! component
265  'GWTGWT', & ! subcomponent
266  'OPTIONS', & ! block
267  'MVT_FILERECORD', & ! tag name
268  'MVT_FILERECORD', & ! fortran variable
269  'RECORD MVT6 FILEIN MVT6_FILENAME', & ! type
270  '', & ! shape
271  '', & ! longname
272  .false., & ! required
273  .false., & ! prerelease
274  .false., & ! multi-record
275  .false., & ! preserve case
276  .false., & ! layered
277  .false. & ! timeseries
278  )
279 
280  type(inputparamdefinitiontype), parameter :: &
282  ( &
283  'EXG', & ! component
284  'GWTGWT', & ! subcomponent
285  'OPTIONS', & ! block
286  'MVT6', & ! tag name
287  'MVT6', & ! fortran variable
288  'KEYWORD', & ! type
289  '', & ! shape
290  'obs keyword', & ! longname
291  .true., & ! required
292  .false., & ! prerelease
293  .true., & ! multi-record
294  .false., & ! preserve case
295  .false., & ! layered
296  .false. & ! timeseries
297  )
298 
299  type(inputparamdefinitiontype), parameter :: &
301  ( &
302  'EXG', & ! component
303  'GWTGWT', & ! subcomponent
304  'OPTIONS', & ! block
305  'MVT6_FILENAME', & ! tag name
306  'MVT6_FILENAME', & ! fortran variable
307  'STRING', & ! type
308  '', & ! shape
309  'mvt6 input filename', & ! longname
310  .true., & ! required
311  .false., & ! prerelease
312  .true., & ! multi-record
313  .true., & ! preserve case
314  .false., & ! layered
315  .false. & ! timeseries
316  )
317 
318  type(inputparamdefinitiontype), parameter :: &
320  ( &
321  'EXG', & ! component
322  'GWTGWT', & ! subcomponent
323  'OPTIONS', & ! block
324  'OBS_FILERECORD', & ! tag name
325  'OBS_FILERECORD', & ! fortran variable
326  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
327  '', & ! shape
328  '', & ! longname
329  .false., & ! required
330  .false., & ! prerelease
331  .false., & ! multi-record
332  .false., & ! preserve case
333  .false., & ! layered
334  .false. & ! timeseries
335  )
336 
337  type(inputparamdefinitiontype), parameter :: &
339  ( &
340  'EXG', & ! component
341  'GWTGWT', & ! subcomponent
342  'OPTIONS', & ! block
343  'OBS6', & ! tag name
344  'OBS6', & ! fortran variable
345  'KEYWORD', & ! type
346  '', & ! shape
347  'obs keyword', & ! longname
348  .true., & ! required
349  .false., & ! prerelease
350  .true., & ! multi-record
351  .false., & ! preserve case
352  .false., & ! layered
353  .false. & ! timeseries
354  )
355 
356  type(inputparamdefinitiontype), parameter :: &
358  ( &
359  'EXG', & ! component
360  'GWTGWT', & ! subcomponent
361  'OPTIONS', & ! block
362  'OBS6_FILENAME', & ! tag name
363  'OBS6_FILENAME', & ! fortran variable
364  'STRING', & ! type
365  '', & ! shape
366  'obs6 input filename', & ! longname
367  .true., & ! required
368  .false., & ! prerelease
369  .true., & ! multi-record
370  .true., & ! preserve case
371  .false., & ! layered
372  .false. & ! timeseries
373  )
374 
375  type(inputparamdefinitiontype), parameter :: &
377  ( &
378  'EXG', & ! component
379  'GWTGWT', & ! subcomponent
380  'OPTIONS', & ! block
381  'DEV_INTERFACEMODEL_ON', & ! tag name
382  'DEV_IFMOD_ON', & ! fortran variable
383  'KEYWORD', & ! type
384  '', & ! shape
385  'activate interface model on exchange', & ! longname
386  .false., & ! required
387  .false., & ! prerelease
388  .false., & ! multi-record
389  .false., & ! preserve case
390  .false., & ! layered
391  .false. & ! timeseries
392  )
393 
394  type(inputparamdefinitiontype), parameter :: &
396  ( &
397  'EXG', & ! component
398  'GWTGWT', & ! subcomponent
399  'DIMENSIONS', & ! block
400  'NEXG', & ! tag name
401  'NEXG', & ! fortran variable
402  'INTEGER', & ! type
403  '', & ! shape
404  'number of exchanges', & ! longname
405  .true., & ! required
406  .false., & ! prerelease
407  .false., & ! multi-record
408  .false., & ! preserve case
409  .false., & ! layered
410  .false. & ! timeseries
411  )
412 
413  type(inputparamdefinitiontype), parameter :: &
415  ( &
416  'EXG', & ! component
417  'GWTGWT', & ! subcomponent
418  'EXCHANGEDATA', & ! block
419  'CELLIDM1', & ! tag name
420  'CELLIDM1', & ! fortran variable
421  'INTEGER1D', & ! type
422  'NCELLDIM', & ! shape
423  'cellid of first cell', & ! longname
424  .true., & ! required
425  .false., & ! prerelease
426  .true., & ! multi-record
427  .false., & ! preserve case
428  .false., & ! layered
429  .false. & ! timeseries
430  )
431 
432  type(inputparamdefinitiontype), parameter :: &
434  ( &
435  'EXG', & ! component
436  'GWTGWT', & ! subcomponent
437  'EXCHANGEDATA', & ! block
438  'CELLIDM2', & ! tag name
439  'CELLIDM2', & ! fortran variable
440  'INTEGER1D', & ! type
441  'NCELLDIM', & ! shape
442  'cellid of second cell', & ! longname
443  .true., & ! required
444  .false., & ! prerelease
445  .true., & ! multi-record
446  .false., & ! preserve case
447  .false., & ! layered
448  .false. & ! timeseries
449  )
450 
451  type(inputparamdefinitiontype), parameter :: &
453  ( &
454  'EXG', & ! component
455  'GWTGWT', & ! subcomponent
456  'EXCHANGEDATA', & ! block
457  'IHC', & ! tag name
458  'IHC', & ! fortran variable
459  'INTEGER', & ! type
460  '', & ! shape
461  'integer flag for connection type', & ! longname
462  .true., & ! required
463  .false., & ! prerelease
464  .true., & ! multi-record
465  .false., & ! preserve case
466  .false., & ! layered
467  .false. & ! timeseries
468  )
469 
470  type(inputparamdefinitiontype), parameter :: &
472  ( &
473  'EXG', & ! component
474  'GWTGWT', & ! subcomponent
475  'EXCHANGEDATA', & ! block
476  'CL1', & ! tag name
477  'CL1', & ! fortran variable
478  'DOUBLE', & ! type
479  '', & ! shape
480  'connection distance', & ! longname
481  .true., & ! required
482  .false., & ! prerelease
483  .true., & ! multi-record
484  .false., & ! preserve case
485  .false., & ! layered
486  .false. & ! timeseries
487  )
488 
489  type(inputparamdefinitiontype), parameter :: &
491  ( &
492  'EXG', & ! component
493  'GWTGWT', & ! subcomponent
494  'EXCHANGEDATA', & ! block
495  'CL2', & ! tag name
496  'CL2', & ! fortran variable
497  'DOUBLE', & ! type
498  '', & ! shape
499  'connection distance', & ! longname
500  .true., & ! required
501  .false., & ! prerelease
502  .true., & ! multi-record
503  .false., & ! preserve case
504  .false., & ! layered
505  .false. & ! timeseries
506  )
507 
508  type(inputparamdefinitiontype), parameter :: &
510  ( &
511  'EXG', & ! component
512  'GWTGWT', & ! subcomponent
513  'EXCHANGEDATA', & ! block
514  'HWVA', & ! tag name
515  'HWVA', & ! fortran variable
516  'DOUBLE', & ! type
517  '', & ! shape
518  'horizontal cell width or area for vertical flow', & ! longname
519  .true., & ! required
520  .false., & ! prerelease
521  .true., & ! multi-record
522  .false., & ! preserve case
523  .false., & ! layered
524  .false. & ! timeseries
525  )
526 
527  type(inputparamdefinitiontype), parameter :: &
529  ( &
530  'EXG', & ! component
531  'GWTGWT', & ! subcomponent
532  'EXCHANGEDATA', & ! block
533  'AUX', & ! tag name
534  'AUXVAR', & ! fortran variable
535  'DOUBLE1D', & ! type
536  'NAUX', & ! shape
537  'auxiliary variables', & ! longname
538  .false., & ! required
539  .false., & ! prerelease
540  .true., & ! multi-record
541  .false., & ! preserve case
542  .false., & ! layered
543  .false. & ! timeseries
544  )
545 
546  type(inputparamdefinitiontype), parameter :: &
548  ( &
549  'EXG', & ! component
550  'GWTGWT', & ! subcomponent
551  'EXCHANGEDATA', & ! block
552  'BOUNDNAME', & ! tag name
553  'BOUNDNAME', & ! fortran variable
554  'STRING', & ! type
555  '', & ! shape
556  'exchange boundname', & ! longname
557  .false., & ! required
558  .false., & ! prerelease
559  .true., & ! multi-record
560  .false., & ! preserve case
561  .false., & ! layered
562  .false. & ! timeseries
563  )
564 
565  type(inputparamdefinitiontype), parameter :: &
567  [ &
580  exggwtgwt_mvt6, &
583  exggwtgwt_obs6, &
586  exggwtgwt_nexg, &
589  exggwtgwt_ihc, &
590  exggwtgwt_cl1, &
591  exggwtgwt_cl2, &
592  exggwtgwt_hwva, &
595  ]
596 
597  type(inputparamdefinitiontype), parameter :: &
599  ( &
600  'EXG', & ! component
601  'GWTGWT', & ! subcomponent
602  'EXCHANGEDATA', & ! block
603  'EXCHANGEDATA', & ! tag name
604  'EXCHANGEDATA', & ! fortran variable
605  'RECARRAY CELLIDM1 CELLIDM2 IHC CL1 CL2 HWVA AUX BOUNDNAME', & ! type
606  'NEXG', & ! shape
607  'exchange data', & ! longname
608  .true., & ! required
609  .false., & ! prerelease
610  .false., & ! multi-record
611  .false., & ! preserve case
612  .false., & ! layered
613  .false. & ! timeseries
614  )
615 
616  type(inputparamdefinitiontype), parameter :: &
618  [ &
620  ]
621 
622  type(inputblockdefinitiontype), parameter :: &
624  [ &
626  'OPTIONS', & ! blockname
627  .true., & ! required
628  .false., & ! aggregate
629  .false. & ! block_variable
630  ), &
632  'DIMENSIONS', & ! blockname
633  .true., & ! required
634  .false., & ! aggregate
635  .false. & ! block_variable
636  ), &
638  'EXCHANGEDATA', & ! blockname
639  .true., & ! required
640  .true., & ! aggregate
641  .false. & ! block_variable
642  ) &
643  ]
644 
645 end module exggwtgwtinputmodule
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 exggwtgwt_hwva
type(inputparamdefinitiontype), parameter exggwtgwt_cellidm1
type(inputparamdefinitiontype), parameter exggwtgwt_boundname
type(inputparamdefinitiontype), parameter exggwtgwt_nexg
type(inputparamdefinitiontype), parameter exggwtgwt_cl1
type(inputparamdefinitiontype), parameter exggwtgwt_mvt_filerecord
type(inputparamdefinitiontype), parameter exggwtgwt_iprflow
logical, public exg_gwtgwt_multi_package
type(inputparamdefinitiontype), parameter exggwtgwt_dsp_xt3d_rhs
type(inputparamdefinitiontype), parameter exggwtgwt_gwfmodelname2
character(len=16), dimension(*), parameter, public exg_gwtgwt_subpackages
type(inputblockdefinitiontype), dimension(*), parameter, public exg_gwtgwt_block_definitions
type(inputparamdefinitiontype), parameter exggwtgwt_iprpak
type(inputparamdefinitiontype), parameter exggwtgwt_gwfmodelname1
type(inputparamdefinitiontype), parameter exggwtgwt_mvt6
type(inputparamdefinitiontype), parameter exggwtgwt_obs6
type(inputparamdefinitiontype), dimension(*), parameter, public exg_gwtgwt_param_definitions
type(inputparamdefinitiontype), parameter exggwtgwt_auxvar
type(inputparamdefinitiontype), parameter exggwtgwt_obs6_filename
type(inputparamdefinitiontype), parameter exggwtgwt_mvt6_filename
type(inputparamdefinitiontype), parameter exggwtgwt_obs_filerecord
type(inputparamdefinitiontype), parameter exggwtgwt_filein
type(inputparamdefinitiontype), parameter exggwtgwt_ipakcb
type(inputparamdefinitiontype), parameter exggwtgwt_exchangedata
type(inputparamdefinitiontype), parameter exggwtgwt_cellidm2
type(inputparamdefinitiontype), dimension(*), parameter, public exg_gwtgwt_aggregate_definitions
type(inputparamdefinitiontype), parameter exggwtgwt_dev_ifmod_on
type(inputparamdefinitiontype), parameter exggwtgwt_boundnames
type(inputparamdefinitiontype), parameter exggwtgwt_dsp_xt3d_off
type(inputparamdefinitiontype), parameter exggwtgwt_adv_scheme
type(inputparamdefinitiontype), parameter exggwtgwt_cl2
type(inputparamdefinitiontype), parameter exggwtgwt_ihc
type(inputparamdefinitiontype), parameter exggwtgwt_auxiliary
This module contains the InputDefinitionModule.