MODFLOW 6  version 6.9.0.dev0
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
14 
16  logical :: gwfmodelname1 = .false.
17  logical :: gwfmodelname2 = .false.
18  logical :: auxiliary = .false.
19  logical :: boundnames = .false.
20  logical :: iprpak = .false.
21  logical :: iprflow = .false.
22  logical :: ipakcb = .false.
23  logical :: adv_scheme = .false.
24  logical :: dsp_xt3d_off = .false.
25  logical :: dsp_xt3d_rhs = .false.
26  logical :: filein = .false.
27  logical :: mvt_filerecord = .false.
28  logical :: mvt6 = .false.
29  logical :: mvt6_filename = .false.
30  logical :: obs_filerecord = .false.
31  logical :: obs6 = .false.
32  logical :: obs6_filename = .false.
33  logical :: dev_ifmod_on = .false.
34  logical :: nexg = .false.
35  logical :: cellidm1 = .false.
36  logical :: cellidm2 = .false.
37  logical :: ihc = .false.
38  logical :: cl1 = .false.
39  logical :: cl2 = .false.
40  logical :: hwva = .false.
41  logical :: auxvar = .false.
42  logical :: boundname = .false.
44 
45  logical :: exg_gwtgwt_multi_package = .true.
46  logical :: exg_gwtgwt_is_advanced = .false.
47 
48  character(len=16), parameter :: &
50  [ &
51  ' ' &
52  ]
53 
54  type(inputparamdefinitiontype), parameter :: &
56  ( &
57  'EXG', & ! component
58  'GWTGWT', & ! subcomponent
59  'OPTIONS', & ! block
60  'GWFMODELNAME1', & ! tag name
61  'GWFMODELNAME1', & ! fortran variable
62  'STRING', & ! type
63  '', & ! shape
64  'keyword to specify name of first corresponding GWF Model', & ! longname
65  .true., & ! 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  'EXG', & ! component
77  'GWTGWT', & ! subcomponent
78  'OPTIONS', & ! block
79  'GWFMODELNAME2', & ! tag name
80  'GWFMODELNAME2', & ! fortran variable
81  'STRING', & ! type
82  '', & ! shape
83  'keyword to specify name of second corresponding GWF Model', & ! longname
84  .true., & ! required
85  .false., & ! developmode
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  'GWTGWT', & ! subcomponent
97  'OPTIONS', & ! block
98  'AUXILIARY', & ! tag name
99  'AUXILIARY', & ! fortran variable
100  'STRING', & ! type
101  'NAUX', & ! shape
102  'keyword to specify aux variables', & ! longname
103  .false., & ! required
104  .false., & ! developmode
105  .false., & ! multi-record
106  .false., & ! preserve case
107  .false., & ! layered
108  .false. & ! timeseries
109  )
110 
111  type(inputparamdefinitiontype), parameter :: &
113  ( &
114  'EXG', & ! component
115  'GWTGWT', & ! subcomponent
116  'OPTIONS', & ! block
117  'BOUNDNAMES', & ! tag name
118  'BOUNDNAMES', & ! fortran variable
119  'KEYWORD', & ! type
120  '', & ! shape
121  '', & ! longname
122  .false., & ! required
123  .false., & ! developmode
124  .false., & ! multi-record
125  .false., & ! preserve case
126  .false., & ! layered
127  .false. & ! timeseries
128  )
129 
130  type(inputparamdefinitiontype), parameter :: &
132  ( &
133  'EXG', & ! component
134  'GWTGWT', & ! subcomponent
135  'OPTIONS', & ! block
136  'PRINT_INPUT', & ! tag name
137  'IPRPAK', & ! fortran variable
138  'KEYWORD', & ! type
139  '', & ! shape
140  'keyword to print input to list file', & ! 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  'EXG', & ! component
153  'GWTGWT', & ! subcomponent
154  'OPTIONS', & ! block
155  'PRINT_FLOWS', & ! tag name
156  'IPRFLOW', & ! fortran variable
157  'KEYWORD', & ! type
158  '', & ! shape
159  'keyword to print gwfgwf flows to list file', & ! longname
160  .false., & ! required
161  .false., & ! developmode
162  .false., & ! multi-record
163  .false., & ! preserve case
164  .false., & ! layered
165  .false. & ! timeseries
166  )
167 
168  type(inputparamdefinitiontype), parameter :: &
170  ( &
171  'EXG', & ! component
172  'GWTGWT', & ! subcomponent
173  'OPTIONS', & ! block
174  'SAVE_FLOWS', & ! tag name
175  'IPAKCB', & ! fortran variable
176  'KEYWORD', & ! type
177  '', & ! shape
178  'keyword to save GWFGWF flows', & ! longname
179  .false., & ! required
180  .false., & ! developmode
181  .false., & ! multi-record
182  .false., & ! preserve case
183  .false., & ! layered
184  .false. & ! timeseries
185  )
186 
187  type(inputparamdefinitiontype), parameter :: &
189  ( &
190  'EXG', & ! component
191  'GWTGWT', & ! subcomponent
192  'OPTIONS', & ! block
193  'ADV_SCHEME', & ! tag name
194  'ADV_SCHEME', & ! fortran variable
195  'STRING', & ! type
196  '', & ! shape
197  'advective scheme', & ! 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  'EXG', & ! component
210  'GWTGWT', & ! subcomponent
211  'OPTIONS', & ! block
212  'DSP_XT3D_OFF', & ! tag name
213  'DSP_XT3D_OFF', & ! fortran variable
214  'KEYWORD', & ! type
215  '', & ! shape
216  'deactivate xt3d', & ! longname
217  .false., & ! required
218  .false., & ! developmode
219  .false., & ! multi-record
220  .false., & ! preserve case
221  .false., & ! layered
222  .false. & ! timeseries
223  )
224 
225  type(inputparamdefinitiontype), parameter :: &
227  ( &
228  'EXG', & ! component
229  'GWTGWT', & ! subcomponent
230  'OPTIONS', & ! block
231  'DSP_XT3D_RHS', & ! tag name
232  'DSP_XT3D_RHS', & ! fortran variable
233  'KEYWORD', & ! type
234  '', & ! shape
235  'xt3d on right-hand side', & ! longname
236  .false., & ! required
237  .false., & ! developmode
238  .false., & ! multi-record
239  .false., & ! preserve case
240  .false., & ! layered
241  .false. & ! timeseries
242  )
243 
244  type(inputparamdefinitiontype), parameter :: &
246  ( &
247  'EXG', & ! component
248  'GWTGWT', & ! subcomponent
249  'OPTIONS', & ! block
250  'FILEIN', & ! tag name
251  'FILEIN', & ! fortran variable
252  'KEYWORD', & ! type
253  '', & ! shape
254  'file keyword', & ! longname
255  .true., & ! required
256  .false., & ! developmode
257  .true., & ! multi-record
258  .false., & ! preserve case
259  .false., & ! layered
260  .false. & ! timeseries
261  )
262 
263  type(inputparamdefinitiontype), parameter :: &
265  ( &
266  'EXG', & ! component
267  'GWTGWT', & ! subcomponent
268  'OPTIONS', & ! block
269  'MVT_FILERECORD', & ! tag name
270  'MVT_FILERECORD', & ! fortran variable
271  'RECORD MVT6 FILEIN MVT6_FILENAME', & ! type
272  '', & ! shape
273  '', & ! longname
274  .false., & ! required
275  .false., & ! developmode
276  .false., & ! multi-record
277  .false., & ! preserve case
278  .false., & ! layered
279  .false. & ! timeseries
280  )
281 
282  type(inputparamdefinitiontype), parameter :: &
284  ( &
285  'EXG', & ! component
286  'GWTGWT', & ! subcomponent
287  'OPTIONS', & ! block
288  'MVT6', & ! tag name
289  'MVT6', & ! fortran variable
290  'KEYWORD', & ! type
291  '', & ! shape
292  'obs keyword', & ! 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  'EXG', & ! component
305  'GWTGWT', & ! subcomponent
306  'OPTIONS', & ! block
307  'MVT6_FILENAME', & ! tag name
308  'MVT6_FILENAME', & ! fortran variable
309  'STRING', & ! type
310  '', & ! shape
311  'mvt6 input filename', & ! longname
312  .true., & ! required
313  .false., & ! developmode
314  .true., & ! multi-record
315  .true., & ! preserve case
316  .false., & ! layered
317  .false. & ! timeseries
318  )
319 
320  type(inputparamdefinitiontype), parameter :: &
322  ( &
323  'EXG', & ! component
324  'GWTGWT', & ! subcomponent
325  'OPTIONS', & ! block
326  'OBS_FILERECORD', & ! tag name
327  'OBS_FILERECORD', & ! fortran variable
328  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
329  '', & ! shape
330  '', & ! longname
331  .false., & ! required
332  .false., & ! developmode
333  .false., & ! multi-record
334  .false., & ! preserve case
335  .false., & ! layered
336  .false. & ! timeseries
337  )
338 
339  type(inputparamdefinitiontype), parameter :: &
341  ( &
342  'EXG', & ! component
343  'GWTGWT', & ! subcomponent
344  'OPTIONS', & ! block
345  'OBS6', & ! tag name
346  'OBS6', & ! fortran variable
347  'KEYWORD', & ! type
348  '', & ! shape
349  'obs keyword', & ! 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  'EXG', & ! component
362  'GWTGWT', & ! subcomponent
363  'OPTIONS', & ! block
364  'OBS6_FILENAME', & ! tag name
365  'OBS6_FILENAME', & ! fortran variable
366  'STRING', & ! type
367  '', & ! shape
368  'obs6 input filename', & ! longname
369  .true., & ! required
370  .false., & ! developmode
371  .true., & ! multi-record
372  .true., & ! preserve case
373  .false., & ! layered
374  .false. & ! timeseries
375  )
376 
377  type(inputparamdefinitiontype), parameter :: &
379  ( &
380  'EXG', & ! component
381  'GWTGWT', & ! subcomponent
382  'OPTIONS', & ! block
383  'DEV_INTERFACEMODEL_ON', & ! tag name
384  'DEV_IFMOD_ON', & ! fortran variable
385  'KEYWORD', & ! type
386  '', & ! shape
387  'activate interface model on exchange', & ! 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  'EXG', & ! component
400  'GWTGWT', & ! subcomponent
401  'DIMENSIONS', & ! block
402  'NEXG', & ! tag name
403  'NEXG', & ! fortran variable
404  'INTEGER', & ! type
405  '', & ! shape
406  'number of exchanges', & ! longname
407  .true., & ! required
408  .false., & ! developmode
409  .false., & ! multi-record
410  .false., & ! preserve case
411  .false., & ! layered
412  .false. & ! timeseries
413  )
414 
415  type(inputparamdefinitiontype), parameter :: &
417  ( &
418  'EXG', & ! component
419  'GWTGWT', & ! subcomponent
420  'EXCHANGEDATA', & ! block
421  'CELLIDM1', & ! tag name
422  'CELLIDM1', & ! fortran variable
423  'INTEGER1D', & ! type
424  'NCELLDIM', & ! shape
425  'cellid of first cell', & ! longname
426  .true., & ! required
427  .false., & ! developmode
428  .true., & ! multi-record
429  .false., & ! preserve case
430  .false., & ! layered
431  .false. & ! timeseries
432  )
433 
434  type(inputparamdefinitiontype), parameter :: &
436  ( &
437  'EXG', & ! component
438  'GWTGWT', & ! subcomponent
439  'EXCHANGEDATA', & ! block
440  'CELLIDM2', & ! tag name
441  'CELLIDM2', & ! fortran variable
442  'INTEGER1D', & ! type
443  'NCELLDIM', & ! shape
444  'cellid of second cell', & ! 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  'EXG', & ! component
457  'GWTGWT', & ! subcomponent
458  'EXCHANGEDATA', & ! block
459  'IHC', & ! tag name
460  'IHC', & ! fortran variable
461  'INTEGER', & ! type
462  '', & ! shape
463  'integer flag for connection 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  'EXG', & ! component
476  'GWTGWT', & ! subcomponent
477  'EXCHANGEDATA', & ! block
478  'CL1', & ! tag name
479  'CL1', & ! fortran variable
480  'DOUBLE', & ! type
481  '', & ! shape
482  'connection distance', & ! 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  'EXG', & ! component
495  'GWTGWT', & ! subcomponent
496  'EXCHANGEDATA', & ! block
497  'CL2', & ! tag name
498  'CL2', & ! fortran variable
499  'DOUBLE', & ! type
500  '', & ! shape
501  'connection distance', & ! 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  'EXG', & ! component
514  'GWTGWT', & ! subcomponent
515  'EXCHANGEDATA', & ! block
516  'HWVA', & ! tag name
517  'HWVA', & ! fortran variable
518  'DOUBLE', & ! type
519  '', & ! shape
520  'horizontal cell width or area for vertical flow', & ! 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  'EXG', & ! component
533  'GWTGWT', & ! subcomponent
534  'EXCHANGEDATA', & ! block
535  'AUX', & ! tag name
536  'AUXVAR', & ! fortran variable
537  'DOUBLE1D', & ! type
538  'NAUX', & ! shape
539  'auxiliary variables', & ! longname
540  .false., & ! 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  'EXG', & ! component
552  'GWTGWT', & ! subcomponent
553  'EXCHANGEDATA', & ! block
554  'BOUNDNAME', & ! tag name
555  'BOUNDNAME', & ! fortran variable
556  'STRING', & ! type
557  '', & ! shape
558  'exchange boundname', & ! longname
559  .false., & ! 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  [ &
582  exggwtgwt_mvt6, &
585  exggwtgwt_obs6, &
588  exggwtgwt_nexg, &
591  exggwtgwt_ihc, &
592  exggwtgwt_cl1, &
593  exggwtgwt_cl2, &
594  exggwtgwt_hwva, &
597  ]
598 
599  type(inputparamdefinitiontype), parameter :: &
601  ( &
602  'EXG', & ! component
603  'GWTGWT', & ! subcomponent
604  'EXCHANGEDATA', & ! block
605  'EXCHANGEDATA', & ! tag name
606  'EXCHANGEDATA', & ! fortran variable
607  'RECARRAY CELLIDM1 CELLIDM2 IHC CL1 CL2 HWVA AUX BOUNDNAME', & ! type
608  'NEXG', & ! shape
609  'exchange data', & ! longname
610  .true., & ! required
611  .false., & ! developmode
612  .false., & ! 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  .true., & ! required
630  .false., & ! aggregate
631  .false. & ! block_variable
632  ), &
634  'DIMENSIONS', & ! blockname
635  .true., & ! required
636  .false., & ! aggregate
637  .false. & ! block_variable
638  ), &
640  'EXCHANGEDATA', & ! blockname
641  .true., & ! required
642  .true., & ! aggregate
643  .false. & ! block_variable
644  ) &
645  ]
646 
647 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
logical, public exg_gwtgwt_is_advanced
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
Input definition module.
Input block definition. Describes an input block.
Input parameter definition. Describes an input parameter.