MODFLOW 6  version 6.9.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. **
2 module gwtdisuinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwt_disu_param_definitions
8  public gwt_disu_aggregate_definitions
9  public gwt_disu_block_definitions
10  public gwtdisuparamfoundtype
11  public gwt_disu_multi_package
12  public gwt_disu_is_advanced
13  public gwt_disu_subpackages
14 
15  type gwtdisuparamfoundtype
16  logical :: length_units = .false.
17  logical :: nogrb = .false.
18  logical :: grb_filerecord = .false.
19  logical :: grb6 = .false.
20  logical :: fileout = .false.
21  logical :: grb6_filename = .false.
22  logical :: xorigin = .false.
23  logical :: yorigin = .false.
24  logical :: angrot = .false.
25  logical :: voffsettol = .false.
26  logical :: export_ascii = .false.
27  logical :: crs = .false.
28  logical :: nodes = .false.
29  logical :: nja = .false.
30  logical :: nvert = .false.
31  logical :: top = .false.
32  logical :: bot = .false.
33  logical :: area = .false.
34  logical :: idomain = .false.
35  logical :: iac = .false.
36  logical :: ja = .false.
37  logical :: ihc = .false.
38  logical :: cl12 = .false.
39  logical :: hwva = .false.
40  logical :: angldegx = .false.
41  logical :: iv = .false.
42  logical :: xv = .false.
43  logical :: yv = .false.
44  logical :: icell2d = .false.
45  logical :: xc = .false.
46  logical :: yc = .false.
47  logical :: ncvert = .false.
48  logical :: icvert = .false.
49  end type gwtdisuparamfoundtype
50 
51  logical :: gwt_disu_multi_package = .false.
52  logical :: gwt_disu_is_advanced = .false.
53 
54  character(len=16), parameter :: &
55  gwt_disu_subpackages(*) = &
56  [ &
57  ' ' &
58  ]
59 
60  type(inputparamdefinitiontype), parameter :: &
61  gwtdisu_length_units = inputparamdefinitiontype &
62  ( &
63  'GWT', & ! component
64  'DISU', & ! subcomponent
65  'OPTIONS', & ! block
66  'LENGTH_UNITS', & ! tag name
67  'LENGTH_UNITS', & ! fortran variable
68  'STRING', & ! type
69  '', & ! shape
70  'model length units', & ! longname
71  .false., & ! required
72  .false., & ! developmode
73  .false., & ! multi-record
74  .false., & ! preserve case
75  .false., & ! layered
76  .false. & ! timeseries
77  )
78 
79  type(inputparamdefinitiontype), parameter :: &
80  gwtdisu_nogrb = inputparamdefinitiontype &
81  ( &
82  'GWT', & ! component
83  'DISU', & ! subcomponent
84  'OPTIONS', & ! block
85  'NOGRB', & ! tag name
86  'NOGRB', & ! fortran variable
87  'KEYWORD', & ! type
88  '', & ! shape
89  'do not write binary grid file', & ! longname
90  .false., & ! required
91  .false., & ! developmode
92  .false., & ! multi-record
93  .false., & ! preserve case
94  .false., & ! layered
95  .false. & ! timeseries
96  )
97 
98  type(inputparamdefinitiontype), parameter :: &
99  gwtdisu_grb_filerecord = inputparamdefinitiontype &
100  ( &
101  'GWT', & ! component
102  'DISU', & ! subcomponent
103  'OPTIONS', & ! block
104  'GRB_FILERECORD', & ! tag name
105  'GRB_FILERECORD', & ! fortran variable
106  'RECORD GRB6 FILEOUT GRB6_FILENAME', & ! type
107  '', & ! shape
108  '', & ! longname
109  .false., & ! required
110  .false., & ! developmode
111  .false., & ! multi-record
112  .false., & ! preserve case
113  .false., & ! layered
114  .false. & ! timeseries
115  )
116 
117  type(inputparamdefinitiontype), parameter :: &
118  gwtdisu_grb6 = inputparamdefinitiontype &
119  ( &
120  'GWT', & ! component
121  'DISU', & ! subcomponent
122  'OPTIONS', & ! block
123  'GRB6', & ! tag name
124  'GRB6', & ! fortran variable
125  'KEYWORD', & ! type
126  '', & ! shape
127  'grb keyword', & ! longname
128  .true., & ! required
129  .false., & ! developmode
130  .true., & ! multi-record
131  .false., & ! preserve case
132  .false., & ! layered
133  .false. & ! timeseries
134  )
135 
136  type(inputparamdefinitiontype), parameter :: &
137  gwtdisu_fileout = inputparamdefinitiontype &
138  ( &
139  'GWT', & ! component
140  'DISU', & ! subcomponent
141  'OPTIONS', & ! block
142  'FILEOUT', & ! tag name
143  'FILEOUT', & ! fortran variable
144  'KEYWORD', & ! type
145  '', & ! shape
146  'file keyword', & ! longname
147  .true., & ! required
148  .false., & ! developmode
149  .true., & ! multi-record
150  .false., & ! preserve case
151  .false., & ! layered
152  .false. & ! timeseries
153  )
154 
155  type(inputparamdefinitiontype), parameter :: &
156  gwtdisu_grb6_filename = inputparamdefinitiontype &
157  ( &
158  'GWT', & ! component
159  'DISU', & ! subcomponent
160  'OPTIONS', & ! block
161  'GRB6_FILENAME', & ! tag name
162  'GRB6_FILENAME', & ! fortran variable
163  'STRING', & ! type
164  '', & ! shape
165  'file name of GRB information', & ! longname
166  .true., & ! required
167  .false., & ! developmode
168  .true., & ! multi-record
169  .true., & ! preserve case
170  .false., & ! layered
171  .false. & ! timeseries
172  )
173 
174  type(inputparamdefinitiontype), parameter :: &
175  gwtdisu_xorigin = inputparamdefinitiontype &
176  ( &
177  'GWT', & ! component
178  'DISU', & ! subcomponent
179  'OPTIONS', & ! block
180  'XORIGIN', & ! tag name
181  'XORIGIN', & ! fortran variable
182  'DOUBLE', & ! type
183  '', & ! shape
184  'x-position origin of the model grid coordinate system', & ! longname
185  .false., & ! required
186  .false., & ! developmode
187  .false., & ! multi-record
188  .false., & ! preserve case
189  .false., & ! layered
190  .false. & ! timeseries
191  )
192 
193  type(inputparamdefinitiontype), parameter :: &
194  gwtdisu_yorigin = inputparamdefinitiontype &
195  ( &
196  'GWT', & ! component
197  'DISU', & ! subcomponent
198  'OPTIONS', & ! block
199  'YORIGIN', & ! tag name
200  'YORIGIN', & ! fortran variable
201  'DOUBLE', & ! type
202  '', & ! shape
203  'y-position origin of the model grid coordinate system', & ! longname
204  .false., & ! required
205  .false., & ! developmode
206  .false., & ! multi-record
207  .false., & ! preserve case
208  .false., & ! layered
209  .false. & ! timeseries
210  )
211 
212  type(inputparamdefinitiontype), parameter :: &
213  gwtdisu_angrot = inputparamdefinitiontype &
214  ( &
215  'GWT', & ! component
216  'DISU', & ! subcomponent
217  'OPTIONS', & ! block
218  'ANGROT', & ! tag name
219  'ANGROT', & ! fortran variable
220  'DOUBLE', & ! type
221  '', & ! shape
222  'rotation angle', & ! longname
223  .false., & ! required
224  .false., & ! developmode
225  .false., & ! multi-record
226  .false., & ! preserve case
227  .false., & ! layered
228  .false. & ! timeseries
229  )
230 
231  type(inputparamdefinitiontype), parameter :: &
232  gwtdisu_voffsettol = inputparamdefinitiontype &
233  ( &
234  'GWT', & ! component
235  'DISU', & ! subcomponent
236  'OPTIONS', & ! block
237  'VERTICAL_OFFSET_TOLERANCE', & ! tag name
238  'VOFFSETTOL', & ! fortran variable
239  'DOUBLE', & ! type
240  '', & ! shape
241  'vertical length dimension for top and bottom checking', & ! longname
242  .false., & ! required
243  .false., & ! developmode
244  .false., & ! multi-record
245  .false., & ! preserve case
246  .false., & ! layered
247  .false. & ! timeseries
248  )
249 
250  type(inputparamdefinitiontype), parameter :: &
251  gwtdisu_export_ascii = inputparamdefinitiontype &
252  ( &
253  'GWT', & ! component
254  'DISU', & ! subcomponent
255  'OPTIONS', & ! block
256  'EXPORT_ARRAY_ASCII', & ! tag name
257  'EXPORT_ASCII', & ! fortran variable
258  'KEYWORD', & ! type
259  '', & ! shape
260  'export array variables to layered ascii files.', & ! longname
261  .false., & ! required
262  .false., & ! developmode
263  .false., & ! multi-record
264  .false., & ! preserve case
265  .false., & ! layered
266  .false. & ! timeseries
267  )
268 
269  type(inputparamdefinitiontype), parameter :: &
270  gwtdisu_crs = inputparamdefinitiontype &
271  ( &
272  'GWT', & ! component
273  'DISU', & ! subcomponent
274  'OPTIONS', & ! block
275  'CRS', & ! tag name
276  'CRS', & ! fortran variable
277  'STRING', & ! type
278  'LENBIGLINE', & ! shape
279  'CRS user input string', & ! longname
280  .false., & ! required
281  .false., & ! developmode
282  .false., & ! multi-record
283  .true., & ! preserve case
284  .false., & ! layered
285  .false. & ! timeseries
286  )
287 
288  type(inputparamdefinitiontype), parameter :: &
289  gwtdisu_nodes = inputparamdefinitiontype &
290  ( &
291  'GWT', & ! component
292  'DISU', & ! subcomponent
293  'DIMENSIONS', & ! block
294  'NODES', & ! tag name
295  'NODES', & ! fortran variable
296  'INTEGER', & ! type
297  '', & ! shape
298  'number of layers', & ! longname
299  .true., & ! required
300  .false., & ! developmode
301  .false., & ! multi-record
302  .false., & ! preserve case
303  .false., & ! layered
304  .false. & ! timeseries
305  )
306 
307  type(inputparamdefinitiontype), parameter :: &
308  gwtdisu_nja = inputparamdefinitiontype &
309  ( &
310  'GWT', & ! component
311  'DISU', & ! subcomponent
312  'DIMENSIONS', & ! block
313  'NJA', & ! tag name
314  'NJA', & ! fortran variable
315  'INTEGER', & ! type
316  '', & ! shape
317  'number of columns', & ! longname
318  .true., & ! required
319  .false., & ! developmode
320  .false., & ! multi-record
321  .false., & ! preserve case
322  .false., & ! layered
323  .false. & ! timeseries
324  )
325 
326  type(inputparamdefinitiontype), parameter :: &
327  gwtdisu_nvert = inputparamdefinitiontype &
328  ( &
329  'GWT', & ! component
330  'DISU', & ! subcomponent
331  'DIMENSIONS', & ! block
332  'NVERT', & ! tag name
333  'NVERT', & ! fortran variable
334  'INTEGER', & ! type
335  '', & ! shape
336  'number of vertices', & ! longname
337  .false., & ! required
338  .false., & ! developmode
339  .false., & ! multi-record
340  .false., & ! preserve case
341  .false., & ! layered
342  .false. & ! timeseries
343  )
344 
345  type(inputparamdefinitiontype), parameter :: &
346  gwtdisu_top = inputparamdefinitiontype &
347  ( &
348  'GWT', & ! component
349  'DISU', & ! subcomponent
350  'GRIDDATA', & ! block
351  'TOP', & ! tag name
352  'TOP', & ! fortran variable
353  'DOUBLE1D', & ! type
354  'NODES', & ! shape
355  'cell top elevation', & ! longname
356  .true., & ! required
357  .false., & ! developmode
358  .false., & ! multi-record
359  .false., & ! preserve case
360  .false., & ! layered
361  .false. & ! timeseries
362  )
363 
364  type(inputparamdefinitiontype), parameter :: &
365  gwtdisu_bot = inputparamdefinitiontype &
366  ( &
367  'GWT', & ! component
368  'DISU', & ! subcomponent
369  'GRIDDATA', & ! block
370  'BOT', & ! tag name
371  'BOT', & ! fortran variable
372  'DOUBLE1D', & ! type
373  'NODES', & ! shape
374  'cell bottom elevation', & ! longname
375  .true., & ! required
376  .false., & ! developmode
377  .false., & ! multi-record
378  .false., & ! preserve case
379  .false., & ! layered
380  .false. & ! timeseries
381  )
382 
383  type(inputparamdefinitiontype), parameter :: &
384  gwtdisu_area = inputparamdefinitiontype &
385  ( &
386  'GWT', & ! component
387  'DISU', & ! subcomponent
388  'GRIDDATA', & ! block
389  'AREA', & ! tag name
390  'AREA', & ! fortran variable
391  'DOUBLE1D', & ! type
392  'NODES', & ! shape
393  'cell surface area', & ! longname
394  .true., & ! required
395  .false., & ! developmode
396  .false., & ! multi-record
397  .false., & ! preserve case
398  .false., & ! layered
399  .false. & ! timeseries
400  )
401 
402  type(inputparamdefinitiontype), parameter :: &
403  gwtdisu_idomain = inputparamdefinitiontype &
404  ( &
405  'GWT', & ! component
406  'DISU', & ! subcomponent
407  'GRIDDATA', & ! block
408  'IDOMAIN', & ! tag name
409  'IDOMAIN', & ! fortran variable
410  'INTEGER1D', & ! type
411  'NODES', & ! shape
412  'idomain existence array', & ! longname
413  .false., & ! required
414  .false., & ! developmode
415  .false., & ! multi-record
416  .false., & ! preserve case
417  .false., & ! layered
418  .false. & ! timeseries
419  )
420 
421  type(inputparamdefinitiontype), parameter :: &
422  gwtdisu_iac = inputparamdefinitiontype &
423  ( &
424  'GWT', & ! component
425  'DISU', & ! subcomponent
426  'CONNECTIONDATA', & ! block
427  'IAC', & ! tag name
428  'IAC', & ! fortran variable
429  'INTEGER1D', & ! type
430  'NODES', & ! shape
431  'number of cell connections', & ! longname
432  .true., & ! required
433  .false., & ! developmode
434  .false., & ! multi-record
435  .false., & ! preserve case
436  .false., & ! layered
437  .false. & ! timeseries
438  )
439 
440  type(inputparamdefinitiontype), parameter :: &
441  gwtdisu_ja = inputparamdefinitiontype &
442  ( &
443  'GWT', & ! component
444  'DISU', & ! subcomponent
445  'CONNECTIONDATA', & ! block
446  'JA', & ! tag name
447  'JA', & ! fortran variable
448  'INTEGER1D', & ! type
449  'NJA', & ! shape
450  'grid connectivity', & ! longname
451  .true., & ! required
452  .false., & ! developmode
453  .false., & ! multi-record
454  .false., & ! preserve case
455  .false., & ! layered
456  .false. & ! timeseries
457  )
458 
459  type(inputparamdefinitiontype), parameter :: &
460  gwtdisu_ihc = inputparamdefinitiontype &
461  ( &
462  'GWT', & ! component
463  'DISU', & ! subcomponent
464  'CONNECTIONDATA', & ! block
465  'IHC', & ! tag name
466  'IHC', & ! fortran variable
467  'INTEGER1D', & ! type
468  'NJA', & ! shape
469  'connection type', & ! longname
470  .true., & ! required
471  .false., & ! developmode
472  .false., & ! multi-record
473  .false., & ! preserve case
474  .false., & ! layered
475  .false. & ! timeseries
476  )
477 
478  type(inputparamdefinitiontype), parameter :: &
479  gwtdisu_cl12 = inputparamdefinitiontype &
480  ( &
481  'GWT', & ! component
482  'DISU', & ! subcomponent
483  'CONNECTIONDATA', & ! block
484  'CL12', & ! tag name
485  'CL12', & ! fortran variable
486  'DOUBLE1D', & ! type
487  'NJA', & ! shape
488  'connection lengths', & ! longname
489  .true., & ! required
490  .false., & ! developmode
491  .false., & ! multi-record
492  .false., & ! preserve case
493  .false., & ! layered
494  .false. & ! timeseries
495  )
496 
497  type(inputparamdefinitiontype), parameter :: &
498  gwtdisu_hwva = inputparamdefinitiontype &
499  ( &
500  'GWT', & ! component
501  'DISU', & ! subcomponent
502  'CONNECTIONDATA', & ! block
503  'HWVA', & ! tag name
504  'HWVA', & ! fortran variable
505  'DOUBLE1D', & ! type
506  'NJA', & ! shape
507  'connection lengths', & ! longname
508  .true., & ! required
509  .false., & ! developmode
510  .false., & ! multi-record
511  .false., & ! preserve case
512  .false., & ! layered
513  .false. & ! timeseries
514  )
515 
516  type(inputparamdefinitiontype), parameter :: &
517  gwtdisu_angldegx = inputparamdefinitiontype &
518  ( &
519  'GWT', & ! component
520  'DISU', & ! subcomponent
521  'CONNECTIONDATA', & ! block
522  'ANGLDEGX', & ! tag name
523  'ANGLDEGX', & ! fortran variable
524  'DOUBLE1D', & ! type
525  'NJA', & ! shape
526  'angle of face normal to connection', & ! longname
527  .false., & ! required
528  .false., & ! developmode
529  .false., & ! multi-record
530  .false., & ! preserve case
531  .false., & ! layered
532  .false. & ! timeseries
533  )
534 
535  type(inputparamdefinitiontype), parameter :: &
536  gwtdisu_iv = inputparamdefinitiontype &
537  ( &
538  'GWT', & ! component
539  'DISU', & ! subcomponent
540  'VERTICES', & ! block
541  'IV', & ! tag name
542  'IV', & ! fortran variable
543  'INTEGER', & ! type
544  '', & ! shape
545  'vertex number', & ! longname
546  .true., & ! required
547  .false., & ! developmode
548  .true., & ! multi-record
549  .false., & ! preserve case
550  .false., & ! layered
551  .false. & ! timeseries
552  )
553 
554  type(inputparamdefinitiontype), parameter :: &
555  gwtdisu_xv = inputparamdefinitiontype &
556  ( &
557  'GWT', & ! component
558  'DISU', & ! subcomponent
559  'VERTICES', & ! block
560  'XV', & ! tag name
561  'XV', & ! fortran variable
562  'DOUBLE', & ! type
563  '', & ! shape
564  'x-coordinate for vertex', & ! longname
565  .true., & ! required
566  .false., & ! developmode
567  .true., & ! multi-record
568  .false., & ! preserve case
569  .false., & ! layered
570  .false. & ! timeseries
571  )
572 
573  type(inputparamdefinitiontype), parameter :: &
574  gwtdisu_yv = inputparamdefinitiontype &
575  ( &
576  'GWT', & ! component
577  'DISU', & ! subcomponent
578  'VERTICES', & ! block
579  'YV', & ! tag name
580  'YV', & ! fortran variable
581  'DOUBLE', & ! type
582  '', & ! shape
583  'y-coordinate for vertex', & ! longname
584  .true., & ! required
585  .false., & ! developmode
586  .true., & ! multi-record
587  .false., & ! preserve case
588  .false., & ! layered
589  .false. & ! timeseries
590  )
591 
592  type(inputparamdefinitiontype), parameter :: &
593  gwtdisu_icell2d = inputparamdefinitiontype &
594  ( &
595  'GWT', & ! component
596  'DISU', & ! subcomponent
597  'CELL2D', & ! block
598  'ICELL2D', & ! tag name
599  'ICELL2D', & ! fortran variable
600  'INTEGER', & ! type
601  '', & ! shape
602  'cell2d number', & ! longname
603  .true., & ! required
604  .false., & ! developmode
605  .true., & ! multi-record
606  .false., & ! preserve case
607  .false., & ! layered
608  .false. & ! timeseries
609  )
610 
611  type(inputparamdefinitiontype), parameter :: &
612  gwtdisu_xc = inputparamdefinitiontype &
613  ( &
614  'GWT', & ! component
615  'DISU', & ! subcomponent
616  'CELL2D', & ! block
617  'XC', & ! tag name
618  'XC', & ! fortran variable
619  'DOUBLE', & ! type
620  '', & ! shape
621  'x-coordinate for cell center', & ! longname
622  .true., & ! required
623  .false., & ! developmode
624  .true., & ! multi-record
625  .false., & ! preserve case
626  .false., & ! layered
627  .false. & ! timeseries
628  )
629 
630  type(inputparamdefinitiontype), parameter :: &
631  gwtdisu_yc = inputparamdefinitiontype &
632  ( &
633  'GWT', & ! component
634  'DISU', & ! subcomponent
635  'CELL2D', & ! block
636  'YC', & ! tag name
637  'YC', & ! fortran variable
638  'DOUBLE', & ! type
639  '', & ! shape
640  'y-coordinate for cell center', & ! longname
641  .true., & ! required
642  .false., & ! developmode
643  .true., & ! multi-record
644  .false., & ! preserve case
645  .false., & ! layered
646  .false. & ! timeseries
647  )
648 
649  type(inputparamdefinitiontype), parameter :: &
650  gwtdisu_ncvert = inputparamdefinitiontype &
651  ( &
652  'GWT', & ! component
653  'DISU', & ! subcomponent
654  'CELL2D', & ! block
655  'NCVERT', & ! tag name
656  'NCVERT', & ! fortran variable
657  'INTEGER', & ! type
658  '', & ! shape
659  'number of cell vertices', & ! longname
660  .true., & ! required
661  .false., & ! developmode
662  .true., & ! multi-record
663  .false., & ! preserve case
664  .false., & ! layered
665  .false. & ! timeseries
666  )
667 
668  type(inputparamdefinitiontype), parameter :: &
669  gwtdisu_icvert = inputparamdefinitiontype &
670  ( &
671  'GWT', & ! component
672  'DISU', & ! subcomponent
673  'CELL2D', & ! block
674  'ICVERT', & ! tag name
675  'ICVERT', & ! fortran variable
676  'INTEGER1D', & ! type
677  'NCVERT', & ! shape
678  'array of vertex numbers', & ! longname
679  .true., & ! required
680  .false., & ! developmode
681  .true., & ! multi-record
682  .false., & ! preserve case
683  .false., & ! layered
684  .false. & ! timeseries
685  )
686 
687  type(inputparamdefinitiontype), parameter :: &
688  gwt_disu_param_definitions(*) = &
689  [ &
690  gwtdisu_length_units, &
691  gwtdisu_nogrb, &
692  gwtdisu_grb_filerecord, &
693  gwtdisu_grb6, &
694  gwtdisu_fileout, &
695  gwtdisu_grb6_filename, &
696  gwtdisu_xorigin, &
697  gwtdisu_yorigin, &
698  gwtdisu_angrot, &
699  gwtdisu_voffsettol, &
700  gwtdisu_export_ascii, &
701  gwtdisu_crs, &
702  gwtdisu_nodes, &
703  gwtdisu_nja, &
704  gwtdisu_nvert, &
705  gwtdisu_top, &
706  gwtdisu_bot, &
707  gwtdisu_area, &
708  gwtdisu_idomain, &
709  gwtdisu_iac, &
710  gwtdisu_ja, &
711  gwtdisu_ihc, &
712  gwtdisu_cl12, &
713  gwtdisu_hwva, &
714  gwtdisu_angldegx, &
715  gwtdisu_iv, &
716  gwtdisu_xv, &
717  gwtdisu_yv, &
718  gwtdisu_icell2d, &
719  gwtdisu_xc, &
720  gwtdisu_yc, &
721  gwtdisu_ncvert, &
722  gwtdisu_icvert &
723  ]
724 
725  type(inputparamdefinitiontype), parameter :: &
726  gwtdisu_vertices = inputparamdefinitiontype &
727  ( &
728  'GWT', & ! component
729  'DISU', & ! subcomponent
730  'VERTICES', & ! block
731  'VERTICES', & ! tag name
732  'VERTICES', & ! fortran variable
733  'RECARRAY IV XV YV', & ! type
734  'NVERT', & ! shape
735  'vertices data', & ! longname
736  .false., & ! required
737  .false., & ! developmode
738  .false., & ! multi-record
739  .false., & ! preserve case
740  .false., & ! layered
741  .false. & ! timeseries
742  )
743 
744  type(inputparamdefinitiontype), parameter :: &
745  gwtdisu_cell2d = inputparamdefinitiontype &
746  ( &
747  'GWT', & ! component
748  'DISU', & ! subcomponent
749  'CELL2D', & ! block
750  'CELL2D', & ! tag name
751  'CELL2D', & ! fortran variable
752  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
753  'NODES', & ! shape
754  'cell2d data', & ! longname
755  .false., & ! required
756  .false., & ! developmode
757  .false., & ! multi-record
758  .false., & ! preserve case
759  .false., & ! layered
760  .false. & ! timeseries
761  )
762 
763  type(inputparamdefinitiontype), parameter :: &
764  gwt_disu_aggregate_definitions(*) = &
765  [ &
766  gwtdisu_vertices, &
767  gwtdisu_cell2d &
768  ]
769 
770  type(inputblockdefinitiontype), parameter :: &
771  gwt_disu_block_definitions(*) = &
772  [ &
773  inputblockdefinitiontype( &
774  'OPTIONS', & ! blockname
775  .false., & ! required
776  .false., & ! aggregate
777  .false. & ! block_variable
778  ), &
779  inputblockdefinitiontype( &
780  'DIMENSIONS', & ! blockname
781  .true., & ! required
782  .false., & ! aggregate
783  .false. & ! block_variable
784  ), &
785  inputblockdefinitiontype( &
786  'GRIDDATA', & ! blockname
787  .true., & ! required
788  .false., & ! aggregate
789  .false. & ! block_variable
790  ), &
791  inputblockdefinitiontype( &
792  'CONNECTIONDATA', & ! blockname
793  .true., & ! required
794  .false., & ! aggregate
795  .false. & ! block_variable
796  ), &
797  inputblockdefinitiontype( &
798  'VERTICES', & ! blockname
799  .false., & ! required
800  .true., & ! aggregate
801  .false. & ! block_variable
802  ), &
803  inputblockdefinitiontype( &
804  'CELL2D', & ! blockname
805  .false., & ! required
806  .true., & ! aggregate
807  .false. & ! block_variable
808  ) &
809  ]
810 
811 end module gwtdisuinputmodule
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
gwtdisuinputmodule::gwt_disu_is_advanced
logical, public gwt_disu_is_advanced
Definition: gwt-disuidm.f90:52
gwtdisuinputmodule::gwtdisu_xv
type(inputparamdefinitiontype), parameter gwtdisu_xv
Definition: gwt-disuidm.f90:554
gwtdisuinputmodule::gwtdisu_cl12
type(inputparamdefinitiontype), parameter gwtdisu_cl12
Definition: gwt-disuidm.f90:478
gwtdisuinputmodule::gwtdisu_top
type(inputparamdefinitiontype), parameter gwtdisu_top
Definition: gwt-disuidm.f90:345
gwtdisuinputmodule::gwtdisu_idomain
type(inputparamdefinitiontype), parameter gwtdisu_idomain
Definition: gwt-disuidm.f90:402
gwtdisuinputmodule::gwtdisu_iv
type(inputparamdefinitiontype), parameter gwtdisu_iv
Definition: gwt-disuidm.f90:535
gwtdisuinputmodule::gwt_disu_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disu_aggregate_definitions
Definition: gwt-disuidm.f90:763
gwtdisuinputmodule::gwtdisu_length_units
type(inputparamdefinitiontype), parameter gwtdisu_length_units
Definition: gwt-disuidm.f90:60
gwtdisuinputmodule::gwtdisu_crs
type(inputparamdefinitiontype), parameter gwtdisu_crs
Definition: gwt-disuidm.f90:269
gwtdisuinputmodule::gwtdisu_icvert
type(inputparamdefinitiontype), parameter gwtdisu_icvert
Definition: gwt-disuidm.f90:668
gwtdisuinputmodule::gwtdisu_grb_filerecord
type(inputparamdefinitiontype), parameter gwtdisu_grb_filerecord
Definition: gwt-disuidm.f90:98
gwtdisuinputmodule::gwtdisu_area
type(inputparamdefinitiontype), parameter gwtdisu_area
Definition: gwt-disuidm.f90:383
gwtdisuinputmodule::gwtdisu_fileout
type(inputparamdefinitiontype), parameter gwtdisu_fileout
Definition: gwt-disuidm.f90:136
gwtdisuinputmodule::gwtdisu_voffsettol
type(inputparamdefinitiontype), parameter gwtdisu_voffsettol
Definition: gwt-disuidm.f90:231
gwtdisuinputmodule::gwtdisu_export_ascii
type(inputparamdefinitiontype), parameter gwtdisu_export_ascii
Definition: gwt-disuidm.f90:250
gwtdisuinputmodule::gwtdisu_ncvert
type(inputparamdefinitiontype), parameter gwtdisu_ncvert
Definition: gwt-disuidm.f90:649
gwtdisuinputmodule::gwt_disu_multi_package
logical, public gwt_disu_multi_package
Definition: gwt-disuidm.f90:51
gwtdisuinputmodule::gwtdisu_vertices
type(inputparamdefinitiontype), parameter gwtdisu_vertices
Definition: gwt-disuidm.f90:725
gwtdisuinputmodule::gwtdisu_ihc
type(inputparamdefinitiontype), parameter gwtdisu_ihc
Definition: gwt-disuidm.f90:459
gwtdisuinputmodule::gwtdisu_nvert
type(inputparamdefinitiontype), parameter gwtdisu_nvert
Definition: gwt-disuidm.f90:326
gwtdisuinputmodule::gwtdisu_hwva
type(inputparamdefinitiontype), parameter gwtdisu_hwva
Definition: gwt-disuidm.f90:497
gwtdisuinputmodule::gwtdisu_yv
type(inputparamdefinitiontype), parameter gwtdisu_yv
Definition: gwt-disuidm.f90:573
gwtdisuinputmodule::gwtdisu_nodes
type(inputparamdefinitiontype), parameter gwtdisu_nodes
Definition: gwt-disuidm.f90:288
gwtdisuinputmodule::gwt_disu_subpackages
character(len=16), dimension(*), parameter, public gwt_disu_subpackages
Definition: gwt-disuidm.f90:54
gwtdisuinputmodule::gwtdisu_grb6
type(inputparamdefinitiontype), parameter gwtdisu_grb6
Definition: gwt-disuidm.f90:117
gwtdisuinputmodule::gwt_disu_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_disu_param_definitions
Definition: gwt-disuidm.f90:687
gwtdisuinputmodule::gwtdisu_yorigin
type(inputparamdefinitiontype), parameter gwtdisu_yorigin
Definition: gwt-disuidm.f90:193
gwtdisuinputmodule::gwtdisu_ja
type(inputparamdefinitiontype), parameter gwtdisu_ja
Definition: gwt-disuidm.f90:440
gwtdisuinputmodule::gwt_disu_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwt_disu_block_definitions
Definition: gwt-disuidm.f90:770
gwtdisuinputmodule::gwtdisu_bot
type(inputparamdefinitiontype), parameter gwtdisu_bot
Definition: gwt-disuidm.f90:364
gwtdisuinputmodule::gwtdisu_nja
type(inputparamdefinitiontype), parameter gwtdisu_nja
Definition: gwt-disuidm.f90:307
gwtdisuinputmodule::gwtdisu_angrot
type(inputparamdefinitiontype), parameter gwtdisu_angrot
Definition: gwt-disuidm.f90:212
gwtdisuinputmodule::gwtdisu_angldegx
type(inputparamdefinitiontype), parameter gwtdisu_angldegx
Definition: gwt-disuidm.f90:516
gwtdisuinputmodule::gwtdisu_yc
type(inputparamdefinitiontype), parameter gwtdisu_yc
Definition: gwt-disuidm.f90:630
gwtdisuinputmodule::gwtdisu_grb6_filename
type(inputparamdefinitiontype), parameter gwtdisu_grb6_filename
Definition: gwt-disuidm.f90:155
gwtdisuinputmodule::gwtdisu_icell2d
type(inputparamdefinitiontype), parameter gwtdisu_icell2d
Definition: gwt-disuidm.f90:592
gwtdisuinputmodule::gwtdisu_xorigin
type(inputparamdefinitiontype), parameter gwtdisu_xorigin
Definition: gwt-disuidm.f90:174
gwtdisuinputmodule::gwtdisu_nogrb
type(inputparamdefinitiontype), parameter gwtdisu_nogrb
Definition: gwt-disuidm.f90:79
gwtdisuinputmodule::gwtdisu_cell2d
type(inputparamdefinitiontype), parameter gwtdisu_cell2d
Definition: gwt-disuidm.f90:744
gwtdisuinputmodule::gwtdisu_xc
type(inputparamdefinitiontype), parameter gwtdisu_xc
Definition: gwt-disuidm.f90:611
gwtdisuinputmodule::gwtdisu_iac
type(inputparamdefinitiontype), parameter gwtdisu_iac
Definition: gwt-disuidm.f90:421
inputdefinitionmodule
Input definition module.
Definition: InputDefinition.f90:7
inputdefinitionmodule::inputblockdefinitiontype
Input block definition. Describes an input block.
Definition: InputDefinition.f90:36
inputdefinitionmodule::inputparamdefinitiontype
Input parameter definition. Describes an input parameter.
Definition: InputDefinition.f90:18