MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
gwt-disvidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwtdisvinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwt_disv_param_definitions
8  public gwt_disv_aggregate_definitions
9  public gwt_disv_block_definitions
10  public gwtdisvparamfoundtype
11  public gwt_disv_multi_package
12 
13  type gwtdisvparamfoundtype
14  logical :: length_units = .false.
15  logical :: nogrb = .false.
16  logical :: xorigin = .false.
17  logical :: yorigin = .false.
18  logical :: angrot = .false.
19  logical :: export_ascii = .false.
20  logical :: nlay = .false.
21  logical :: ncpl = .false.
22  logical :: nvert = .false.
23  logical :: top = .false.
24  logical :: botm = .false.
25  logical :: idomain = .false.
26  logical :: iv = .false.
27  logical :: xv = .false.
28  logical :: yv = .false.
29  logical :: icell2d = .false.
30  logical :: xc = .false.
31  logical :: yc = .false.
32  logical :: ncvert = .false.
33  logical :: icvert = .false.
34  end type gwtdisvparamfoundtype
35 
36  logical :: gwt_disv_multi_package = .false.
37 
38  type(inputparamdefinitiontype), parameter :: &
39  gwtdisv_length_units = inputparamdefinitiontype &
40  ( &
41  'GWT', & ! component
42  'DISV', & ! subcomponent
43  'OPTIONS', & ! block
44  'LENGTH_UNITS', & ! tag name
45  'LENGTH_UNITS', & ! fortran variable
46  'STRING', & ! type
47  '', & ! shape
48  .false., & ! required
49  .false., & ! multi-record
50  .false., & ! preserve case
51  .false., & ! layered
52  .false. & ! timeseries
53  )
54 
55  type(inputparamdefinitiontype), parameter :: &
56  gwtdisv_nogrb = inputparamdefinitiontype &
57  ( &
58  'GWT', & ! component
59  'DISV', & ! subcomponent
60  'OPTIONS', & ! block
61  'NOGRB', & ! tag name
62  'NOGRB', & ! fortran variable
63  'KEYWORD', & ! type
64  '', & ! shape
65  .false., & ! required
66  .false., & ! multi-record
67  .false., & ! preserve case
68  .false., & ! layered
69  .false. & ! timeseries
70  )
71 
72  type(inputparamdefinitiontype), parameter :: &
73  gwtdisv_xorigin = inputparamdefinitiontype &
74  ( &
75  'GWT', & ! component
76  'DISV', & ! subcomponent
77  'OPTIONS', & ! block
78  'XORIGIN', & ! tag name
79  'XORIGIN', & ! fortran variable
80  'DOUBLE', & ! type
81  '', & ! shape
82  .false., & ! required
83  .false., & ! multi-record
84  .false., & ! preserve case
85  .false., & ! layered
86  .false. & ! timeseries
87  )
88 
89  type(inputparamdefinitiontype), parameter :: &
90  gwtdisv_yorigin = inputparamdefinitiontype &
91  ( &
92  'GWT', & ! component
93  'DISV', & ! subcomponent
94  'OPTIONS', & ! block
95  'YORIGIN', & ! tag name
96  'YORIGIN', & ! fortran variable
97  'DOUBLE', & ! type
98  '', & ! shape
99  .false., & ! required
100  .false., & ! multi-record
101  .false., & ! preserve case
102  .false., & ! layered
103  .false. & ! timeseries
104  )
105 
106  type(inputparamdefinitiontype), parameter :: &
107  gwtdisv_angrot = inputparamdefinitiontype &
108  ( &
109  'GWT', & ! component
110  'DISV', & ! subcomponent
111  'OPTIONS', & ! block
112  'ANGROT', & ! tag name
113  'ANGROT', & ! fortran variable
114  'DOUBLE', & ! type
115  '', & ! shape
116  .false., & ! required
117  .false., & ! multi-record
118  .false., & ! preserve case
119  .false., & ! layered
120  .false. & ! timeseries
121  )
122 
123  type(inputparamdefinitiontype), parameter :: &
124  gwtdisv_export_ascii = inputparamdefinitiontype &
125  ( &
126  'GWT', & ! component
127  'DISV', & ! subcomponent
128  'OPTIONS', & ! block
129  'EXPORT_ARRAY_ASCII', & ! tag name
130  'EXPORT_ASCII', & ! fortran variable
131  'KEYWORD', & ! type
132  '', & ! shape
133  .false., & ! required
134  .false., & ! multi-record
135  .false., & ! preserve case
136  .false., & ! layered
137  .false. & ! timeseries
138  )
139 
140  type(inputparamdefinitiontype), parameter :: &
141  gwtdisv_nlay = inputparamdefinitiontype &
142  ( &
143  'GWT', & ! component
144  'DISV', & ! subcomponent
145  'DIMENSIONS', & ! block
146  'NLAY', & ! tag name
147  'NLAY', & ! fortran variable
148  'INTEGER', & ! type
149  '', & ! shape
150  .true., & ! required
151  .false., & ! multi-record
152  .false., & ! preserve case
153  .false., & ! layered
154  .false. & ! timeseries
155  )
156 
157  type(inputparamdefinitiontype), parameter :: &
158  gwtdisv_ncpl = inputparamdefinitiontype &
159  ( &
160  'GWT', & ! component
161  'DISV', & ! subcomponent
162  'DIMENSIONS', & ! block
163  'NCPL', & ! tag name
164  'NCPL', & ! fortran variable
165  'INTEGER', & ! type
166  '', & ! shape
167  .true., & ! required
168  .false., & ! multi-record
169  .false., & ! preserve case
170  .false., & ! layered
171  .false. & ! timeseries
172  )
173 
174  type(inputparamdefinitiontype), parameter :: &
175  gwtdisv_nvert = inputparamdefinitiontype &
176  ( &
177  'GWT', & ! component
178  'DISV', & ! subcomponent
179  'DIMENSIONS', & ! block
180  'NVERT', & ! tag name
181  'NVERT', & ! fortran variable
182  'INTEGER', & ! type
183  '', & ! shape
184  .true., & ! required
185  .false., & ! multi-record
186  .false., & ! preserve case
187  .false., & ! layered
188  .false. & ! timeseries
189  )
190 
191  type(inputparamdefinitiontype), parameter :: &
192  gwtdisv_top = inputparamdefinitiontype &
193  ( &
194  'GWT', & ! component
195  'DISV', & ! subcomponent
196  'GRIDDATA', & ! block
197  'TOP', & ! tag name
198  'TOP', & ! fortran variable
199  'DOUBLE1D', & ! type
200  'NCPL', & ! shape
201  .true., & ! required
202  .false., & ! multi-record
203  .false., & ! preserve case
204  .false., & ! layered
205  .false. & ! timeseries
206  )
207 
208  type(inputparamdefinitiontype), parameter :: &
209  gwtdisv_botm = inputparamdefinitiontype &
210  ( &
211  'GWT', & ! component
212  'DISV', & ! subcomponent
213  'GRIDDATA', & ! block
214  'BOTM', & ! tag name
215  'BOTM', & ! fortran variable
216  'DOUBLE2D', & ! type
217  'NCPL NLAY', & ! shape
218  .true., & ! required
219  .false., & ! multi-record
220  .false., & ! preserve case
221  .true., & ! layered
222  .false. & ! timeseries
223  )
224 
225  type(inputparamdefinitiontype), parameter :: &
226  gwtdisv_idomain = inputparamdefinitiontype &
227  ( &
228  'GWT', & ! component
229  'DISV', & ! subcomponent
230  'GRIDDATA', & ! block
231  'IDOMAIN', & ! tag name
232  'IDOMAIN', & ! fortran variable
233  'INTEGER2D', & ! type
234  'NCPL NLAY', & ! shape
235  .false., & ! required
236  .false., & ! multi-record
237  .false., & ! preserve case
238  .true., & ! layered
239  .false. & ! timeseries
240  )
241 
242  type(inputparamdefinitiontype), parameter :: &
243  gwtdisv_iv = inputparamdefinitiontype &
244  ( &
245  'GWT', & ! component
246  'DISV', & ! subcomponent
247  'VERTICES', & ! block
248  'IV', & ! tag name
249  'IV', & ! fortran variable
250  'INTEGER', & ! type
251  '', & ! shape
252  .true., & ! required
253  .true., & ! multi-record
254  .false., & ! preserve case
255  .false., & ! layered
256  .false. & ! timeseries
257  )
258 
259  type(inputparamdefinitiontype), parameter :: &
260  gwtdisv_xv = inputparamdefinitiontype &
261  ( &
262  'GWT', & ! component
263  'DISV', & ! subcomponent
264  'VERTICES', & ! block
265  'XV', & ! tag name
266  'XV', & ! fortran variable
267  'DOUBLE', & ! type
268  '', & ! shape
269  .true., & ! required
270  .true., & ! multi-record
271  .false., & ! preserve case
272  .false., & ! layered
273  .false. & ! timeseries
274  )
275 
276  type(inputparamdefinitiontype), parameter :: &
277  gwtdisv_yv = inputparamdefinitiontype &
278  ( &
279  'GWT', & ! component
280  'DISV', & ! subcomponent
281  'VERTICES', & ! block
282  'YV', & ! tag name
283  'YV', & ! fortran variable
284  'DOUBLE', & ! type
285  '', & ! shape
286  .true., & ! required
287  .true., & ! multi-record
288  .false., & ! preserve case
289  .false., & ! layered
290  .false. & ! timeseries
291  )
292 
293  type(inputparamdefinitiontype), parameter :: &
294  gwtdisv_icell2d = inputparamdefinitiontype &
295  ( &
296  'GWT', & ! component
297  'DISV', & ! subcomponent
298  'CELL2D', & ! block
299  'ICELL2D', & ! tag name
300  'ICELL2D', & ! fortran variable
301  'INTEGER', & ! type
302  '', & ! shape
303  .true., & ! required
304  .true., & ! multi-record
305  .false., & ! preserve case
306  .false., & ! layered
307  .false. & ! timeseries
308  )
309 
310  type(inputparamdefinitiontype), parameter :: &
311  gwtdisv_xc = inputparamdefinitiontype &
312  ( &
313  'GWT', & ! component
314  'DISV', & ! subcomponent
315  'CELL2D', & ! block
316  'XC', & ! tag name
317  'XC', & ! fortran variable
318  'DOUBLE', & ! type
319  '', & ! shape
320  .true., & ! required
321  .true., & ! multi-record
322  .false., & ! preserve case
323  .false., & ! layered
324  .false. & ! timeseries
325  )
326 
327  type(inputparamdefinitiontype), parameter :: &
328  gwtdisv_yc = inputparamdefinitiontype &
329  ( &
330  'GWT', & ! component
331  'DISV', & ! subcomponent
332  'CELL2D', & ! block
333  'YC', & ! tag name
334  'YC', & ! fortran variable
335  'DOUBLE', & ! type
336  '', & ! shape
337  .true., & ! required
338  .true., & ! multi-record
339  .false., & ! preserve case
340  .false., & ! layered
341  .false. & ! timeseries
342  )
343 
344  type(inputparamdefinitiontype), parameter :: &
345  gwtdisv_ncvert = inputparamdefinitiontype &
346  ( &
347  'GWT', & ! component
348  'DISV', & ! subcomponent
349  'CELL2D', & ! block
350  'NCVERT', & ! tag name
351  'NCVERT', & ! fortran variable
352  'INTEGER', & ! type
353  '', & ! shape
354  .true., & ! required
355  .true., & ! multi-record
356  .false., & ! preserve case
357  .false., & ! layered
358  .false. & ! timeseries
359  )
360 
361  type(inputparamdefinitiontype), parameter :: &
362  gwtdisv_icvert = inputparamdefinitiontype &
363  ( &
364  'GWT', & ! component
365  'DISV', & ! subcomponent
366  'CELL2D', & ! block
367  'ICVERT', & ! tag name
368  'ICVERT', & ! fortran variable
369  'INTEGER1D', & ! type
370  'NCVERT', & ! shape
371  .true., & ! required
372  .true., & ! multi-record
373  .false., & ! preserve case
374  .false., & ! layered
375  .false. & ! timeseries
376  )
377 
378  type(inputparamdefinitiontype), parameter :: &
379  gwt_disv_param_definitions(*) = &
380  [ &
381  gwtdisv_length_units, &
382  gwtdisv_nogrb, &
383  gwtdisv_xorigin, &
384  gwtdisv_yorigin, &
385  gwtdisv_angrot, &
386  gwtdisv_export_ascii, &
387  gwtdisv_nlay, &
388  gwtdisv_ncpl, &
389  gwtdisv_nvert, &
390  gwtdisv_top, &
391  gwtdisv_botm, &
392  gwtdisv_idomain, &
393  gwtdisv_iv, &
394  gwtdisv_xv, &
395  gwtdisv_yv, &
396  gwtdisv_icell2d, &
397  gwtdisv_xc, &
398  gwtdisv_yc, &
399  gwtdisv_ncvert, &
400  gwtdisv_icvert &
401  ]
402 
403  type(inputparamdefinitiontype), parameter :: &
404  gwtdisv_vertices = inputparamdefinitiontype &
405  ( &
406  'GWT', & ! component
407  'DISV', & ! subcomponent
408  'VERTICES', & ! block
409  'VERTICES', & ! tag name
410  'VERTICES', & ! fortran variable
411  'RECARRAY IV XV YV', & ! type
412  'NVERT', & ! shape
413  .true., & ! required
414  .false., & ! multi-record
415  .false., & ! preserve case
416  .false., & ! layered
417  .false. & ! timeseries
418  )
419 
420  type(inputparamdefinitiontype), parameter :: &
421  gwtdisv_cell2d = inputparamdefinitiontype &
422  ( &
423  'GWT', & ! component
424  'DISV', & ! subcomponent
425  'CELL2D', & ! block
426  'CELL2D', & ! tag name
427  'CELL2D', & ! fortran variable
428  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
429  'NCPL', & ! shape
430  .true., & ! required
431  .false., & ! multi-record
432  .false., & ! preserve case
433  .false., & ! layered
434  .false. & ! timeseries
435  )
436 
437  type(inputparamdefinitiontype), parameter :: &
438  gwt_disv_aggregate_definitions(*) = &
439  [ &
440  gwtdisv_vertices, &
441  gwtdisv_cell2d &
442  ]
443 
444  type(inputblockdefinitiontype), parameter :: &
445  gwt_disv_block_definitions(*) = &
446  [ &
447  inputblockdefinitiontype( &
448  'OPTIONS', & ! blockname
449  .false., & ! required
450  .false., & ! aggregate
451  .false. & ! block_variable
452  ), &
453  inputblockdefinitiontype( &
454  'DIMENSIONS', & ! blockname
455  .true., & ! required
456  .false., & ! aggregate
457  .false. & ! block_variable
458  ), &
459  inputblockdefinitiontype( &
460  'GRIDDATA', & ! blockname
461  .true., & ! required
462  .false., & ! aggregate
463  .false. & ! block_variable
464  ), &
465  inputblockdefinitiontype( &
466  'VERTICES', & ! blockname
467  .true., & ! required
468  .true., & ! aggregate
469  .false. & ! block_variable
470  ), &
471  inputblockdefinitiontype( &
472  'CELL2D', & ! blockname
473  .true., & ! required
474  .true., & ! aggregate
475  .false. & ! block_variable
476  ) &
477  ]
478 
479 end module gwtdisvinputmodule
constantsmodule
This module contains simulation constants.
Definition: Constants.f90:9
constantsmodule::lenvarname
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
gwtdisvinputmodule::gwtdisv_nvert
type(inputparamdefinitiontype), parameter gwtdisv_nvert
Definition: gwt-disvidm.f90:174
gwtdisvinputmodule::gwtdisv_top
type(inputparamdefinitiontype), parameter gwtdisv_top
Definition: gwt-disvidm.f90:191
gwtdisvinputmodule::gwt_disv_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disv_aggregate_definitions
Definition: gwt-disvidm.f90:437
gwtdisvinputmodule::gwtdisv_botm
type(inputparamdefinitiontype), parameter gwtdisv_botm
Definition: gwt-disvidm.f90:208
gwtdisvinputmodule::gwtdisv_cell2d
type(inputparamdefinitiontype), parameter gwtdisv_cell2d
Definition: gwt-disvidm.f90:420
gwtdisvinputmodule::gwtdisv_vertices
type(inputparamdefinitiontype), parameter gwtdisv_vertices
Definition: gwt-disvidm.f90:403
gwtdisvinputmodule::gwtdisv_yc
type(inputparamdefinitiontype), parameter gwtdisv_yc
Definition: gwt-disvidm.f90:327
gwtdisvinputmodule::gwtdisv_iv
type(inputparamdefinitiontype), parameter gwtdisv_iv
Definition: gwt-disvidm.f90:242
gwtdisvinputmodule::gwtdisv_idomain
type(inputparamdefinitiontype), parameter gwtdisv_idomain
Definition: gwt-disvidm.f90:225
gwtdisvinputmodule::gwtdisv_yv
type(inputparamdefinitiontype), parameter gwtdisv_yv
Definition: gwt-disvidm.f90:276
gwtdisvinputmodule::gwtdisv_nlay
type(inputparamdefinitiontype), parameter gwtdisv_nlay
Definition: gwt-disvidm.f90:140
gwtdisvinputmodule::gwtdisv_ncvert
type(inputparamdefinitiontype), parameter gwtdisv_ncvert
Definition: gwt-disvidm.f90:344
gwtdisvinputmodule::gwtdisv_export_ascii
type(inputparamdefinitiontype), parameter gwtdisv_export_ascii
Definition: gwt-disvidm.f90:123
gwtdisvinputmodule::gwtdisv_ncpl
type(inputparamdefinitiontype), parameter gwtdisv_ncpl
Definition: gwt-disvidm.f90:157
gwtdisvinputmodule::gwtdisv_xorigin
type(inputparamdefinitiontype), parameter gwtdisv_xorigin
Definition: gwt-disvidm.f90:72
gwtdisvinputmodule::gwtdisv_yorigin
type(inputparamdefinitiontype), parameter gwtdisv_yorigin
Definition: gwt-disvidm.f90:89
gwtdisvinputmodule::gwtdisv_icell2d
type(inputparamdefinitiontype), parameter gwtdisv_icell2d
Definition: gwt-disvidm.f90:293
gwtdisvinputmodule::gwtdisv_xv
type(inputparamdefinitiontype), parameter gwtdisv_xv
Definition: gwt-disvidm.f90:259
gwtdisvinputmodule::gwtdisv_icvert
type(inputparamdefinitiontype), parameter gwtdisv_icvert
Definition: gwt-disvidm.f90:361
gwtdisvinputmodule::gwtdisv_nogrb
type(inputparamdefinitiontype), parameter gwtdisv_nogrb
Definition: gwt-disvidm.f90:55
gwtdisvinputmodule::gwtdisv_length_units
type(inputparamdefinitiontype), parameter gwtdisv_length_units
Definition: gwt-disvidm.f90:38
gwtdisvinputmodule::gwtdisv_angrot
type(inputparamdefinitiontype), parameter gwtdisv_angrot
Definition: gwt-disvidm.f90:106
gwtdisvinputmodule::gwt_disv_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disv_param_definitions
Definition: gwt-disvidm.f90:378
gwtdisvinputmodule::gwt_disv_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwt_disv_block_definitions
Definition: gwt-disvidm.f90:444
gwtdisvinputmodule::gwt_disv_multi_package
logical, public gwt_disv_multi_package
Definition: gwt-disvidm.f90:36
gwtdisvinputmodule::gwtdisv_xc
type(inputparamdefinitiontype), parameter gwtdisv_xc
Definition: gwt-disvidm.f90:310
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7