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