MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
gwt-disvidm.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 :: export_ascii = .false.
21  logical :: export_nc = .false.
22  logical :: ncf_filerecord = .false.
23  logical :: ncf6 = .false.
24  logical :: filein = .false.
25  logical :: ncf6_filename = .false.
26  logical :: nlay = .false.
27  logical :: ncpl = .false.
28  logical :: nvert = .false.
29  logical :: top = .false.
30  logical :: botm = .false.
31  logical :: idomain = .false.
32  logical :: iv = .false.
33  logical :: xv = .false.
34  logical :: yv = .false.
35  logical :: icell2d = .false.
36  logical :: xc = .false.
37  logical :: yc = .false.
38  logical :: ncvert = .false.
39  logical :: icvert = .false.
40  end type gwtdisvparamfoundtype
41 
42  logical :: gwt_disv_multi_package = .false.
43 
44  character(len=16), parameter :: &
46  [ &
47  'UTL-NCF ' &
48  ]
49 
50  type(inputparamdefinitiontype), parameter :: &
52  ( &
53  'GWT', & ! component
54  'DISV', & ! subcomponent
55  'OPTIONS', & ! block
56  'LENGTH_UNITS', & ! tag name
57  'LENGTH_UNITS', & ! fortran variable
58  'STRING', & ! type
59  '', & ! shape
60  'model length units', & ! longname
61  .false., & ! required
62  .false., & ! multi-record
63  .false., & ! preserve case
64  .false., & ! layered
65  .false. & ! timeseries
66  )
67 
68  type(inputparamdefinitiontype), parameter :: &
70  ( &
71  'GWT', & ! component
72  'DISV', & ! subcomponent
73  'OPTIONS', & ! block
74  'NOGRB', & ! tag name
75  'NOGRB', & ! fortran variable
76  'KEYWORD', & ! type
77  '', & ! shape
78  'do not write binary grid file', & ! longname
79  .false., & ! required
80  .false., & ! multi-record
81  .false., & ! preserve case
82  .false., & ! layered
83  .false. & ! timeseries
84  )
85 
86  type(inputparamdefinitiontype), parameter :: &
88  ( &
89  'GWT', & ! component
90  'DISV', & ! subcomponent
91  'OPTIONS', & ! block
92  'XORIGIN', & ! tag name
93  'XORIGIN', & ! fortran variable
94  'DOUBLE', & ! type
95  '', & ! shape
96  'x-position origin of the model grid coordinate system', & ! longname
97  .false., & ! required
98  .false., & ! multi-record
99  .false., & ! preserve case
100  .false., & ! layered
101  .false. & ! timeseries
102  )
103 
104  type(inputparamdefinitiontype), parameter :: &
106  ( &
107  'GWT', & ! component
108  'DISV', & ! subcomponent
109  'OPTIONS', & ! block
110  'YORIGIN', & ! tag name
111  'YORIGIN', & ! fortran variable
112  'DOUBLE', & ! type
113  '', & ! shape
114  'y-position origin of the model grid coordinate system', & ! longname
115  .false., & ! required
116  .false., & ! multi-record
117  .false., & ! preserve case
118  .false., & ! layered
119  .false. & ! timeseries
120  )
121 
122  type(inputparamdefinitiontype), parameter :: &
124  ( &
125  'GWT', & ! component
126  'DISV', & ! subcomponent
127  'OPTIONS', & ! block
128  'ANGROT', & ! tag name
129  'ANGROT', & ! fortran variable
130  'DOUBLE', & ! type
131  '', & ! shape
132  'rotation angle', & ! longname
133  .false., & ! required
134  .false., & ! multi-record
135  .false., & ! preserve case
136  .false., & ! layered
137  .false. & ! timeseries
138  )
139 
140  type(inputparamdefinitiontype), parameter :: &
142  ( &
143  'GWT', & ! component
144  'DISV', & ! subcomponent
145  'OPTIONS', & ! block
146  'EXPORT_ARRAY_ASCII', & ! tag name
147  'EXPORT_ASCII', & ! fortran variable
148  'KEYWORD', & ! type
149  '', & ! shape
150  'export array variables to layered ascii files.', & ! longname
151  .false., & ! required
152  .false., & ! multi-record
153  .false., & ! preserve case
154  .false., & ! layered
155  .false. & ! timeseries
156  )
157 
158  type(inputparamdefinitiontype), parameter :: &
160  ( &
161  'GWT', & ! component
162  'DISV', & ! subcomponent
163  'OPTIONS', & ! block
164  'EXPORT_ARRAY_NETCDF', & ! tag name
165  'EXPORT_NC', & ! fortran variable
166  'KEYWORD', & ! type
167  '', & ! shape
168  'export array variables to netcdf output files.', & ! longname
169  .false., & ! required
170  .false., & ! multi-record
171  .false., & ! preserve case
172  .false., & ! layered
173  .false. & ! timeseries
174  )
175 
176  type(inputparamdefinitiontype), parameter :: &
178  ( &
179  'GWT', & ! component
180  'DISV', & ! subcomponent
181  'OPTIONS', & ! block
182  'NCF_FILERECORD', & ! tag name
183  'NCF_FILERECORD', & ! fortran variable
184  'RECORD NCF6 FILEIN NCF6_FILENAME', & ! type
185  '', & ! shape
186  '', & ! longname
187  .false., & ! required
188  .false., & ! multi-record
189  .false., & ! preserve case
190  .false., & ! layered
191  .false. & ! timeseries
192  )
193 
194  type(inputparamdefinitiontype), parameter :: &
196  ( &
197  'GWT', & ! component
198  'DISV', & ! subcomponent
199  'OPTIONS', & ! block
200  'NCF6', & ! tag name
201  'NCF6', & ! fortran variable
202  'KEYWORD', & ! type
203  '', & ! shape
204  'ncf keyword', & ! longname
205  .true., & ! required
206  .true., & ! multi-record
207  .false., & ! preserve case
208  .false., & ! layered
209  .false. & ! timeseries
210  )
211 
212  type(inputparamdefinitiontype), parameter :: &
214  ( &
215  'GWT', & ! component
216  'DISV', & ! subcomponent
217  'OPTIONS', & ! block
218  'FILEIN', & ! tag name
219  'FILEIN', & ! fortran variable
220  'KEYWORD', & ! type
221  '', & ! shape
222  'file keyword', & ! longname
223  .true., & ! required
224  .true., & ! multi-record
225  .false., & ! preserve case
226  .false., & ! layered
227  .false. & ! timeseries
228  )
229 
230  type(inputparamdefinitiontype), parameter :: &
232  ( &
233  'GWT', & ! component
234  'DISV', & ! subcomponent
235  'OPTIONS', & ! block
236  'NCF6_FILENAME', & ! tag name
237  'NCF6_FILENAME', & ! fortran variable
238  'STRING', & ! type
239  '', & ! shape
240  'file name of NCF information', & ! longname
241  .true., & ! required
242  .true., & ! multi-record
243  .true., & ! preserve case
244  .false., & ! layered
245  .false. & ! timeseries
246  )
247 
248  type(inputparamdefinitiontype), parameter :: &
250  ( &
251  'GWT', & ! component
252  'DISV', & ! subcomponent
253  'DIMENSIONS', & ! block
254  'NLAY', & ! tag name
255  'NLAY', & ! fortran variable
256  'INTEGER', & ! type
257  '', & ! shape
258  'number of layers', & ! longname
259  .true., & ! required
260  .false., & ! multi-record
261  .false., & ! preserve case
262  .false., & ! layered
263  .false. & ! timeseries
264  )
265 
266  type(inputparamdefinitiontype), parameter :: &
268  ( &
269  'GWT', & ! component
270  'DISV', & ! subcomponent
271  'DIMENSIONS', & ! block
272  'NCPL', & ! tag name
273  'NCPL', & ! fortran variable
274  'INTEGER', & ! type
275  '', & ! shape
276  'number of cells per layer', & ! longname
277  .true., & ! 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  'DISV', & ! subcomponent
289  'DIMENSIONS', & ! block
290  'NVERT', & ! tag name
291  'NVERT', & ! fortran variable
292  'INTEGER', & ! type
293  '', & ! shape
294  'number of columns', & ! longname
295  .true., & ! required
296  .false., & ! multi-record
297  .false., & ! preserve case
298  .false., & ! layered
299  .false. & ! timeseries
300  )
301 
302  type(inputparamdefinitiontype), parameter :: &
304  ( &
305  'GWT', & ! component
306  'DISV', & ! subcomponent
307  'GRIDDATA', & ! block
308  'TOP', & ! tag name
309  'TOP', & ! fortran variable
310  'DOUBLE1D', & ! type
311  'NCPL', & ! shape
312  'model top elevation', & ! longname
313  .true., & ! required
314  .false., & ! multi-record
315  .false., & ! preserve case
316  .false., & ! layered
317  .false. & ! timeseries
318  )
319 
320  type(inputparamdefinitiontype), parameter :: &
322  ( &
323  'GWT', & ! component
324  'DISV', & ! subcomponent
325  'GRIDDATA', & ! block
326  'BOTM', & ! tag name
327  'BOTM', & ! fortran variable
328  'DOUBLE2D', & ! type
329  'NCPL NLAY', & ! shape
330  'model bottom elevation', & ! longname
331  .true., & ! required
332  .false., & ! multi-record
333  .false., & ! preserve case
334  .true., & ! layered
335  .false. & ! timeseries
336  )
337 
338  type(inputparamdefinitiontype), parameter :: &
340  ( &
341  'GWT', & ! component
342  'DISV', & ! subcomponent
343  'GRIDDATA', & ! block
344  'IDOMAIN', & ! tag name
345  'IDOMAIN', & ! fortran variable
346  'INTEGER2D', & ! type
347  'NCPL NLAY', & ! shape
348  'idomain existence array', & ! longname
349  .false., & ! required
350  .false., & ! multi-record
351  .false., & ! preserve case
352  .true., & ! layered
353  .false. & ! timeseries
354  )
355 
356  type(inputparamdefinitiontype), parameter :: &
358  ( &
359  'GWT', & ! component
360  'DISV', & ! subcomponent
361  'VERTICES', & ! block
362  'IV', & ! tag name
363  'IV', & ! fortran variable
364  'INTEGER', & ! type
365  '', & ! shape
366  'vertex number', & ! longname
367  .true., & ! required
368  .true., & ! multi-record
369  .false., & ! preserve case
370  .false., & ! layered
371  .false. & ! timeseries
372  )
373 
374  type(inputparamdefinitiontype), parameter :: &
376  ( &
377  'GWT', & ! component
378  'DISV', & ! subcomponent
379  'VERTICES', & ! block
380  'XV', & ! tag name
381  'XV', & ! fortran variable
382  'DOUBLE', & ! type
383  '', & ! shape
384  'x-coordinate for vertex', & ! longname
385  .true., & ! required
386  .true., & ! multi-record
387  .false., & ! preserve case
388  .false., & ! layered
389  .false. & ! timeseries
390  )
391 
392  type(inputparamdefinitiontype), parameter :: &
394  ( &
395  'GWT', & ! component
396  'DISV', & ! subcomponent
397  'VERTICES', & ! block
398  'YV', & ! tag name
399  'YV', & ! fortran variable
400  'DOUBLE', & ! type
401  '', & ! shape
402  'y-coordinate for vertex', & ! longname
403  .true., & ! required
404  .true., & ! multi-record
405  .false., & ! preserve case
406  .false., & ! layered
407  .false. & ! timeseries
408  )
409 
410  type(inputparamdefinitiontype), parameter :: &
412  ( &
413  'GWT', & ! component
414  'DISV', & ! subcomponent
415  'CELL2D', & ! block
416  'ICELL2D', & ! tag name
417  'ICELL2D', & ! fortran variable
418  'INTEGER', & ! type
419  '', & ! shape
420  'cell2d number', & ! longname
421  .true., & ! required
422  .true., & ! multi-record
423  .false., & ! preserve case
424  .false., & ! layered
425  .false. & ! timeseries
426  )
427 
428  type(inputparamdefinitiontype), parameter :: &
430  ( &
431  'GWT', & ! component
432  'DISV', & ! subcomponent
433  'CELL2D', & ! block
434  'XC', & ! tag name
435  'XC', & ! fortran variable
436  'DOUBLE', & ! type
437  '', & ! shape
438  'x-coordinate for cell center', & ! longname
439  .true., & ! required
440  .true., & ! multi-record
441  .false., & ! preserve case
442  .false., & ! layered
443  .false. & ! timeseries
444  )
445 
446  type(inputparamdefinitiontype), parameter :: &
448  ( &
449  'GWT', & ! component
450  'DISV', & ! subcomponent
451  'CELL2D', & ! block
452  'YC', & ! tag name
453  'YC', & ! fortran variable
454  'DOUBLE', & ! type
455  '', & ! shape
456  'y-coordinate for cell center', & ! longname
457  .true., & ! required
458  .true., & ! multi-record
459  .false., & ! preserve case
460  .false., & ! layered
461  .false. & ! timeseries
462  )
463 
464  type(inputparamdefinitiontype), parameter :: &
466  ( &
467  'GWT', & ! component
468  'DISV', & ! subcomponent
469  'CELL2D', & ! block
470  'NCVERT', & ! tag name
471  'NCVERT', & ! fortran variable
472  'INTEGER', & ! type
473  '', & ! shape
474  'number of cell vertices', & ! longname
475  .true., & ! required
476  .true., & ! multi-record
477  .false., & ! preserve case
478  .false., & ! layered
479  .false. & ! timeseries
480  )
481 
482  type(inputparamdefinitiontype), parameter :: &
484  ( &
485  'GWT', & ! component
486  'DISV', & ! subcomponent
487  'CELL2D', & ! block
488  'ICVERT', & ! tag name
489  'ICVERT', & ! fortran variable
490  'INTEGER1D', & ! type
491  'NCVERT', & ! shape
492  'array of vertex numbers', & ! longname
493  .true., & ! required
494  .true., & ! multi-record
495  .false., & ! preserve case
496  .false., & ! layered
497  .false. & ! timeseries
498  )
499 
500  type(inputparamdefinitiontype), parameter :: &
502  [ &
504  gwtdisv_nogrb, &
505  gwtdisv_xorigin, &
506  gwtdisv_yorigin, &
507  gwtdisv_angrot, &
511  gwtdisv_ncf6, &
512  gwtdisv_filein, &
514  gwtdisv_nlay, &
515  gwtdisv_ncpl, &
516  gwtdisv_nvert, &
517  gwtdisv_top, &
518  gwtdisv_botm, &
519  gwtdisv_idomain, &
520  gwtdisv_iv, &
521  gwtdisv_xv, &
522  gwtdisv_yv, &
523  gwtdisv_icell2d, &
524  gwtdisv_xc, &
525  gwtdisv_yc, &
526  gwtdisv_ncvert, &
528  ]
529 
530  type(inputparamdefinitiontype), parameter :: &
532  ( &
533  'GWT', & ! component
534  'DISV', & ! subcomponent
535  'VERTICES', & ! block
536  'VERTICES', & ! tag name
537  'VERTICES', & ! fortran variable
538  'RECARRAY IV XV YV', & ! type
539  'NVERT', & ! shape
540  'vertices data', & ! longname
541  .true., & ! required
542  .false., & ! multi-record
543  .false., & ! preserve case
544  .false., & ! layered
545  .false. & ! timeseries
546  )
547 
548  type(inputparamdefinitiontype), parameter :: &
550  ( &
551  'GWT', & ! component
552  'DISV', & ! subcomponent
553  'CELL2D', & ! block
554  'CELL2D', & ! tag name
555  'CELL2D', & ! fortran variable
556  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
557  'NCPL', & ! shape
558  'cell2d data', & ! longname
559  .true., & ! required
560  .false., & ! multi-record
561  .false., & ! preserve case
562  .false., & ! layered
563  .false. & ! timeseries
564  )
565 
566  type(inputparamdefinitiontype), parameter :: &
568  [ &
571  ]
572 
573  type(inputblockdefinitiontype), parameter :: &
575  [ &
577  'OPTIONS', & ! blockname
578  .false., & ! required
579  .false., & ! aggregate
580  .false. & ! block_variable
581  ), &
583  'DIMENSIONS', & ! blockname
584  .true., & ! required
585  .false., & ! aggregate
586  .false. & ! block_variable
587  ), &
589  'GRIDDATA', & ! blockname
590  .true., & ! required
591  .false., & ! aggregate
592  .false. & ! block_variable
593  ), &
595  'VERTICES', & ! blockname
596  .true., & ! required
597  .true., & ! aggregate
598  .false. & ! block_variable
599  ), &
601  'CELL2D', & ! blockname
602  .true., & ! required
603  .true., & ! aggregate
604  .false. & ! block_variable
605  ) &
606  ]
607 
608 end module gwtdisvinputmodule
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 gwtdisv_nvert
type(inputparamdefinitiontype), parameter gwtdisv_ncf_filerecord
type(inputparamdefinitiontype), parameter gwtdisv_top
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disv_aggregate_definitions
type(inputparamdefinitiontype), parameter gwtdisv_botm
type(inputparamdefinitiontype), parameter gwtdisv_cell2d
type(inputparamdefinitiontype), parameter gwtdisv_vertices
type(inputparamdefinitiontype), parameter gwtdisv_yc
type(inputparamdefinitiontype), parameter gwtdisv_iv
type(inputparamdefinitiontype), parameter gwtdisv_idomain
type(inputparamdefinitiontype), parameter gwtdisv_ncf6_filename
type(inputparamdefinitiontype), parameter gwtdisv_yv
type(inputparamdefinitiontype), parameter gwtdisv_nlay
type(inputparamdefinitiontype), parameter gwtdisv_ncvert
type(inputparamdefinitiontype), parameter gwtdisv_export_ascii
character(len=16), dimension(*), parameter, public gwt_disv_subpackages
Definition: gwt-disvidm.f90:44
type(inputparamdefinitiontype), parameter gwtdisv_ncpl
type(inputparamdefinitiontype), parameter gwtdisv_xorigin
Definition: gwt-disvidm.f90:86
type(inputparamdefinitiontype), parameter gwtdisv_yorigin
type(inputparamdefinitiontype), parameter gwtdisv_icell2d
type(inputparamdefinitiontype), parameter gwtdisv_xv
type(inputparamdefinitiontype), parameter gwtdisv_icvert
type(inputparamdefinitiontype), parameter gwtdisv_nogrb
Definition: gwt-disvidm.f90:68
type(inputparamdefinitiontype), parameter gwtdisv_length_units
Definition: gwt-disvidm.f90:50
type(inputparamdefinitiontype), parameter gwtdisv_ncf6
type(inputparamdefinitiontype), parameter gwtdisv_angrot
type(inputparamdefinitiontype), parameter gwtdisv_filein
type(inputparamdefinitiontype), parameter gwtdisv_export_nc
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disv_param_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwt_disv_block_definitions
logical, public gwt_disv_multi_package
Definition: gwt-disvidm.f90:42
type(inputparamdefinitiontype), parameter gwtdisv_xc
This module contains the InputDefinitionModule.