MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
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 
13  type swfdisv2dparamfoundtype
14  logical :: length_units = .false.
15  logical :: nogrb = .false.
16  logical :: xorigin = .false.
17  logical :: yorigin = .false.
18  logical :: angrot = .false.
19  logical :: export_ascii = .false.
20  logical :: nodes = .false.
21  logical :: nvert = .false.
22  logical :: bottom = .false.
23  logical :: idomain = .false.
24  logical :: iv = .false.
25  logical :: xv = .false.
26  logical :: yv = .false.
27  logical :: icell2d = .false.
28  logical :: xc = .false.
29  logical :: yc = .false.
30  logical :: ncvert = .false.
31  logical :: icvert = .false.
32  end type swfdisv2dparamfoundtype
33 
34  logical :: swf_disv2d_multi_package = .false.
35 
36  type(inputparamdefinitiontype), parameter :: &
37  swfdisv2d_length_units = inputparamdefinitiontype &
38  ( &
39  'SWF', & ! component
40  'DISV2D', & ! subcomponent
41  'OPTIONS', & ! block
42  'LENGTH_UNITS', & ! tag name
43  'LENGTH_UNITS', & ! fortran variable
44  'STRING', & ! type
45  '', & ! shape
46  .false., & ! required
47  .false., & ! multi-record
48  .false., & ! preserve case
49  .false., & ! layered
50  .false. & ! timeseries
51  )
52 
53  type(inputparamdefinitiontype), parameter :: &
54  swfdisv2d_nogrb = inputparamdefinitiontype &
55  ( &
56  'SWF', & ! component
57  'DISV2D', & ! subcomponent
58  'OPTIONS', & ! block
59  'NOGRB', & ! tag name
60  'NOGRB', & ! fortran variable
61  'KEYWORD', & ! type
62  '', & ! shape
63  .false., & ! required
64  .false., & ! multi-record
65  .false., & ! preserve case
66  .false., & ! layered
67  .false. & ! timeseries
68  )
69 
70  type(inputparamdefinitiontype), parameter :: &
71  swfdisv2d_xorigin = inputparamdefinitiontype &
72  ( &
73  'SWF', & ! component
74  'DISV2D', & ! subcomponent
75  'OPTIONS', & ! block
76  'XORIGIN', & ! tag name
77  'XORIGIN', & ! fortran variable
78  'DOUBLE', & ! type
79  '', & ! shape
80  .false., & ! required
81  .false., & ! multi-record
82  .false., & ! preserve case
83  .false., & ! layered
84  .false. & ! timeseries
85  )
86 
87  type(inputparamdefinitiontype), parameter :: &
88  swfdisv2d_yorigin = inputparamdefinitiontype &
89  ( &
90  'SWF', & ! component
91  'DISV2D', & ! subcomponent
92  'OPTIONS', & ! block
93  'YORIGIN', & ! tag name
94  'YORIGIN', & ! fortran variable
95  'DOUBLE', & ! type
96  '', & ! shape
97  .false., & ! required
98  .false., & ! multi-record
99  .false., & ! preserve case
100  .false., & ! layered
101  .false. & ! timeseries
102  )
103 
104  type(inputparamdefinitiontype), parameter :: &
105  swfdisv2d_angrot = inputparamdefinitiontype &
106  ( &
107  'SWF', & ! component
108  'DISV2D', & ! subcomponent
109  'OPTIONS', & ! block
110  'ANGROT', & ! tag name
111  'ANGROT', & ! fortran variable
112  'DOUBLE', & ! type
113  '', & ! shape
114  .false., & ! required
115  .false., & ! multi-record
116  .false., & ! preserve case
117  .false., & ! layered
118  .false. & ! timeseries
119  )
120 
121  type(inputparamdefinitiontype), parameter :: &
122  swfdisv2d_export_ascii = inputparamdefinitiontype &
123  ( &
124  'SWF', & ! component
125  'DISV2D', & ! subcomponent
126  'OPTIONS', & ! block
127  'EXPORT_ARRAY_ASCII', & ! tag name
128  'EXPORT_ASCII', & ! fortran variable
129  'KEYWORD', & ! type
130  '', & ! shape
131  .false., & ! required
132  .false., & ! multi-record
133  .false., & ! preserve case
134  .false., & ! layered
135  .false. & ! timeseries
136  )
137 
138  type(inputparamdefinitiontype), parameter :: &
139  swfdisv2d_nodes = inputparamdefinitiontype &
140  ( &
141  'SWF', & ! component
142  'DISV2D', & ! subcomponent
143  'DIMENSIONS', & ! block
144  'NODES', & ! tag name
145  'NODES', & ! fortran variable
146  'INTEGER', & ! type
147  '', & ! shape
148  .true., & ! required
149  .false., & ! multi-record
150  .false., & ! preserve case
151  .false., & ! layered
152  .false. & ! timeseries
153  )
154 
155  type(inputparamdefinitiontype), parameter :: &
156  swfdisv2d_nvert = inputparamdefinitiontype &
157  ( &
158  'SWF', & ! component
159  'DISV2D', & ! subcomponent
160  'DIMENSIONS', & ! block
161  'NVERT', & ! tag name
162  'NVERT', & ! fortran variable
163  'INTEGER', & ! type
164  '', & ! shape
165  .true., & ! required
166  .false., & ! multi-record
167  .false., & ! preserve case
168  .false., & ! layered
169  .false. & ! timeseries
170  )
171 
172  type(inputparamdefinitiontype), parameter :: &
173  swfdisv2d_bottom = inputparamdefinitiontype &
174  ( &
175  'SWF', & ! component
176  'DISV2D', & ! subcomponent
177  'GRIDDATA', & ! block
178  'BOTTOM', & ! tag name
179  'BOTTOM', & ! fortran variable
180  'DOUBLE1D', & ! type
181  'NODES', & ! shape
182  .true., & ! required
183  .false., & ! multi-record
184  .false., & ! preserve case
185  .false., & ! layered
186  .false. & ! timeseries
187  )
188 
189  type(inputparamdefinitiontype), parameter :: &
190  swfdisv2d_idomain = inputparamdefinitiontype &
191  ( &
192  'SWF', & ! component
193  'DISV2D', & ! subcomponent
194  'GRIDDATA', & ! block
195  'IDOMAIN', & ! tag name
196  'IDOMAIN', & ! fortran variable
197  'INTEGER1D', & ! type
198  'NODES', & ! shape
199  .false., & ! required
200  .false., & ! multi-record
201  .false., & ! preserve case
202  .false., & ! layered
203  .false. & ! timeseries
204  )
205 
206  type(inputparamdefinitiontype), parameter :: &
207  swfdisv2d_iv = inputparamdefinitiontype &
208  ( &
209  'SWF', & ! component
210  'DISV2D', & ! subcomponent
211  'VERTICES', & ! block
212  'IV', & ! tag name
213  'IV', & ! fortran variable
214  'INTEGER', & ! type
215  '', & ! shape
216  .true., & ! required
217  .true., & ! multi-record
218  .false., & ! preserve case
219  .false., & ! layered
220  .false. & ! timeseries
221  )
222 
223  type(inputparamdefinitiontype), parameter :: &
224  swfdisv2d_xv = inputparamdefinitiontype &
225  ( &
226  'SWF', & ! component
227  'DISV2D', & ! subcomponent
228  'VERTICES', & ! block
229  'XV', & ! tag name
230  'XV', & ! fortran variable
231  'DOUBLE', & ! type
232  '', & ! shape
233  .true., & ! required
234  .true., & ! multi-record
235  .false., & ! preserve case
236  .false., & ! layered
237  .false. & ! timeseries
238  )
239 
240  type(inputparamdefinitiontype), parameter :: &
241  swfdisv2d_yv = inputparamdefinitiontype &
242  ( &
243  'SWF', & ! component
244  'DISV2D', & ! subcomponent
245  'VERTICES', & ! block
246  'YV', & ! tag name
247  'YV', & ! fortran variable
248  'DOUBLE', & ! type
249  '', & ! shape
250  .true., & ! required
251  .true., & ! multi-record
252  .false., & ! preserve case
253  .false., & ! layered
254  .false. & ! timeseries
255  )
256 
257  type(inputparamdefinitiontype), parameter :: &
258  swfdisv2d_icell2d = inputparamdefinitiontype &
259  ( &
260  'SWF', & ! component
261  'DISV2D', & ! subcomponent
262  'CELL2D', & ! block
263  'ICELL2D', & ! tag name
264  'ICELL2D', & ! fortran variable
265  'INTEGER', & ! type
266  '', & ! shape
267  .true., & ! required
268  .true., & ! multi-record
269  .false., & ! preserve case
270  .false., & ! layered
271  .false. & ! timeseries
272  )
273 
274  type(inputparamdefinitiontype), parameter :: &
275  swfdisv2d_xc = inputparamdefinitiontype &
276  ( &
277  'SWF', & ! component
278  'DISV2D', & ! subcomponent
279  'CELL2D', & ! block
280  'XC', & ! tag name
281  'XC', & ! fortran variable
282  'DOUBLE', & ! type
283  '', & ! shape
284  .true., & ! required
285  .true., & ! multi-record
286  .false., & ! preserve case
287  .false., & ! layered
288  .false. & ! timeseries
289  )
290 
291  type(inputparamdefinitiontype), parameter :: &
292  swfdisv2d_yc = inputparamdefinitiontype &
293  ( &
294  'SWF', & ! component
295  'DISV2D', & ! subcomponent
296  'CELL2D', & ! block
297  'YC', & ! tag name
298  'YC', & ! fortran variable
299  'DOUBLE', & ! type
300  '', & ! shape
301  .true., & ! required
302  .true., & ! multi-record
303  .false., & ! preserve case
304  .false., & ! layered
305  .false. & ! timeseries
306  )
307 
308  type(inputparamdefinitiontype), parameter :: &
309  swfdisv2d_ncvert = inputparamdefinitiontype &
310  ( &
311  'SWF', & ! component
312  'DISV2D', & ! subcomponent
313  'CELL2D', & ! block
314  'NCVERT', & ! tag name
315  'NCVERT', & ! fortran variable
316  'INTEGER', & ! type
317  '', & ! shape
318  .true., & ! required
319  .true., & ! multi-record
320  .false., & ! preserve case
321  .false., & ! layered
322  .false. & ! timeseries
323  )
324 
325  type(inputparamdefinitiontype), parameter :: &
326  swfdisv2d_icvert = inputparamdefinitiontype &
327  ( &
328  'SWF', & ! component
329  'DISV2D', & ! subcomponent
330  'CELL2D', & ! block
331  'ICVERT', & ! tag name
332  'ICVERT', & ! fortran variable
333  'INTEGER1D', & ! type
334  'NCVERT', & ! shape
335  .true., & ! required
336  .true., & ! multi-record
337  .false., & ! preserve case
338  .false., & ! layered
339  .false. & ! timeseries
340  )
341 
342  type(inputparamdefinitiontype), parameter :: &
343  swf_disv2d_param_definitions(*) = &
344  [ &
345  swfdisv2d_length_units, &
346  swfdisv2d_nogrb, &
347  swfdisv2d_xorigin, &
348  swfdisv2d_yorigin, &
349  swfdisv2d_angrot, &
350  swfdisv2d_export_ascii, &
351  swfdisv2d_nodes, &
352  swfdisv2d_nvert, &
353  swfdisv2d_bottom, &
354  swfdisv2d_idomain, &
355  swfdisv2d_iv, &
356  swfdisv2d_xv, &
357  swfdisv2d_yv, &
358  swfdisv2d_icell2d, &
359  swfdisv2d_xc, &
360  swfdisv2d_yc, &
361  swfdisv2d_ncvert, &
362  swfdisv2d_icvert &
363  ]
364 
365  type(inputparamdefinitiontype), parameter :: &
366  swfdisv2d_vertices = inputparamdefinitiontype &
367  ( &
368  'SWF', & ! component
369  'DISV2D', & ! subcomponent
370  'VERTICES', & ! block
371  'VERTICES', & ! tag name
372  'VERTICES', & ! fortran variable
373  'RECARRAY IV XV YV', & ! type
374  'NVERT', & ! shape
375  .true., & ! required
376  .false., & ! multi-record
377  .false., & ! preserve case
378  .false., & ! layered
379  .false. & ! timeseries
380  )
381 
382  type(inputparamdefinitiontype), parameter :: &
383  swfdisv2d_cell2d = inputparamdefinitiontype &
384  ( &
385  'SWF', & ! component
386  'DISV2D', & ! subcomponent
387  'CELL2D', & ! block
388  'CELL2D', & ! tag name
389  'CELL2D', & ! fortran variable
390  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
391  'NODES', & ! shape
392  .true., & ! required
393  .false., & ! multi-record
394  .false., & ! preserve case
395  .false., & ! layered
396  .false. & ! timeseries
397  )
398 
399  type(inputparamdefinitiontype), parameter :: &
400  swf_disv2d_aggregate_definitions(*) = &
401  [ &
402  swfdisv2d_vertices, &
403  swfdisv2d_cell2d &
404  ]
405 
406  type(inputblockdefinitiontype), parameter :: &
407  swf_disv2d_block_definitions(*) = &
408  [ &
409  inputblockdefinitiontype( &
410  'OPTIONS', & ! blockname
411  .false., & ! required
412  .false., & ! aggregate
413  .false. & ! block_variable
414  ), &
415  inputblockdefinitiontype( &
416  'DIMENSIONS', & ! blockname
417  .true., & ! required
418  .false., & ! aggregate
419  .false. & ! block_variable
420  ), &
421  inputblockdefinitiontype( &
422  'GRIDDATA', & ! blockname
423  .true., & ! required
424  .false., & ! aggregate
425  .false. & ! block_variable
426  ), &
427  inputblockdefinitiontype( &
428  'VERTICES', & ! blockname
429  .true., & ! required
430  .true., & ! aggregate
431  .false. & ! block_variable
432  ), &
433  inputblockdefinitiontype( &
434  'CELL2D', & ! blockname
435  .true., & ! required
436  .true., & ! aggregate
437  .false. & ! block_variable
438  ) &
439  ]
440 
441 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:189
swfdisv2dinputmodule::swfdisv2d_xorigin
type(inputparamdefinitiontype), parameter swfdisv2d_xorigin
Definition: swf-disv2didm.f90:70
swfdisv2dinputmodule::swfdisv2d_vertices
type(inputparamdefinitiontype), parameter swfdisv2d_vertices
Definition: swf-disv2didm.f90:365
swfdisv2dinputmodule::swfdisv2d_bottom
type(inputparamdefinitiontype), parameter swfdisv2d_bottom
Definition: swf-disv2didm.f90:172
swfdisv2dinputmodule::swfdisv2d_cell2d
type(inputparamdefinitiontype), parameter swfdisv2d_cell2d
Definition: swf-disv2didm.f90:382
swfdisv2dinputmodule::swfdisv2d_length_units
type(inputparamdefinitiontype), parameter swfdisv2d_length_units
Definition: swf-disv2didm.f90:36
swfdisv2dinputmodule::swf_disv2d_multi_package
logical, public swf_disv2d_multi_package
Definition: swf-disv2didm.f90:34
swfdisv2dinputmodule::swfdisv2d_xc
type(inputparamdefinitiontype), parameter swfdisv2d_xc
Definition: swf-disv2didm.f90:274
swfdisv2dinputmodule::swf_disv2d_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_disv2d_aggregate_definitions
Definition: swf-disv2didm.f90:399
swfdisv2dinputmodule::swfdisv2d_ncvert
type(inputparamdefinitiontype), parameter swfdisv2d_ncvert
Definition: swf-disv2didm.f90:308
swfdisv2dinputmodule::swfdisv2d_export_ascii
type(inputparamdefinitiontype), parameter swfdisv2d_export_ascii
Definition: swf-disv2didm.f90:121
swfdisv2dinputmodule::swfdisv2d_xv
type(inputparamdefinitiontype), parameter swfdisv2d_xv
Definition: swf-disv2didm.f90:223
swfdisv2dinputmodule::swfdisv2d_yv
type(inputparamdefinitiontype), parameter swfdisv2d_yv
Definition: swf-disv2didm.f90:240
swfdisv2dinputmodule::swfdisv2d_iv
type(inputparamdefinitiontype), parameter swfdisv2d_iv
Definition: swf-disv2didm.f90:206
swfdisv2dinputmodule::swfdisv2d_icvert
type(inputparamdefinitiontype), parameter swfdisv2d_icvert
Definition: swf-disv2didm.f90:325
swfdisv2dinputmodule::swfdisv2d_yc
type(inputparamdefinitiontype), parameter swfdisv2d_yc
Definition: swf-disv2didm.f90:291
swfdisv2dinputmodule::swfdisv2d_nodes
type(inputparamdefinitiontype), parameter swfdisv2d_nodes
Definition: swf-disv2didm.f90:138
swfdisv2dinputmodule::swfdisv2d_nvert
type(inputparamdefinitiontype), parameter swfdisv2d_nvert
Definition: swf-disv2didm.f90:155
swfdisv2dinputmodule::swfdisv2d_icell2d
type(inputparamdefinitiontype), parameter swfdisv2d_icell2d
Definition: swf-disv2didm.f90:257
swfdisv2dinputmodule::swf_disv2d_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public swf_disv2d_block_definitions
Definition: swf-disv2didm.f90:406
swfdisv2dinputmodule::swfdisv2d_angrot
type(inputparamdefinitiontype), parameter swfdisv2d_angrot
Definition: swf-disv2didm.f90:104
swfdisv2dinputmodule::swfdisv2d_nogrb
type(inputparamdefinitiontype), parameter swfdisv2d_nogrb
Definition: swf-disv2didm.f90:53
swfdisv2dinputmodule::swf_disv2d_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_disv2d_param_definitions
Definition: swf-disv2didm.f90:342
swfdisv2dinputmodule::swfdisv2d_yorigin
type(inputparamdefinitiontype), parameter swfdisv2d_yorigin
Definition: swf-disv2didm.f90:87