MODFLOW 6  version 6.6.0.dev0
USGS Modular Hydrologic Model
gwt-disuidm.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 :: length_units = .false.
16  logical :: nogrb = .false.
17  logical :: xorigin = .false.
18  logical :: yorigin = .false.
19  logical :: angrot = .false.
20  logical :: voffsettol = .false.
21  logical :: export_ascii = .false.
22  logical :: nodes = .false.
23  logical :: nja = .false.
24  logical :: nvert = .false.
25  logical :: top = .false.
26  logical :: bot = .false.
27  logical :: area = .false.
28  logical :: idomain = .false.
29  logical :: iac = .false.
30  logical :: ja = .false.
31  logical :: ihc = .false.
32  logical :: cl12 = .false.
33  logical :: hwva = .false.
34  logical :: angldegx = .false.
35  logical :: iv = .false.
36  logical :: xv = .false.
37  logical :: yv = .false.
38  logical :: icell2d = .false.
39  logical :: xc = .false.
40  logical :: yc = .false.
41  logical :: ncvert = .false.
42  logical :: icvert = .false.
43  end type gwtdisuparamfoundtype
44 
45  logical :: gwt_disu_multi_package = .false.
46 
47  character(len=16), parameter :: &
49  [ &
50  ' ' &
51  ]
52 
53  type(inputparamdefinitiontype), parameter :: &
55  ( &
56  'GWT', & ! component
57  'DISU', & ! subcomponent
58  'OPTIONS', & ! block
59  'LENGTH_UNITS', & ! tag name
60  'LENGTH_UNITS', & ! fortran variable
61  'STRING', & ! type
62  '', & ! shape
63  'model length units', & ! longname
64  .false., & ! required
65  .false., & ! multi-record
66  .false., & ! preserve case
67  .false., & ! layered
68  .false. & ! timeseries
69  )
70 
71  type(inputparamdefinitiontype), parameter :: &
73  ( &
74  'GWT', & ! component
75  'DISU', & ! subcomponent
76  'OPTIONS', & ! block
77  'NOGRB', & ! tag name
78  'NOGRB', & ! fortran variable
79  'KEYWORD', & ! type
80  '', & ! shape
81  'do not write binary grid file', & ! longname
82  .false., & ! required
83  .false., & ! multi-record
84  .false., & ! preserve case
85  .false., & ! layered
86  .false. & ! timeseries
87  )
88 
89  type(inputparamdefinitiontype), parameter :: &
91  ( &
92  'GWT', & ! component
93  'DISU', & ! subcomponent
94  'OPTIONS', & ! block
95  'XORIGIN', & ! tag name
96  'XORIGIN', & ! fortran variable
97  'DOUBLE', & ! type
98  '', & ! shape
99  'x-position origin of the model grid coordinate system', & ! longname
100  .false., & ! required
101  .false., & ! multi-record
102  .false., & ! preserve case
103  .false., & ! layered
104  .false. & ! timeseries
105  )
106 
107  type(inputparamdefinitiontype), parameter :: &
109  ( &
110  'GWT', & ! component
111  'DISU', & ! subcomponent
112  'OPTIONS', & ! block
113  'YORIGIN', & ! tag name
114  'YORIGIN', & ! fortran variable
115  'DOUBLE', & ! type
116  '', & ! shape
117  'y-position origin of the model grid coordinate system', & ! longname
118  .false., & ! required
119  .false., & ! multi-record
120  .false., & ! preserve case
121  .false., & ! layered
122  .false. & ! timeseries
123  )
124 
125  type(inputparamdefinitiontype), parameter :: &
127  ( &
128  'GWT', & ! component
129  'DISU', & ! subcomponent
130  'OPTIONS', & ! block
131  'ANGROT', & ! tag name
132  'ANGROT', & ! fortran variable
133  'DOUBLE', & ! type
134  '', & ! shape
135  'rotation angle', & ! longname
136  .false., & ! required
137  .false., & ! multi-record
138  .false., & ! preserve case
139  .false., & ! layered
140  .false. & ! timeseries
141  )
142 
143  type(inputparamdefinitiontype), parameter :: &
145  ( &
146  'GWT', & ! component
147  'DISU', & ! subcomponent
148  'OPTIONS', & ! block
149  'VERTICAL_OFFSET_TOLERANCE', & ! tag name
150  'VOFFSETTOL', & ! fortran variable
151  'DOUBLE', & ! type
152  '', & ! shape
153  'vertical length dimension for top and bottom checking', & ! longname
154  .false., & ! required
155  .false., & ! multi-record
156  .false., & ! preserve case
157  .false., & ! layered
158  .false. & ! timeseries
159  )
160 
161  type(inputparamdefinitiontype), parameter :: &
163  ( &
164  'GWT', & ! component
165  'DISU', & ! subcomponent
166  'OPTIONS', & ! block
167  'EXPORT_ARRAY_ASCII', & ! tag name
168  'EXPORT_ASCII', & ! fortran variable
169  'KEYWORD', & ! type
170  '', & ! shape
171  'export array variables to layered ascii files.', & ! longname
172  .false., & ! required
173  .false., & ! multi-record
174  .false., & ! preserve case
175  .false., & ! layered
176  .false. & ! timeseries
177  )
178 
179  type(inputparamdefinitiontype), parameter :: &
181  ( &
182  'GWT', & ! component
183  'DISU', & ! subcomponent
184  'DIMENSIONS', & ! block
185  'NODES', & ! tag name
186  'NODES', & ! fortran variable
187  'INTEGER', & ! type
188  '', & ! shape
189  'number of layers', & ! longname
190  .true., & ! required
191  .false., & ! multi-record
192  .false., & ! preserve case
193  .false., & ! layered
194  .false. & ! timeseries
195  )
196 
197  type(inputparamdefinitiontype), parameter :: &
199  ( &
200  'GWT', & ! component
201  'DISU', & ! subcomponent
202  'DIMENSIONS', & ! block
203  'NJA', & ! tag name
204  'NJA', & ! fortran variable
205  'INTEGER', & ! type
206  '', & ! shape
207  'number of columns', & ! longname
208  .true., & ! required
209  .false., & ! multi-record
210  .false., & ! preserve case
211  .false., & ! layered
212  .false. & ! timeseries
213  )
214 
215  type(inputparamdefinitiontype), parameter :: &
217  ( &
218  'GWT', & ! component
219  'DISU', & ! subcomponent
220  'DIMENSIONS', & ! block
221  'NVERT', & ! tag name
222  'NVERT', & ! fortran variable
223  'INTEGER', & ! type
224  '', & ! shape
225  'number of vertices', & ! longname
226  .false., & ! required
227  .false., & ! multi-record
228  .false., & ! preserve case
229  .false., & ! layered
230  .false. & ! timeseries
231  )
232 
233  type(inputparamdefinitiontype), parameter :: &
235  ( &
236  'GWT', & ! component
237  'DISU', & ! subcomponent
238  'GRIDDATA', & ! block
239  'TOP', & ! tag name
240  'TOP', & ! fortran variable
241  'DOUBLE1D', & ! type
242  'NODES', & ! shape
243  'cell top elevation', & ! longname
244  .true., & ! required
245  .false., & ! multi-record
246  .false., & ! preserve case
247  .false., & ! layered
248  .false. & ! timeseries
249  )
250 
251  type(inputparamdefinitiontype), parameter :: &
253  ( &
254  'GWT', & ! component
255  'DISU', & ! subcomponent
256  'GRIDDATA', & ! block
257  'BOT', & ! tag name
258  'BOT', & ! fortran variable
259  'DOUBLE1D', & ! type
260  'NODES', & ! shape
261  'cell bottom elevation', & ! longname
262  .true., & ! required
263  .false., & ! multi-record
264  .false., & ! preserve case
265  .false., & ! layered
266  .false. & ! timeseries
267  )
268 
269  type(inputparamdefinitiontype), parameter :: &
271  ( &
272  'GWT', & ! component
273  'DISU', & ! subcomponent
274  'GRIDDATA', & ! block
275  'AREA', & ! tag name
276  'AREA', & ! fortran variable
277  'DOUBLE1D', & ! type
278  'NODES', & ! shape
279  'cell surface area', & ! longname
280  .true., & ! required
281  .false., & ! multi-record
282  .false., & ! preserve case
283  .false., & ! layered
284  .false. & ! timeseries
285  )
286 
287  type(inputparamdefinitiontype), parameter :: &
289  ( &
290  'GWT', & ! component
291  'DISU', & ! subcomponent
292  'GRIDDATA', & ! block
293  'IDOMAIN', & ! tag name
294  'IDOMAIN', & ! fortran variable
295  'INTEGER1D', & ! type
296  'NODES', & ! shape
297  'idomain existence array', & ! longname
298  .false., & ! required
299  .false., & ! multi-record
300  .false., & ! preserve case
301  .false., & ! layered
302  .false. & ! timeseries
303  )
304 
305  type(inputparamdefinitiontype), parameter :: &
307  ( &
308  'GWT', & ! component
309  'DISU', & ! subcomponent
310  'CONNECTIONDATA', & ! block
311  'IAC', & ! tag name
312  'IAC', & ! fortran variable
313  'INTEGER1D', & ! type
314  'NODES', & ! shape
315  'number of cell connections', & ! longname
316  .true., & ! required
317  .false., & ! multi-record
318  .false., & ! preserve case
319  .false., & ! layered
320  .false. & ! timeseries
321  )
322 
323  type(inputparamdefinitiontype), parameter :: &
325  ( &
326  'GWT', & ! component
327  'DISU', & ! subcomponent
328  'CONNECTIONDATA', & ! block
329  'JA', & ! tag name
330  'JA', & ! fortran variable
331  'INTEGER1D', & ! type
332  'NJA', & ! shape
333  'grid connectivity', & ! longname
334  .true., & ! required
335  .false., & ! multi-record
336  .false., & ! preserve case
337  .false., & ! layered
338  .false. & ! timeseries
339  )
340 
341  type(inputparamdefinitiontype), parameter :: &
343  ( &
344  'GWT', & ! component
345  'DISU', & ! subcomponent
346  'CONNECTIONDATA', & ! block
347  'IHC', & ! tag name
348  'IHC', & ! fortran variable
349  'INTEGER1D', & ! type
350  'NJA', & ! shape
351  'connection type', & ! longname
352  .true., & ! required
353  .false., & ! multi-record
354  .false., & ! preserve case
355  .false., & ! layered
356  .false. & ! timeseries
357  )
358 
359  type(inputparamdefinitiontype), parameter :: &
361  ( &
362  'GWT', & ! component
363  'DISU', & ! subcomponent
364  'CONNECTIONDATA', & ! block
365  'CL12', & ! tag name
366  'CL12', & ! fortran variable
367  'DOUBLE1D', & ! type
368  'NJA', & ! shape
369  'connection lengths', & ! longname
370  .true., & ! required
371  .false., & ! multi-record
372  .false., & ! preserve case
373  .false., & ! layered
374  .false. & ! timeseries
375  )
376 
377  type(inputparamdefinitiontype), parameter :: &
379  ( &
380  'GWT', & ! component
381  'DISU', & ! subcomponent
382  'CONNECTIONDATA', & ! block
383  'HWVA', & ! tag name
384  'HWVA', & ! fortran variable
385  'DOUBLE1D', & ! type
386  'NJA', & ! shape
387  'connection lengths', & ! longname
388  .true., & ! required
389  .false., & ! multi-record
390  .false., & ! preserve case
391  .false., & ! layered
392  .false. & ! timeseries
393  )
394 
395  type(inputparamdefinitiontype), parameter :: &
397  ( &
398  'GWT', & ! component
399  'DISU', & ! subcomponent
400  'CONNECTIONDATA', & ! block
401  'ANGLDEGX', & ! tag name
402  'ANGLDEGX', & ! fortran variable
403  'DOUBLE1D', & ! type
404  'NJA', & ! shape
405  'angle of face normal to connection', & ! longname
406  .false., & ! required
407  .false., & ! multi-record
408  .false., & ! preserve case
409  .false., & ! layered
410  .false. & ! timeseries
411  )
412 
413  type(inputparamdefinitiontype), parameter :: &
415  ( &
416  'GWT', & ! component
417  'DISU', & ! subcomponent
418  'VERTICES', & ! block
419  'IV', & ! tag name
420  'IV', & ! fortran variable
421  'INTEGER', & ! type
422  '', & ! shape
423  'vertex number', & ! longname
424  .true., & ! required
425  .true., & ! multi-record
426  .false., & ! preserve case
427  .false., & ! layered
428  .false. & ! timeseries
429  )
430 
431  type(inputparamdefinitiontype), parameter :: &
433  ( &
434  'GWT', & ! component
435  'DISU', & ! subcomponent
436  'VERTICES', & ! block
437  'XV', & ! tag name
438  'XV', & ! fortran variable
439  'DOUBLE', & ! type
440  '', & ! shape
441  'x-coordinate for vertex', & ! longname
442  .true., & ! required
443  .true., & ! multi-record
444  .false., & ! preserve case
445  .false., & ! layered
446  .false. & ! timeseries
447  )
448 
449  type(inputparamdefinitiontype), parameter :: &
451  ( &
452  'GWT', & ! component
453  'DISU', & ! subcomponent
454  'VERTICES', & ! block
455  'YV', & ! tag name
456  'YV', & ! fortran variable
457  'DOUBLE', & ! type
458  '', & ! shape
459  'y-coordinate for vertex', & ! longname
460  .true., & ! required
461  .true., & ! multi-record
462  .false., & ! preserve case
463  .false., & ! layered
464  .false. & ! timeseries
465  )
466 
467  type(inputparamdefinitiontype), parameter :: &
469  ( &
470  'GWT', & ! component
471  'DISU', & ! subcomponent
472  'CELL2D', & ! block
473  'ICELL2D', & ! tag name
474  'ICELL2D', & ! fortran variable
475  'INTEGER', & ! type
476  '', & ! shape
477  'cell2d number', & ! longname
478  .true., & ! required
479  .true., & ! multi-record
480  .false., & ! preserve case
481  .false., & ! layered
482  .false. & ! timeseries
483  )
484 
485  type(inputparamdefinitiontype), parameter :: &
487  ( &
488  'GWT', & ! component
489  'DISU', & ! subcomponent
490  'CELL2D', & ! block
491  'XC', & ! tag name
492  'XC', & ! fortran variable
493  'DOUBLE', & ! type
494  '', & ! shape
495  'x-coordinate for cell center', & ! longname
496  .true., & ! required
497  .true., & ! multi-record
498  .false., & ! preserve case
499  .false., & ! layered
500  .false. & ! timeseries
501  )
502 
503  type(inputparamdefinitiontype), parameter :: &
505  ( &
506  'GWT', & ! component
507  'DISU', & ! subcomponent
508  'CELL2D', & ! block
509  'YC', & ! tag name
510  'YC', & ! fortran variable
511  'DOUBLE', & ! type
512  '', & ! shape
513  'y-coordinate for cell center', & ! longname
514  .true., & ! required
515  .true., & ! multi-record
516  .false., & ! preserve case
517  .false., & ! layered
518  .false. & ! timeseries
519  )
520 
521  type(inputparamdefinitiontype), parameter :: &
523  ( &
524  'GWT', & ! component
525  'DISU', & ! subcomponent
526  'CELL2D', & ! block
527  'NCVERT', & ! tag name
528  'NCVERT', & ! fortran variable
529  'INTEGER', & ! type
530  '', & ! shape
531  'number of cell vertices', & ! longname
532  .true., & ! required
533  .true., & ! multi-record
534  .false., & ! preserve case
535  .false., & ! layered
536  .false. & ! timeseries
537  )
538 
539  type(inputparamdefinitiontype), parameter :: &
541  ( &
542  'GWT', & ! component
543  'DISU', & ! subcomponent
544  'CELL2D', & ! block
545  'ICVERT', & ! tag name
546  'ICVERT', & ! fortran variable
547  'INTEGER1D', & ! type
548  'NCVERT', & ! shape
549  'array of vertex numbers', & ! longname
550  .true., & ! required
551  .true., & ! multi-record
552  .false., & ! preserve case
553  .false., & ! layered
554  .false. & ! timeseries
555  )
556 
557  type(inputparamdefinitiontype), parameter :: &
559  [ &
561  gwtdisu_nogrb, &
562  gwtdisu_xorigin, &
563  gwtdisu_yorigin, &
564  gwtdisu_angrot, &
567  gwtdisu_nodes, &
568  gwtdisu_nja, &
569  gwtdisu_nvert, &
570  gwtdisu_top, &
571  gwtdisu_bot, &
572  gwtdisu_area, &
573  gwtdisu_idomain, &
574  gwtdisu_iac, &
575  gwtdisu_ja, &
576  gwtdisu_ihc, &
577  gwtdisu_cl12, &
578  gwtdisu_hwva, &
580  gwtdisu_iv, &
581  gwtdisu_xv, &
582  gwtdisu_yv, &
583  gwtdisu_icell2d, &
584  gwtdisu_xc, &
585  gwtdisu_yc, &
586  gwtdisu_ncvert, &
588  ]
589 
590  type(inputparamdefinitiontype), parameter :: &
592  ( &
593  'GWT', & ! component
594  'DISU', & ! subcomponent
595  'VERTICES', & ! block
596  'VERTICES', & ! tag name
597  'VERTICES', & ! fortran variable
598  'RECARRAY IV XV YV', & ! type
599  'NVERT', & ! shape
600  'vertices data', & ! longname
601  .false., & ! required
602  .false., & ! multi-record
603  .false., & ! preserve case
604  .false., & ! layered
605  .false. & ! timeseries
606  )
607 
608  type(inputparamdefinitiontype), parameter :: &
610  ( &
611  'GWT', & ! component
612  'DISU', & ! subcomponent
613  'CELL2D', & ! block
614  'CELL2D', & ! tag name
615  'CELL2D', & ! fortran variable
616  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
617  'NODES', & ! shape
618  'cell2d data', & ! longname
619  .false., & ! required
620  .false., & ! multi-record
621  .false., & ! preserve case
622  .false., & ! layered
623  .false. & ! timeseries
624  )
625 
626  type(inputparamdefinitiontype), parameter :: &
628  [ &
631  ]
632 
633  type(inputblockdefinitiontype), parameter :: &
635  [ &
637  'OPTIONS', & ! blockname
638  .false., & ! required
639  .false., & ! aggregate
640  .false. & ! block_variable
641  ), &
643  'DIMENSIONS', & ! blockname
644  .true., & ! required
645  .false., & ! aggregate
646  .false. & ! block_variable
647  ), &
649  'GRIDDATA', & ! blockname
650  .true., & ! required
651  .false., & ! aggregate
652  .false. & ! block_variable
653  ), &
655  'CONNECTIONDATA', & ! blockname
656  .true., & ! required
657  .false., & ! aggregate
658  .false. & ! block_variable
659  ), &
661  'VERTICES', & ! blockname
662  .false., & ! required
663  .true., & ! aggregate
664  .false. & ! block_variable
665  ), &
667  'CELL2D', & ! blockname
668  .false., & ! required
669  .true., & ! aggregate
670  .false. & ! block_variable
671  ) &
672  ]
673 
674 end module gwtdisuinputmodule
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 gwtdisu_xv
type(inputparamdefinitiontype), parameter gwtdisu_cl12
type(inputparamdefinitiontype), parameter gwtdisu_top
type(inputparamdefinitiontype), parameter gwtdisu_idomain
type(inputparamdefinitiontype), parameter gwtdisu_iv
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disu_aggregate_definitions
type(inputparamdefinitiontype), parameter gwtdisu_length_units
Definition: gwt-disuidm.f90:53
type(inputparamdefinitiontype), parameter gwtdisu_icvert
type(inputparamdefinitiontype), parameter gwtdisu_area
type(inputparamdefinitiontype), parameter gwtdisu_voffsettol
type(inputparamdefinitiontype), parameter gwtdisu_export_ascii
type(inputparamdefinitiontype), parameter gwtdisu_ncvert
logical, public gwt_disu_multi_package
Definition: gwt-disuidm.f90:45
type(inputparamdefinitiontype), parameter gwtdisu_vertices
type(inputparamdefinitiontype), parameter gwtdisu_ihc
type(inputparamdefinitiontype), parameter gwtdisu_nvert
type(inputparamdefinitiontype), parameter gwtdisu_hwva
type(inputparamdefinitiontype), parameter gwtdisu_yv
type(inputparamdefinitiontype), parameter gwtdisu_nodes
character(len=16), dimension(*), parameter, public gwt_disu_subpackages
Definition: gwt-disuidm.f90:47
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disu_param_definitions
type(inputparamdefinitiontype), parameter gwtdisu_yorigin
type(inputparamdefinitiontype), parameter gwtdisu_ja
type(inputblockdefinitiontype), dimension(*), parameter, public gwt_disu_block_definitions
type(inputparamdefinitiontype), parameter gwtdisu_bot
type(inputparamdefinitiontype), parameter gwtdisu_nja
type(inputparamdefinitiontype), parameter gwtdisu_angrot
type(inputparamdefinitiontype), parameter gwtdisu_angldegx
type(inputparamdefinitiontype), parameter gwtdisu_yc
type(inputparamdefinitiontype), parameter gwtdisu_icell2d
type(inputparamdefinitiontype), parameter gwtdisu_xorigin
Definition: gwt-disuidm.f90:89
type(inputparamdefinitiontype), parameter gwtdisu_nogrb
Definition: gwt-disuidm.f90:71
type(inputparamdefinitiontype), parameter gwtdisu_cell2d
type(inputparamdefinitiontype), parameter gwtdisu_xc
type(inputparamdefinitiontype), parameter gwtdisu_iac
This module contains the InputDefinitionModule.