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