MODFLOW 6  version 6.7.0.dev1
USGS Modular Hydrologic Model
swf-disv2didm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module swfdisv2dinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public swf_disv2d_param_definitions
8  public swf_disv2d_aggregate_definitions
9  public swf_disv2d_block_definitions
10  public swfdisv2dparamfoundtype
11  public swf_disv2d_multi_package
12  public swf_disv2d_subpackages
13 
14  type swfdisv2dparamfoundtype
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 :: export_ascii = .false.
25  logical :: nodes = .false.
26  logical :: nvert = .false.
27  logical :: bottom = .false.
28  logical :: idomain = .false.
29  logical :: iv = .false.
30  logical :: xv = .false.
31  logical :: yv = .false.
32  logical :: icell2d = .false.
33  logical :: xc = .false.
34  logical :: yc = .false.
35  logical :: ncvert = .false.
36  logical :: icvert = .false.
37  end type swfdisv2dparamfoundtype
38 
39  logical :: swf_disv2d_multi_package = .false.
40 
41  character(len=16), parameter :: &
42  swf_disv2d_subpackages(*) = &
43  [ &
44  ' ' &
45  ]
46 
47  type(inputparamdefinitiontype), parameter :: &
48  swfdisv2d_length_units = inputparamdefinitiontype &
49  ( &
50  'SWF', & ! component
51  'DISV2D', & ! subcomponent
52  'OPTIONS', & ! block
53  'LENGTH_UNITS', & ! tag name
54  'LENGTH_UNITS', & ! fortran variable
55  'STRING', & ! type
56  '', & ! shape
57  'model length units', & ! longname
58  .false., & ! required
59  .false., & ! multi-record
60  .false., & ! preserve case
61  .false., & ! layered
62  .false. & ! timeseries
63  )
64 
65  type(inputparamdefinitiontype), parameter :: &
66  swfdisv2d_nogrb = inputparamdefinitiontype &
67  ( &
68  'SWF', & ! component
69  'DISV2D', & ! subcomponent
70  'OPTIONS', & ! block
71  'NOGRB', & ! tag name
72  'NOGRB', & ! fortran variable
73  'KEYWORD', & ! type
74  '', & ! shape
75  'do not write binary grid file', & ! longname
76  .false., & ! required
77  .false., & ! multi-record
78  .false., & ! preserve case
79  .false., & ! layered
80  .false. & ! timeseries
81  )
82 
83  type(inputparamdefinitiontype), parameter :: &
84  swfdisv2d_grb_filerecord = inputparamdefinitiontype &
85  ( &
86  'SWF', & ! component
87  'DISV2D', & ! subcomponent
88  'OPTIONS', & ! block
89  'GRB_FILERECORD', & ! tag name
90  'GRB_FILERECORD', & ! fortran variable
91  'RECORD GRB6 FILEOUT GRB6_FILENAME', & ! type
92  '', & ! shape
93  '', & ! longname
94  .false., & ! required
95  .false., & ! multi-record
96  .false., & ! preserve case
97  .false., & ! layered
98  .false. & ! timeseries
99  )
100 
101  type(inputparamdefinitiontype), parameter :: &
102  swfdisv2d_grb6 = inputparamdefinitiontype &
103  ( &
104  'SWF', & ! component
105  'DISV2D', & ! subcomponent
106  'OPTIONS', & ! block
107  'GRB6', & ! tag name
108  'GRB6', & ! fortran variable
109  'KEYWORD', & ! type
110  '', & ! shape
111  'grb keyword', & ! longname
112  .true., & ! required
113  .true., & ! multi-record
114  .false., & ! preserve case
115  .false., & ! layered
116  .false. & ! timeseries
117  )
118 
119  type(inputparamdefinitiontype), parameter :: &
120  swfdisv2d_fileout = inputparamdefinitiontype &
121  ( &
122  'SWF', & ! component
123  'DISV2D', & ! subcomponent
124  'OPTIONS', & ! block
125  'FILEOUT', & ! tag name
126  'FILEOUT', & ! fortran variable
127  'KEYWORD', & ! type
128  '', & ! shape
129  'file keyword', & ! longname
130  .true., & ! required
131  .true., & ! multi-record
132  .false., & ! preserve case
133  .false., & ! layered
134  .false. & ! timeseries
135  )
136 
137  type(inputparamdefinitiontype), parameter :: &
138  swfdisv2d_grb6_filename = inputparamdefinitiontype &
139  ( &
140  'SWF', & ! component
141  'DISV2D', & ! subcomponent
142  'OPTIONS', & ! block
143  'GRB6_FILENAME', & ! tag name
144  'GRB6_FILENAME', & ! fortran variable
145  'STRING', & ! type
146  '', & ! shape
147  'file name of GRB information', & ! longname
148  .true., & ! required
149  .true., & ! multi-record
150  .true., & ! preserve case
151  .false., & ! layered
152  .false. & ! timeseries
153  )
154 
155  type(inputparamdefinitiontype), parameter :: &
156  swfdisv2d_xorigin = inputparamdefinitiontype &
157  ( &
158  'SWF', & ! component
159  'DISV2D', & ! subcomponent
160  'OPTIONS', & ! block
161  'XORIGIN', & ! tag name
162  'XORIGIN', & ! fortran variable
163  'DOUBLE', & ! type
164  '', & ! shape
165  'x-position of the model grid origin', & ! longname
166  .false., & ! required
167  .false., & ! multi-record
168  .false., & ! preserve case
169  .false., & ! layered
170  .false. & ! timeseries
171  )
172 
173  type(inputparamdefinitiontype), parameter :: &
174  swfdisv2d_yorigin = inputparamdefinitiontype &
175  ( &
176  'SWF', & ! component
177  'DISV2D', & ! subcomponent
178  'OPTIONS', & ! block
179  'YORIGIN', & ! tag name
180  'YORIGIN', & ! fortran variable
181  'DOUBLE', & ! type
182  '', & ! shape
183  'y-position of the model grid origin', & ! longname
184  .false., & ! required
185  .false., & ! multi-record
186  .false., & ! preserve case
187  .false., & ! layered
188  .false. & ! timeseries
189  )
190 
191  type(inputparamdefinitiontype), parameter :: &
192  swfdisv2d_angrot = inputparamdefinitiontype &
193  ( &
194  'SWF', & ! component
195  'DISV2D', & ! subcomponent
196  'OPTIONS', & ! block
197  'ANGROT', & ! tag name
198  'ANGROT', & ! fortran variable
199  'DOUBLE', & ! type
200  '', & ! shape
201  'rotation angle', & ! longname
202  .false., & ! required
203  .false., & ! multi-record
204  .false., & ! preserve case
205  .false., & ! layered
206  .false. & ! timeseries
207  )
208 
209  type(inputparamdefinitiontype), parameter :: &
210  swfdisv2d_export_ascii = inputparamdefinitiontype &
211  ( &
212  'SWF', & ! component
213  'DISV2D', & ! subcomponent
214  'OPTIONS', & ! block
215  'EXPORT_ARRAY_ASCII', & ! tag name
216  'EXPORT_ASCII', & ! fortran variable
217  'KEYWORD', & ! type
218  '', & ! shape
219  'export array variables to layered ascii files.', & ! longname
220  .false., & ! required
221  .false., & ! multi-record
222  .false., & ! preserve case
223  .false., & ! layered
224  .false. & ! timeseries
225  )
226 
227  type(inputparamdefinitiontype), parameter :: &
228  swfdisv2d_nodes = inputparamdefinitiontype &
229  ( &
230  'SWF', & ! component
231  'DISV2D', & ! subcomponent
232  'DIMENSIONS', & ! block
233  'NODES', & ! tag name
234  'NODES', & ! fortran variable
235  'INTEGER', & ! type
236  '', & ! shape
237  'number of cells per layer', & ! longname
238  .true., & ! required
239  .false., & ! multi-record
240  .false., & ! preserve case
241  .false., & ! layered
242  .false. & ! timeseries
243  )
244 
245  type(inputparamdefinitiontype), parameter :: &
246  swfdisv2d_nvert = inputparamdefinitiontype &
247  ( &
248  'SWF', & ! component
249  'DISV2D', & ! subcomponent
250  'DIMENSIONS', & ! block
251  'NVERT', & ! tag name
252  'NVERT', & ! fortran variable
253  'INTEGER', & ! type
254  '', & ! shape
255  'number of columns', & ! longname
256  .true., & ! required
257  .false., & ! multi-record
258  .false., & ! preserve case
259  .false., & ! layered
260  .false. & ! timeseries
261  )
262 
263  type(inputparamdefinitiontype), parameter :: &
264  swfdisv2d_bottom = inputparamdefinitiontype &
265  ( &
266  'SWF', & ! component
267  'DISV2D', & ! subcomponent
268  'GRIDDATA', & ! block
269  'BOTTOM', & ! tag name
270  'BOTTOM', & ! fortran variable
271  'DOUBLE1D', & ! type
272  'NODES', & ! shape
273  'model bottom elevation', & ! longname
274  .true., & ! required
275  .false., & ! multi-record
276  .false., & ! preserve case
277  .false., & ! layered
278  .false. & ! timeseries
279  )
280 
281  type(inputparamdefinitiontype), parameter :: &
282  swfdisv2d_idomain = inputparamdefinitiontype &
283  ( &
284  'SWF', & ! component
285  'DISV2D', & ! subcomponent
286  'GRIDDATA', & ! block
287  'IDOMAIN', & ! tag name
288  'IDOMAIN', & ! fortran variable
289  'INTEGER1D', & ! type
290  'NODES', & ! shape
291  'idomain existence array', & ! longname
292  .false., & ! required
293  .false., & ! multi-record
294  .false., & ! preserve case
295  .false., & ! layered
296  .false. & ! timeseries
297  )
298 
299  type(inputparamdefinitiontype), parameter :: &
300  swfdisv2d_iv = inputparamdefinitiontype &
301  ( &
302  'SWF', & ! component
303  'DISV2D', & ! subcomponent
304  'VERTICES', & ! block
305  'IV', & ! tag name
306  'IV', & ! fortran variable
307  'INTEGER', & ! type
308  '', & ! shape
309  'vertex number', & ! longname
310  .true., & ! required
311  .true., & ! multi-record
312  .false., & ! preserve case
313  .false., & ! layered
314  .false. & ! timeseries
315  )
316 
317  type(inputparamdefinitiontype), parameter :: &
318  swfdisv2d_xv = inputparamdefinitiontype &
319  ( &
320  'SWF', & ! component
321  'DISV2D', & ! subcomponent
322  'VERTICES', & ! block
323  'XV', & ! tag name
324  'XV', & ! fortran variable
325  'DOUBLE', & ! type
326  '', & ! shape
327  'x-coordinate for vertex', & ! longname
328  .true., & ! required
329  .true., & ! multi-record
330  .false., & ! preserve case
331  .false., & ! layered
332  .false. & ! timeseries
333  )
334 
335  type(inputparamdefinitiontype), parameter :: &
336  swfdisv2d_yv = inputparamdefinitiontype &
337  ( &
338  'SWF', & ! component
339  'DISV2D', & ! subcomponent
340  'VERTICES', & ! block
341  'YV', & ! tag name
342  'YV', & ! fortran variable
343  'DOUBLE', & ! type
344  '', & ! shape
345  'y-coordinate for vertex', & ! longname
346  .true., & ! required
347  .true., & ! multi-record
348  .false., & ! preserve case
349  .false., & ! layered
350  .false. & ! timeseries
351  )
352 
353  type(inputparamdefinitiontype), parameter :: &
354  swfdisv2d_icell2d = inputparamdefinitiontype &
355  ( &
356  'SWF', & ! component
357  'DISV2D', & ! subcomponent
358  'CELL2D', & ! block
359  'ICELL2D', & ! tag name
360  'ICELL2D', & ! fortran variable
361  'INTEGER', & ! type
362  '', & ! shape
363  'cell2d number', & ! longname
364  .true., & ! required
365  .true., & ! multi-record
366  .false., & ! preserve case
367  .false., & ! layered
368  .false. & ! timeseries
369  )
370 
371  type(inputparamdefinitiontype), parameter :: &
372  swfdisv2d_xc = inputparamdefinitiontype &
373  ( &
374  'SWF', & ! component
375  'DISV2D', & ! subcomponent
376  'CELL2D', & ! block
377  'XC', & ! tag name
378  'XC', & ! fortran variable
379  'DOUBLE', & ! type
380  '', & ! shape
381  'x-coordinate for cell center', & ! longname
382  .true., & ! required
383  .true., & ! multi-record
384  .false., & ! preserve case
385  .false., & ! layered
386  .false. & ! timeseries
387  )
388 
389  type(inputparamdefinitiontype), parameter :: &
390  swfdisv2d_yc = inputparamdefinitiontype &
391  ( &
392  'SWF', & ! component
393  'DISV2D', & ! subcomponent
394  'CELL2D', & ! block
395  'YC', & ! tag name
396  'YC', & ! fortran variable
397  'DOUBLE', & ! type
398  '', & ! shape
399  'y-coordinate for cell center', & ! longname
400  .true., & ! required
401  .true., & ! multi-record
402  .false., & ! preserve case
403  .false., & ! layered
404  .false. & ! timeseries
405  )
406 
407  type(inputparamdefinitiontype), parameter :: &
408  swfdisv2d_ncvert = inputparamdefinitiontype &
409  ( &
410  'SWF', & ! component
411  'DISV2D', & ! subcomponent
412  'CELL2D', & ! block
413  'NCVERT', & ! tag name
414  'NCVERT', & ! fortran variable
415  'INTEGER', & ! type
416  '', & ! shape
417  'number of cell vertices', & ! longname
418  .true., & ! required
419  .true., & ! multi-record
420  .false., & ! preserve case
421  .false., & ! layered
422  .false. & ! timeseries
423  )
424 
425  type(inputparamdefinitiontype), parameter :: &
426  swfdisv2d_icvert = inputparamdefinitiontype &
427  ( &
428  'SWF', & ! component
429  'DISV2D', & ! subcomponent
430  'CELL2D', & ! block
431  'ICVERT', & ! tag name
432  'ICVERT', & ! fortran variable
433  'INTEGER1D', & ! type
434  'NCVERT', & ! shape
435  'array of vertex numbers', & ! longname
436  .true., & ! required
437  .true., & ! multi-record
438  .false., & ! preserve case
439  .false., & ! layered
440  .false. & ! timeseries
441  )
442 
443  type(inputparamdefinitiontype), parameter :: &
444  swf_disv2d_param_definitions(*) = &
445  [ &
446  swfdisv2d_length_units, &
447  swfdisv2d_nogrb, &
448  swfdisv2d_grb_filerecord, &
449  swfdisv2d_grb6, &
450  swfdisv2d_fileout, &
451  swfdisv2d_grb6_filename, &
452  swfdisv2d_xorigin, &
453  swfdisv2d_yorigin, &
454  swfdisv2d_angrot, &
455  swfdisv2d_export_ascii, &
456  swfdisv2d_nodes, &
457  swfdisv2d_nvert, &
458  swfdisv2d_bottom, &
459  swfdisv2d_idomain, &
460  swfdisv2d_iv, &
461  swfdisv2d_xv, &
462  swfdisv2d_yv, &
463  swfdisv2d_icell2d, &
464  swfdisv2d_xc, &
465  swfdisv2d_yc, &
466  swfdisv2d_ncvert, &
467  swfdisv2d_icvert &
468  ]
469 
470  type(inputparamdefinitiontype), parameter :: &
471  swfdisv2d_vertices = inputparamdefinitiontype &
472  ( &
473  'SWF', & ! component
474  'DISV2D', & ! subcomponent
475  'VERTICES', & ! block
476  'VERTICES', & ! tag name
477  'VERTICES', & ! fortran variable
478  'RECARRAY IV XV YV', & ! type
479  'NVERT', & ! shape
480  'vertices data', & ! longname
481  .true., & ! required
482  .false., & ! multi-record
483  .false., & ! preserve case
484  .false., & ! layered
485  .false. & ! timeseries
486  )
487 
488  type(inputparamdefinitiontype), parameter :: &
489  swfdisv2d_cell2d = inputparamdefinitiontype &
490  ( &
491  'SWF', & ! component
492  'DISV2D', & ! subcomponent
493  'CELL2D', & ! block
494  'CELL2D', & ! tag name
495  'CELL2D', & ! fortran variable
496  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
497  'NODES', & ! shape
498  'cell2d data', & ! longname
499  .true., & ! required
500  .false., & ! multi-record
501  .false., & ! preserve case
502  .false., & ! layered
503  .false. & ! timeseries
504  )
505 
506  type(inputparamdefinitiontype), parameter :: &
507  swf_disv2d_aggregate_definitions(*) = &
508  [ &
509  swfdisv2d_vertices, &
510  swfdisv2d_cell2d &
511  ]
512 
513  type(inputblockdefinitiontype), parameter :: &
514  swf_disv2d_block_definitions(*) = &
515  [ &
516  inputblockdefinitiontype( &
517  'OPTIONS', & ! blockname
518  .false., & ! required
519  .false., & ! aggregate
520  .false. & ! block_variable
521  ), &
522  inputblockdefinitiontype( &
523  'DIMENSIONS', & ! blockname
524  .true., & ! required
525  .false., & ! aggregate
526  .false. & ! block_variable
527  ), &
528  inputblockdefinitiontype( &
529  'GRIDDATA', & ! blockname
530  .true., & ! required
531  .false., & ! aggregate
532  .false. & ! block_variable
533  ), &
534  inputblockdefinitiontype( &
535  'VERTICES', & ! blockname
536  .true., & ! required
537  .true., & ! aggregate
538  .false. & ! block_variable
539  ), &
540  inputblockdefinitiontype( &
541  'CELL2D', & ! blockname
542  .true., & ! required
543  .true., & ! aggregate
544  .false. & ! block_variable
545  ) &
546  ]
547 
548 end module swfdisv2dinputmodule
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
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7
swfdisv2dinputmodule::swfdisv2d_idomain
type(inputparamdefinitiontype), parameter swfdisv2d_idomain
Definition: swf-disv2didm.f90:281
swfdisv2dinputmodule::swfdisv2d_xorigin
type(inputparamdefinitiontype), parameter swfdisv2d_xorigin
Definition: swf-disv2didm.f90:155
swfdisv2dinputmodule::swfdisv2d_vertices
type(inputparamdefinitiontype), parameter swfdisv2d_vertices
Definition: swf-disv2didm.f90:470
swfdisv2dinputmodule::swfdisv2d_bottom
type(inputparamdefinitiontype), parameter swfdisv2d_bottom
Definition: swf-disv2didm.f90:263
swfdisv2dinputmodule::swfdisv2d_fileout
type(inputparamdefinitiontype), parameter swfdisv2d_fileout
Definition: swf-disv2didm.f90:119
swfdisv2dinputmodule::swfdisv2d_grb6_filename
type(inputparamdefinitiontype), parameter swfdisv2d_grb6_filename
Definition: swf-disv2didm.f90:137
swfdisv2dinputmodule::swfdisv2d_grb6
type(inputparamdefinitiontype), parameter swfdisv2d_grb6
Definition: swf-disv2didm.f90:101
swfdisv2dinputmodule::swfdisv2d_cell2d
type(inputparamdefinitiontype), parameter swfdisv2d_cell2d
Definition: swf-disv2didm.f90:488
swfdisv2dinputmodule::swfdisv2d_grb_filerecord
type(inputparamdefinitiontype), parameter swfdisv2d_grb_filerecord
Definition: swf-disv2didm.f90:83
swfdisv2dinputmodule::swf_disv2d_subpackages
character(len=16), dimension(*), parameter, public swf_disv2d_subpackages
Definition: swf-disv2didm.f90:41
swfdisv2dinputmodule::swfdisv2d_length_units
type(inputparamdefinitiontype), parameter swfdisv2d_length_units
Definition: swf-disv2didm.f90:47
swfdisv2dinputmodule::swf_disv2d_multi_package
logical, public swf_disv2d_multi_package
Definition: swf-disv2didm.f90:39
swfdisv2dinputmodule::swfdisv2d_xc
type(inputparamdefinitiontype), parameter swfdisv2d_xc
Definition: swf-disv2didm.f90:371
swfdisv2dinputmodule::swf_disv2d_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_disv2d_aggregate_definitions
Definition: swf-disv2didm.f90:506
swfdisv2dinputmodule::swfdisv2d_ncvert
type(inputparamdefinitiontype), parameter swfdisv2d_ncvert
Definition: swf-disv2didm.f90:407
swfdisv2dinputmodule::swfdisv2d_export_ascii
type(inputparamdefinitiontype), parameter swfdisv2d_export_ascii
Definition: swf-disv2didm.f90:209
swfdisv2dinputmodule::swfdisv2d_xv
type(inputparamdefinitiontype), parameter swfdisv2d_xv
Definition: swf-disv2didm.f90:317
swfdisv2dinputmodule::swfdisv2d_yv
type(inputparamdefinitiontype), parameter swfdisv2d_yv
Definition: swf-disv2didm.f90:335
swfdisv2dinputmodule::swfdisv2d_iv
type(inputparamdefinitiontype), parameter swfdisv2d_iv
Definition: swf-disv2didm.f90:299
swfdisv2dinputmodule::swfdisv2d_icvert
type(inputparamdefinitiontype), parameter swfdisv2d_icvert
Definition: swf-disv2didm.f90:425
swfdisv2dinputmodule::swfdisv2d_yc
type(inputparamdefinitiontype), parameter swfdisv2d_yc
Definition: swf-disv2didm.f90:389
swfdisv2dinputmodule::swfdisv2d_nodes
type(inputparamdefinitiontype), parameter swfdisv2d_nodes
Definition: swf-disv2didm.f90:227
swfdisv2dinputmodule::swfdisv2d_nvert
type(inputparamdefinitiontype), parameter swfdisv2d_nvert
Definition: swf-disv2didm.f90:245
swfdisv2dinputmodule::swfdisv2d_icell2d
type(inputparamdefinitiontype), parameter swfdisv2d_icell2d
Definition: swf-disv2didm.f90:353
swfdisv2dinputmodule::swf_disv2d_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public swf_disv2d_block_definitions
Definition: swf-disv2didm.f90:513
swfdisv2dinputmodule::swfdisv2d_angrot
type(inputparamdefinitiontype), parameter swfdisv2d_angrot
Definition: swf-disv2didm.f90:191
swfdisv2dinputmodule::swfdisv2d_nogrb
type(inputparamdefinitiontype), parameter swfdisv2d_nogrb
Definition: swf-disv2didm.f90:65
swfdisv2dinputmodule::swf_disv2d_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_disv2d_param_definitions
Definition: swf-disv2didm.f90:443
swfdisv2dinputmodule::swfdisv2d_yorigin
type(inputparamdefinitiontype), parameter swfdisv2d_yorigin
Definition: swf-disv2didm.f90:173