MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
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
12 
14  logical :: length_units = .false.
15  logical :: nogrb = .false.
16  logical :: xorigin = .false.
17  logical :: yorigin = .false.
18  logical :: angrot = .false.
19  logical :: voffsettol = .false.
20  logical :: export_ascii = .false.
21  logical :: nodes = .false.
22  logical :: nja = .false.
23  logical :: nvert = .false.
24  logical :: top = .false.
25  logical :: bot = .false.
26  logical :: area = .false.
27  logical :: idomain = .false.
28  logical :: iac = .false.
29  logical :: ja = .false.
30  logical :: ihc = .false.
31  logical :: cl12 = .false.
32  logical :: hwva = .false.
33  logical :: angldegx = .false.
34  logical :: iv = .false.
35  logical :: xv = .false.
36  logical :: yv = .false.
37  logical :: icell2d = .false.
38  logical :: xc = .false.
39  logical :: yc = .false.
40  logical :: ncvert = .false.
41  logical :: icvert = .false.
42  end type gwtdisuparamfoundtype
43 
44  logical :: gwt_disu_multi_package = .false.
45 
46  type(inputparamdefinitiontype), parameter :: &
48  ( &
49  'GWT', & ! component
50  'DISU', & ! subcomponent
51  'OPTIONS', & ! block
52  'LENGTH_UNITS', & ! tag name
53  'LENGTH_UNITS', & ! fortran variable
54  'STRING', & ! type
55  '', & ! shape
56  .false., & ! required
57  .false., & ! multi-record
58  .false., & ! preserve case
59  .false., & ! layered
60  .false. & ! timeseries
61  )
62 
63  type(inputparamdefinitiontype), parameter :: &
65  ( &
66  'GWT', & ! component
67  'DISU', & ! subcomponent
68  'OPTIONS', & ! block
69  'NOGRB', & ! tag name
70  'NOGRB', & ! fortran variable
71  'KEYWORD', & ! type
72  '', & ! shape
73  .false., & ! required
74  .false., & ! multi-record
75  .false., & ! preserve case
76  .false., & ! layered
77  .false. & ! timeseries
78  )
79 
80  type(inputparamdefinitiontype), parameter :: &
82  ( &
83  'GWT', & ! component
84  'DISU', & ! subcomponent
85  'OPTIONS', & ! block
86  'XORIGIN', & ! tag name
87  'XORIGIN', & ! fortran variable
88  'DOUBLE', & ! type
89  '', & ! shape
90  .false., & ! required
91  .false., & ! multi-record
92  .false., & ! preserve case
93  .false., & ! layered
94  .false. & ! timeseries
95  )
96 
97  type(inputparamdefinitiontype), parameter :: &
99  ( &
100  'GWT', & ! component
101  'DISU', & ! subcomponent
102  'OPTIONS', & ! block
103  'YORIGIN', & ! tag name
104  'YORIGIN', & ! fortran variable
105  'DOUBLE', & ! type
106  '', & ! shape
107  .false., & ! required
108  .false., & ! multi-record
109  .false., & ! preserve case
110  .false., & ! layered
111  .false. & ! timeseries
112  )
113 
114  type(inputparamdefinitiontype), parameter :: &
116  ( &
117  'GWT', & ! component
118  'DISU', & ! subcomponent
119  'OPTIONS', & ! block
120  'ANGROT', & ! tag name
121  'ANGROT', & ! fortran variable
122  'DOUBLE', & ! type
123  '', & ! shape
124  .false., & ! required
125  .false., & ! multi-record
126  .false., & ! preserve case
127  .false., & ! layered
128  .false. & ! timeseries
129  )
130 
131  type(inputparamdefinitiontype), parameter :: &
133  ( &
134  'GWT', & ! component
135  'DISU', & ! subcomponent
136  'OPTIONS', & ! block
137  'VERTICAL_OFFSET_TOLERANCE', & ! tag name
138  'VOFFSETTOL', & ! fortran variable
139  'DOUBLE', & ! type
140  '', & ! shape
141  .false., & ! required
142  .false., & ! multi-record
143  .false., & ! preserve case
144  .false., & ! layered
145  .false. & ! timeseries
146  )
147 
148  type(inputparamdefinitiontype), parameter :: &
150  ( &
151  'GWT', & ! component
152  'DISU', & ! subcomponent
153  'OPTIONS', & ! block
154  'EXPORT_ARRAY_ASCII', & ! tag name
155  'EXPORT_ASCII', & ! fortran variable
156  'KEYWORD', & ! type
157  '', & ! shape
158  .false., & ! required
159  .false., & ! multi-record
160  .false., & ! preserve case
161  .false., & ! layered
162  .false. & ! timeseries
163  )
164 
165  type(inputparamdefinitiontype), parameter :: &
167  ( &
168  'GWT', & ! component
169  'DISU', & ! subcomponent
170  'DIMENSIONS', & ! block
171  'NODES', & ! tag name
172  'NODES', & ! fortran variable
173  'INTEGER', & ! type
174  '', & ! shape
175  .true., & ! required
176  .false., & ! multi-record
177  .false., & ! preserve case
178  .false., & ! layered
179  .false. & ! timeseries
180  )
181 
182  type(inputparamdefinitiontype), parameter :: &
184  ( &
185  'GWT', & ! component
186  'DISU', & ! subcomponent
187  'DIMENSIONS', & ! block
188  'NJA', & ! tag name
189  'NJA', & ! fortran variable
190  'INTEGER', & ! type
191  '', & ! shape
192  .true., & ! required
193  .false., & ! multi-record
194  .false., & ! preserve case
195  .false., & ! layered
196  .false. & ! timeseries
197  )
198 
199  type(inputparamdefinitiontype), parameter :: &
201  ( &
202  'GWT', & ! component
203  'DISU', & ! subcomponent
204  'DIMENSIONS', & ! block
205  'NVERT', & ! tag name
206  'NVERT', & ! fortran variable
207  'INTEGER', & ! type
208  '', & ! shape
209  .false., & ! required
210  .false., & ! multi-record
211  .false., & ! preserve case
212  .false., & ! layered
213  .false. & ! timeseries
214  )
215 
216  type(inputparamdefinitiontype), parameter :: &
218  ( &
219  'GWT', & ! component
220  'DISU', & ! subcomponent
221  'GRIDDATA', & ! block
222  'TOP', & ! tag name
223  'TOP', & ! fortran variable
224  'DOUBLE1D', & ! type
225  'NODES', & ! shape
226  .true., & ! 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  'BOT', & ! tag name
240  'BOT', & ! fortran variable
241  'DOUBLE1D', & ! type
242  'NODES', & ! shape
243  .true., & ! required
244  .false., & ! multi-record
245  .false., & ! preserve case
246  .false., & ! layered
247  .false. & ! timeseries
248  )
249 
250  type(inputparamdefinitiontype), parameter :: &
252  ( &
253  'GWT', & ! component
254  'DISU', & ! subcomponent
255  'GRIDDATA', & ! block
256  'AREA', & ! tag name
257  'AREA', & ! fortran variable
258  'DOUBLE1D', & ! type
259  'NODES', & ! shape
260  .true., & ! required
261  .false., & ! multi-record
262  .false., & ! preserve case
263  .false., & ! layered
264  .false. & ! timeseries
265  )
266 
267  type(inputparamdefinitiontype), parameter :: &
269  ( &
270  'GWT', & ! component
271  'DISU', & ! subcomponent
272  'GRIDDATA', & ! block
273  'IDOMAIN', & ! tag name
274  'IDOMAIN', & ! fortran variable
275  'INTEGER1D', & ! type
276  'NODES', & ! shape
277  .false., & ! required
278  .false., & ! multi-record
279  .false., & ! preserve case
280  .false., & ! layered
281  .false. & ! timeseries
282  )
283 
284  type(inputparamdefinitiontype), parameter :: &
286  ( &
287  'GWT', & ! component
288  'DISU', & ! subcomponent
289  'CONNECTIONDATA', & ! block
290  'IAC', & ! tag name
291  'IAC', & ! fortran variable
292  'INTEGER1D', & ! type
293  'NODES', & ! shape
294  .true., & ! required
295  .false., & ! multi-record
296  .false., & ! preserve case
297  .false., & ! layered
298  .false. & ! timeseries
299  )
300 
301  type(inputparamdefinitiontype), parameter :: &
303  ( &
304  'GWT', & ! component
305  'DISU', & ! subcomponent
306  'CONNECTIONDATA', & ! block
307  'JA', & ! tag name
308  'JA', & ! fortran variable
309  'INTEGER1D', & ! type
310  'NJA', & ! shape
311  .true., & ! required
312  .false., & ! multi-record
313  .false., & ! preserve case
314  .false., & ! layered
315  .false. & ! timeseries
316  )
317 
318  type(inputparamdefinitiontype), parameter :: &
320  ( &
321  'GWT', & ! component
322  'DISU', & ! subcomponent
323  'CONNECTIONDATA', & ! block
324  'IHC', & ! tag name
325  'IHC', & ! fortran variable
326  'INTEGER1D', & ! type
327  'NJA', & ! shape
328  .true., & ! required
329  .false., & ! multi-record
330  .false., & ! preserve case
331  .false., & ! layered
332  .false. & ! timeseries
333  )
334 
335  type(inputparamdefinitiontype), parameter :: &
337  ( &
338  'GWT', & ! component
339  'DISU', & ! subcomponent
340  'CONNECTIONDATA', & ! block
341  'CL12', & ! tag name
342  'CL12', & ! fortran variable
343  'DOUBLE1D', & ! type
344  'NJA', & ! shape
345  .true., & ! required
346  .false., & ! multi-record
347  .false., & ! preserve case
348  .false., & ! layered
349  .false. & ! timeseries
350  )
351 
352  type(inputparamdefinitiontype), parameter :: &
354  ( &
355  'GWT', & ! component
356  'DISU', & ! subcomponent
357  'CONNECTIONDATA', & ! block
358  'HWVA', & ! tag name
359  'HWVA', & ! fortran variable
360  'DOUBLE1D', & ! type
361  'NJA', & ! shape
362  .true., & ! required
363  .false., & ! multi-record
364  .false., & ! preserve case
365  .false., & ! layered
366  .false. & ! timeseries
367  )
368 
369  type(inputparamdefinitiontype), parameter :: &
371  ( &
372  'GWT', & ! component
373  'DISU', & ! subcomponent
374  'CONNECTIONDATA', & ! block
375  'ANGLDEGX', & ! tag name
376  'ANGLDEGX', & ! fortran variable
377  'DOUBLE1D', & ! type
378  'NJA', & ! shape
379  .false., & ! required
380  .false., & ! multi-record
381  .false., & ! preserve case
382  .false., & ! layered
383  .false. & ! timeseries
384  )
385 
386  type(inputparamdefinitiontype), parameter :: &
388  ( &
389  'GWT', & ! component
390  'DISU', & ! subcomponent
391  'VERTICES', & ! block
392  'IV', & ! tag name
393  'IV', & ! fortran variable
394  'INTEGER', & ! type
395  '', & ! shape
396  .true., & ! required
397  .true., & ! multi-record
398  .false., & ! preserve case
399  .false., & ! layered
400  .false. & ! timeseries
401  )
402 
403  type(inputparamdefinitiontype), parameter :: &
405  ( &
406  'GWT', & ! component
407  'DISU', & ! subcomponent
408  'VERTICES', & ! block
409  'XV', & ! tag name
410  'XV', & ! fortran variable
411  'DOUBLE', & ! type
412  '', & ! shape
413  .true., & ! required
414  .true., & ! multi-record
415  .false., & ! preserve case
416  .false., & ! layered
417  .false. & ! timeseries
418  )
419 
420  type(inputparamdefinitiontype), parameter :: &
422  ( &
423  'GWT', & ! component
424  'DISU', & ! subcomponent
425  'VERTICES', & ! block
426  'YV', & ! tag name
427  'YV', & ! fortran variable
428  'DOUBLE', & ! type
429  '', & ! shape
430  .true., & ! required
431  .true., & ! multi-record
432  .false., & ! preserve case
433  .false., & ! layered
434  .false. & ! timeseries
435  )
436 
437  type(inputparamdefinitiontype), parameter :: &
439  ( &
440  'GWT', & ! component
441  'DISU', & ! subcomponent
442  'CELL2D', & ! block
443  'ICELL2D', & ! tag name
444  'ICELL2D', & ! fortran variable
445  'INTEGER', & ! type
446  '', & ! shape
447  .true., & ! required
448  .true., & ! multi-record
449  .false., & ! preserve case
450  .false., & ! layered
451  .false. & ! timeseries
452  )
453 
454  type(inputparamdefinitiontype), parameter :: &
456  ( &
457  'GWT', & ! component
458  'DISU', & ! subcomponent
459  'CELL2D', & ! block
460  'XC', & ! tag name
461  'XC', & ! fortran variable
462  'DOUBLE', & ! type
463  '', & ! shape
464  .true., & ! required
465  .true., & ! multi-record
466  .false., & ! preserve case
467  .false., & ! layered
468  .false. & ! timeseries
469  )
470 
471  type(inputparamdefinitiontype), parameter :: &
473  ( &
474  'GWT', & ! component
475  'DISU', & ! subcomponent
476  'CELL2D', & ! block
477  'YC', & ! tag name
478  'YC', & ! fortran variable
479  'DOUBLE', & ! type
480  '', & ! shape
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  'GWT', & ! component
492  'DISU', & ! subcomponent
493  'CELL2D', & ! block
494  'NCVERT', & ! tag name
495  'NCVERT', & ! fortran variable
496  'INTEGER', & ! type
497  '', & ! shape
498  .true., & ! required
499  .true., & ! multi-record
500  .false., & ! preserve case
501  .false., & ! layered
502  .false. & ! timeseries
503  )
504 
505  type(inputparamdefinitiontype), parameter :: &
507  ( &
508  'GWT', & ! component
509  'DISU', & ! subcomponent
510  'CELL2D', & ! block
511  'ICVERT', & ! tag name
512  'ICVERT', & ! fortran variable
513  'INTEGER1D', & ! type
514  'NCVERT', & ! shape
515  .true., & ! required
516  .true., & ! multi-record
517  .false., & ! preserve case
518  .false., & ! layered
519  .false. & ! timeseries
520  )
521 
522  type(inputparamdefinitiontype), parameter :: &
524  [ &
526  gwtdisu_nogrb, &
527  gwtdisu_xorigin, &
528  gwtdisu_yorigin, &
529  gwtdisu_angrot, &
532  gwtdisu_nodes, &
533  gwtdisu_nja, &
534  gwtdisu_nvert, &
535  gwtdisu_top, &
536  gwtdisu_bot, &
537  gwtdisu_area, &
538  gwtdisu_idomain, &
539  gwtdisu_iac, &
540  gwtdisu_ja, &
541  gwtdisu_ihc, &
542  gwtdisu_cl12, &
543  gwtdisu_hwva, &
545  gwtdisu_iv, &
546  gwtdisu_xv, &
547  gwtdisu_yv, &
548  gwtdisu_icell2d, &
549  gwtdisu_xc, &
550  gwtdisu_yc, &
551  gwtdisu_ncvert, &
553  ]
554 
555  type(inputparamdefinitiontype), parameter :: &
557  ( &
558  'GWT', & ! component
559  'DISU', & ! subcomponent
560  'VERTICES', & ! block
561  'VERTICES', & ! tag name
562  'VERTICES', & ! fortran variable
563  'RECARRAY IV XV YV', & ! type
564  'NVERT', & ! shape
565  .false., & ! required
566  .false., & ! multi-record
567  .false., & ! preserve case
568  .false., & ! layered
569  .false. & ! timeseries
570  )
571 
572  type(inputparamdefinitiontype), parameter :: &
574  ( &
575  'GWT', & ! component
576  'DISU', & ! subcomponent
577  'CELL2D', & ! block
578  'CELL2D', & ! tag name
579  'CELL2D', & ! fortran variable
580  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
581  'NODES', & ! shape
582  .false., & ! required
583  .false., & ! multi-record
584  .false., & ! preserve case
585  .false., & ! layered
586  .false. & ! timeseries
587  )
588 
589  type(inputparamdefinitiontype), parameter :: &
591  [ &
594  ]
595 
596  type(inputblockdefinitiontype), parameter :: &
598  [ &
600  'OPTIONS', & ! blockname
601  .false., & ! required
602  .false., & ! aggregate
603  .false. & ! block_variable
604  ), &
606  'DIMENSIONS', & ! blockname
607  .true., & ! required
608  .false., & ! aggregate
609  .false. & ! block_variable
610  ), &
612  'GRIDDATA', & ! blockname
613  .true., & ! required
614  .false., & ! aggregate
615  .false. & ! block_variable
616  ), &
618  'CONNECTIONDATA', & ! blockname
619  .true., & ! required
620  .false., & ! aggregate
621  .false. & ! block_variable
622  ), &
624  'VERTICES', & ! blockname
625  .false., & ! required
626  .true., & ! aggregate
627  .false. & ! block_variable
628  ), &
630  'CELL2D', & ! blockname
631  .false., & ! required
632  .true., & ! aggregate
633  .false. & ! block_variable
634  ) &
635  ]
636 
637 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:46
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:44
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
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disu_param_definitions
type(inputparamdefinitiontype), parameter gwtdisu_yorigin
Definition: gwt-disuidm.f90:97
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:80
type(inputparamdefinitiontype), parameter gwtdisu_nogrb
Definition: gwt-disuidm.f90:63
type(inputparamdefinitiontype), parameter gwtdisu_cell2d
type(inputparamdefinitiontype), parameter gwtdisu_xc
type(inputparamdefinitiontype), parameter gwtdisu_iac
This module contains the InputDefinitionModule.