MODFLOW 6  version 6.7.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
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., & ! multi-record
65  .false., & ! preserve case
66  .false., & ! layered
67  .false. & ! timeseries
68  )
69 
70  type(inputparamdefinitiontype), parameter :: &
72  ( &
73  'EXG', & ! component
74  'GWTGWT', & ! subcomponent
75  'OPTIONS', & ! block
76  'GWFMODELNAME2', & ! tag name
77  'GWFMODELNAME2', & ! fortran variable
78  'STRING', & ! type
79  '', & ! shape
80  'keyword to specify name of second corresponding GWF Model', & ! longname
81  .true., & ! required
82  .false., & ! multi-record
83  .false., & ! preserve case
84  .false., & ! layered
85  .false. & ! timeseries
86  )
87 
88  type(inputparamdefinitiontype), parameter :: &
90  ( &
91  'EXG', & ! component
92  'GWTGWT', & ! subcomponent
93  'OPTIONS', & ! block
94  'AUXILIARY', & ! tag name
95  'AUXILIARY', & ! fortran variable
96  'STRING', & ! type
97  'NAUX', & ! shape
98  'keyword to specify aux variables', & ! longname
99  .false., & ! required
100  .false., & ! multi-record
101  .false., & ! preserve case
102  .false., & ! layered
103  .false. & ! timeseries
104  )
105 
106  type(inputparamdefinitiontype), parameter :: &
108  ( &
109  'EXG', & ! component
110  'GWTGWT', & ! subcomponent
111  'OPTIONS', & ! block
112  'BOUNDNAMES', & ! tag name
113  'BOUNDNAMES', & ! fortran variable
114  'KEYWORD', & ! type
115  '', & ! shape
116  '', & ! longname
117  .false., & ! required
118  .false., & ! multi-record
119  .false., & ! preserve case
120  .false., & ! layered
121  .false. & ! timeseries
122  )
123 
124  type(inputparamdefinitiontype), parameter :: &
126  ( &
127  'EXG', & ! component
128  'GWTGWT', & ! subcomponent
129  'OPTIONS', & ! block
130  'PRINT_INPUT', & ! tag name
131  'IPRPAK', & ! fortran variable
132  'KEYWORD', & ! type
133  '', & ! shape
134  'keyword to print input to list file', & ! longname
135  .false., & ! required
136  .false., & ! multi-record
137  .false., & ! preserve case
138  .false., & ! layered
139  .false. & ! timeseries
140  )
141 
142  type(inputparamdefinitiontype), parameter :: &
144  ( &
145  'EXG', & ! component
146  'GWTGWT', & ! subcomponent
147  'OPTIONS', & ! block
148  'PRINT_FLOWS', & ! tag name
149  'IPRFLOW', & ! fortran variable
150  'KEYWORD', & ! type
151  '', & ! shape
152  'keyword to print gwfgwf flows to list file', & ! longname
153  .false., & ! required
154  .false., & ! multi-record
155  .false., & ! preserve case
156  .false., & ! layered
157  .false. & ! timeseries
158  )
159 
160  type(inputparamdefinitiontype), parameter :: &
162  ( &
163  'EXG', & ! component
164  'GWTGWT', & ! subcomponent
165  'OPTIONS', & ! block
166  'SAVE_FLOWS', & ! tag name
167  'IPAKCB', & ! fortran variable
168  'KEYWORD', & ! type
169  '', & ! shape
170  'keyword to save GWFGWF flows', & ! longname
171  .false., & ! required
172  .false., & ! multi-record
173  .false., & ! preserve case
174  .false., & ! layered
175  .false. & ! timeseries
176  )
177 
178  type(inputparamdefinitiontype), parameter :: &
180  ( &
181  'EXG', & ! component
182  'GWTGWT', & ! subcomponent
183  'OPTIONS', & ! block
184  'ADV_SCHEME', & ! tag name
185  'ADV_SCHEME', & ! fortran variable
186  'STRING', & ! type
187  '', & ! shape
188  'advective scheme', & ! longname
189  .false., & ! required
190  .false., & ! multi-record
191  .false., & ! preserve case
192  .false., & ! layered
193  .false. & ! timeseries
194  )
195 
196  type(inputparamdefinitiontype), parameter :: &
198  ( &
199  'EXG', & ! component
200  'GWTGWT', & ! subcomponent
201  'OPTIONS', & ! block
202  'DSP_XT3D_OFF', & ! tag name
203  'DSP_XT3D_OFF', & ! fortran variable
204  'KEYWORD', & ! type
205  '', & ! shape
206  'deactivate xt3d', & ! longname
207  .false., & ! required
208  .false., & ! multi-record
209  .false., & ! preserve case
210  .false., & ! layered
211  .false. & ! timeseries
212  )
213 
214  type(inputparamdefinitiontype), parameter :: &
216  ( &
217  'EXG', & ! component
218  'GWTGWT', & ! subcomponent
219  'OPTIONS', & ! block
220  'DSP_XT3D_RHS', & ! tag name
221  'DSP_XT3D_RHS', & ! fortran variable
222  'KEYWORD', & ! type
223  '', & ! shape
224  'xt3d on right-hand side', & ! longname
225  .false., & ! required
226  .false., & ! multi-record
227  .false., & ! preserve case
228  .false., & ! layered
229  .false. & ! timeseries
230  )
231 
232  type(inputparamdefinitiontype), parameter :: &
234  ( &
235  'EXG', & ! component
236  'GWTGWT', & ! subcomponent
237  'OPTIONS', & ! block
238  'FILEIN', & ! tag name
239  'FILEIN', & ! fortran variable
240  'KEYWORD', & ! type
241  '', & ! shape
242  'file keyword', & ! longname
243  .true., & ! required
244  .true., & ! multi-record
245  .false., & ! preserve case
246  .false., & ! layered
247  .false. & ! timeseries
248  )
249 
250  type(inputparamdefinitiontype), parameter :: &
252  ( &
253  'EXG', & ! component
254  'GWTGWT', & ! subcomponent
255  'OPTIONS', & ! block
256  'MVT_FILERECORD', & ! tag name
257  'MVT_FILERECORD', & ! fortran variable
258  'RECORD MVT6 FILEIN MVT6_FILENAME', & ! type
259  '', & ! shape
260  '', & ! longname
261  .false., & ! required
262  .false., & ! multi-record
263  .false., & ! preserve case
264  .false., & ! layered
265  .false. & ! timeseries
266  )
267 
268  type(inputparamdefinitiontype), parameter :: &
270  ( &
271  'EXG', & ! component
272  'GWTGWT', & ! subcomponent
273  'OPTIONS', & ! block
274  'MVT6', & ! tag name
275  'MVT6', & ! fortran variable
276  'KEYWORD', & ! type
277  '', & ! shape
278  'obs keyword', & ! longname
279  .true., & ! required
280  .true., & ! multi-record
281  .false., & ! preserve case
282  .false., & ! layered
283  .false. & ! timeseries
284  )
285 
286  type(inputparamdefinitiontype), parameter :: &
288  ( &
289  'EXG', & ! component
290  'GWTGWT', & ! subcomponent
291  'OPTIONS', & ! block
292  'MVT6_FILENAME', & ! tag name
293  'MVT6_FILENAME', & ! fortran variable
294  'STRING', & ! type
295  '', & ! shape
296  'mvt6 input filename', & ! longname
297  .true., & ! required
298  .true., & ! multi-record
299  .true., & ! preserve case
300  .false., & ! layered
301  .false. & ! timeseries
302  )
303 
304  type(inputparamdefinitiontype), parameter :: &
306  ( &
307  'EXG', & ! component
308  'GWTGWT', & ! subcomponent
309  'OPTIONS', & ! block
310  'OBS_FILERECORD', & ! tag name
311  'OBS_FILERECORD', & ! fortran variable
312  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
313  '', & ! shape
314  '', & ! longname
315  .false., & ! required
316  .false., & ! multi-record
317  .false., & ! preserve case
318  .false., & ! layered
319  .false. & ! timeseries
320  )
321 
322  type(inputparamdefinitiontype), parameter :: &
324  ( &
325  'EXG', & ! component
326  'GWTGWT', & ! subcomponent
327  'OPTIONS', & ! block
328  'OBS6', & ! tag name
329  'OBS6', & ! fortran variable
330  'KEYWORD', & ! type
331  '', & ! shape
332  'obs keyword', & ! longname
333  .true., & ! required
334  .true., & ! multi-record
335  .false., & ! preserve case
336  .false., & ! layered
337  .false. & ! timeseries
338  )
339 
340  type(inputparamdefinitiontype), parameter :: &
342  ( &
343  'EXG', & ! component
344  'GWTGWT', & ! subcomponent
345  'OPTIONS', & ! block
346  'OBS6_FILENAME', & ! tag name
347  'OBS6_FILENAME', & ! fortran variable
348  'STRING', & ! type
349  '', & ! shape
350  'obs6 input filename', & ! longname
351  .true., & ! required
352  .true., & ! multi-record
353  .true., & ! 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  'DEV_INTERFACEMODEL_ON', & ! tag name
365  'DEV_IFMOD_ON', & ! fortran variable
366  'KEYWORD', & ! type
367  '', & ! shape
368  'activate interface model on exchange', & ! longname
369  .false., & ! required
370  .false., & ! multi-record
371  .false., & ! preserve case
372  .false., & ! layered
373  .false. & ! timeseries
374  )
375 
376  type(inputparamdefinitiontype), parameter :: &
378  ( &
379  'EXG', & ! component
380  'GWTGWT', & ! subcomponent
381  'DIMENSIONS', & ! block
382  'NEXG', & ! tag name
383  'NEXG', & ! fortran variable
384  'INTEGER', & ! type
385  '', & ! shape
386  'number of exchanges', & ! longname
387  .true., & ! required
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  'EXCHANGEDATA', & ! block
400  'CELLIDM1', & ! tag name
401  'CELLIDM1', & ! fortran variable
402  'INTEGER1D', & ! type
403  'NCELLDIM', & ! shape
404  'cellid of first cell', & ! longname
405  .true., & ! required
406  .true., & ! multi-record
407  .false., & ! preserve case
408  .false., & ! layered
409  .false. & ! timeseries
410  )
411 
412  type(inputparamdefinitiontype), parameter :: &
414  ( &
415  'EXG', & ! component
416  'GWTGWT', & ! subcomponent
417  'EXCHANGEDATA', & ! block
418  'CELLIDM2', & ! tag name
419  'CELLIDM2', & ! fortran variable
420  'INTEGER1D', & ! type
421  'NCELLDIM', & ! shape
422  'cellid of second cell', & ! longname
423  .true., & ! required
424  .true., & ! multi-record
425  .false., & ! preserve case
426  .false., & ! layered
427  .false. & ! timeseries
428  )
429 
430  type(inputparamdefinitiontype), parameter :: &
432  ( &
433  'EXG', & ! component
434  'GWTGWT', & ! subcomponent
435  'EXCHANGEDATA', & ! block
436  'IHC', & ! tag name
437  'IHC', & ! fortran variable
438  'INTEGER', & ! type
439  '', & ! shape
440  'integer flag for connection type', & ! longname
441  .true., & ! required
442  .true., & ! multi-record
443  .false., & ! preserve case
444  .false., & ! layered
445  .false. & ! timeseries
446  )
447 
448  type(inputparamdefinitiontype), parameter :: &
450  ( &
451  'EXG', & ! component
452  'GWTGWT', & ! subcomponent
453  'EXCHANGEDATA', & ! block
454  'CL1', & ! tag name
455  'CL1', & ! fortran variable
456  'DOUBLE', & ! type
457  '', & ! shape
458  'connection distance', & ! longname
459  .true., & ! required
460  .true., & ! multi-record
461  .false., & ! preserve case
462  .false., & ! layered
463  .false. & ! timeseries
464  )
465 
466  type(inputparamdefinitiontype), parameter :: &
468  ( &
469  'EXG', & ! component
470  'GWTGWT', & ! subcomponent
471  'EXCHANGEDATA', & ! block
472  'CL2', & ! tag name
473  'CL2', & ! fortran variable
474  'DOUBLE', & ! type
475  '', & ! shape
476  'connection distance', & ! longname
477  .true., & ! required
478  .true., & ! multi-record
479  .false., & ! preserve case
480  .false., & ! layered
481  .false. & ! timeseries
482  )
483 
484  type(inputparamdefinitiontype), parameter :: &
486  ( &
487  'EXG', & ! component
488  'GWTGWT', & ! subcomponent
489  'EXCHANGEDATA', & ! block
490  'HWVA', & ! tag name
491  'HWVA', & ! fortran variable
492  'DOUBLE', & ! type
493  '', & ! shape
494  'horizontal cell width or area for vertical flow', & ! longname
495  .true., & ! required
496  .true., & ! multi-record
497  .false., & ! preserve case
498  .false., & ! layered
499  .false. & ! timeseries
500  )
501 
502  type(inputparamdefinitiontype), parameter :: &
504  ( &
505  'EXG', & ! component
506  'GWTGWT', & ! subcomponent
507  'EXCHANGEDATA', & ! block
508  'AUX', & ! tag name
509  'AUXVAR', & ! fortran variable
510  'DOUBLE1D', & ! type
511  'NAUX', & ! shape
512  'auxiliary variables', & ! longname
513  .false., & ! required
514  .true., & ! multi-record
515  .false., & ! preserve case
516  .false., & ! layered
517  .false. & ! timeseries
518  )
519 
520  type(inputparamdefinitiontype), parameter :: &
522  ( &
523  'EXG', & ! component
524  'GWTGWT', & ! subcomponent
525  'EXCHANGEDATA', & ! block
526  'BOUNDNAME', & ! tag name
527  'BOUNDNAME', & ! fortran variable
528  'STRING', & ! type
529  '', & ! shape
530  'exchange boundname', & ! longname
531  .false., & ! required
532  .true., & ! multi-record
533  .false., & ! preserve case
534  .false., & ! layered
535  .false. & ! timeseries
536  )
537 
538  type(inputparamdefinitiontype), parameter :: &
540  [ &
553  exggwtgwt_mvt6, &
556  exggwtgwt_obs6, &
559  exggwtgwt_nexg, &
562  exggwtgwt_ihc, &
563  exggwtgwt_cl1, &
564  exggwtgwt_cl2, &
565  exggwtgwt_hwva, &
568  ]
569 
570  type(inputparamdefinitiontype), parameter :: &
572  ( &
573  'EXG', & ! component
574  'GWTGWT', & ! subcomponent
575  'EXCHANGEDATA', & ! block
576  'EXCHANGEDATA', & ! tag name
577  'EXCHANGEDATA', & ! fortran variable
578  'RECARRAY CELLIDM1 CELLIDM2 IHC CL1 CL2 HWVA AUX BOUNDNAME', & ! type
579  'NEXG', & ! shape
580  'exchange data', & ! longname
581  .true., & ! required
582  .false., & ! multi-record
583  .false., & ! preserve case
584  .false., & ! layered
585  .false. & ! timeseries
586  )
587 
588  type(inputparamdefinitiontype), parameter :: &
590  [ &
592  ]
593 
594  type(inputblockdefinitiontype), parameter :: &
596  [ &
598  'OPTIONS', & ! blockname
599  .true., & ! required
600  .false., & ! aggregate
601  .false. & ! block_variable
602  ), &
604  'DIMENSIONS', & ! blockname
605  .true., & ! required
606  .false., & ! aggregate
607  .false. & ! block_variable
608  ), &
610  'EXCHANGEDATA', & ! blockname
611  .true., & ! required
612  .true., & ! aggregate
613  .false. & ! block_variable
614  ) &
615  ]
616 
617 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.