MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
swf-disv1didm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module swfdisv1dinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public swf_disv1d_param_definitions
8  public swf_disv1d_aggregate_definitions
9  public swf_disv1d_block_definitions
10  public swfdisv1dparamfoundtype
11  public swf_disv1d_multi_package
12  public swf_disv1d_subpackages
13 
14  type swfdisv1dparamfoundtype
15  logical :: length_units = .false.
16  logical :: nogrb = .false.
17  logical :: xorigin = .false.
18  logical :: yorigin = .false.
19  logical :: angrot = .false.
20  logical :: export_ascii = .false.
21  logical :: nodes = .false.
22  logical :: nvert = .false.
23  logical :: length = .false.
24  logical :: width = .false.
25  logical :: bottom = .false.
26  logical :: idomain = .false.
27  logical :: iv = .false.
28  logical :: xv = .false.
29  logical :: yv = .false.
30  logical :: icell2d = .false.
31  logical :: fdc = .false.
32  logical :: ncvert = .false.
33  logical :: icvert = .false.
34  end type swfdisv1dparamfoundtype
35 
36  logical :: swf_disv1d_multi_package = .false.
37 
38  character(len=16), parameter :: &
39  swf_disv1d_subpackages(*) = &
40  [ &
41  ' ' &
42  ]
43 
44  type(inputparamdefinitiontype), parameter :: &
45  swfdisv1d_length_units = inputparamdefinitiontype &
46  ( &
47  'SWF', & ! component
48  'DISV1D', & ! subcomponent
49  'OPTIONS', & ! block
50  'LENGTH_UNITS', & ! tag name
51  'LENGTH_UNITS', & ! fortran variable
52  'STRING', & ! type
53  '', & ! shape
54  'model length units', & ! longname
55  .false., & ! required
56  .false., & ! multi-record
57  .false., & ! preserve case
58  .false., & ! layered
59  .false. & ! timeseries
60  )
61 
62  type(inputparamdefinitiontype), parameter :: &
63  swfdisv1d_nogrb = inputparamdefinitiontype &
64  ( &
65  'SWF', & ! component
66  'DISV1D', & ! subcomponent
67  'OPTIONS', & ! block
68  'NOGRB', & ! tag name
69  'NOGRB', & ! fortran variable
70  'KEYWORD', & ! type
71  '', & ! shape
72  'do not write binary grid file', & ! longname
73  .false., & ! required
74  .false., & ! multi-record
75  .false., & ! preserve case
76  .false., & ! layered
77  .false. & ! timeseries
78  )
79 
80  type(inputparamdefinitiontype), parameter :: &
81  swfdisv1d_xorigin = inputparamdefinitiontype &
82  ( &
83  'SWF', & ! component
84  'DISV1D', & ! subcomponent
85  'OPTIONS', & ! block
86  'XORIGIN', & ! tag name
87  'XORIGIN', & ! fortran variable
88  'DOUBLE', & ! type
89  '', & ! shape
90  'x-position origin of the model grid coordinate system', & ! longname
91  .false., & ! required
92  .false., & ! multi-record
93  .false., & ! preserve case
94  .false., & ! layered
95  .false. & ! timeseries
96  )
97 
98  type(inputparamdefinitiontype), parameter :: &
99  swfdisv1d_yorigin = inputparamdefinitiontype &
100  ( &
101  'SWF', & ! component
102  'DISV1D', & ! subcomponent
103  'OPTIONS', & ! block
104  'YORIGIN', & ! tag name
105  'YORIGIN', & ! fortran variable
106  'DOUBLE', & ! type
107  '', & ! shape
108  'y-position origin of the model grid coordinate system', & ! longname
109  .false., & ! required
110  .false., & ! multi-record
111  .false., & ! preserve case
112  .false., & ! layered
113  .false. & ! timeseries
114  )
115 
116  type(inputparamdefinitiontype), parameter :: &
117  swfdisv1d_angrot = inputparamdefinitiontype &
118  ( &
119  'SWF', & ! component
120  'DISV1D', & ! subcomponent
121  'OPTIONS', & ! block
122  'ANGROT', & ! tag name
123  'ANGROT', & ! fortran variable
124  'DOUBLE', & ! type
125  '', & ! shape
126  'rotation angle', & ! longname
127  .false., & ! required
128  .false., & ! multi-record
129  .false., & ! preserve case
130  .false., & ! layered
131  .false. & ! timeseries
132  )
133 
134  type(inputparamdefinitiontype), parameter :: &
135  swfdisv1d_export_ascii = inputparamdefinitiontype &
136  ( &
137  'SWF', & ! component
138  'DISV1D', & ! subcomponent
139  'OPTIONS', & ! block
140  'EXPORT_ARRAY_ASCII', & ! tag name
141  'EXPORT_ASCII', & ! fortran variable
142  'KEYWORD', & ! type
143  '', & ! shape
144  'export array variables to layered ascii files.', & ! longname
145  .false., & ! required
146  .false., & ! multi-record
147  .false., & ! preserve case
148  .false., & ! layered
149  .false. & ! timeseries
150  )
151 
152  type(inputparamdefinitiontype), parameter :: &
153  swfdisv1d_nodes = inputparamdefinitiontype &
154  ( &
155  'SWF', & ! component
156  'DISV1D', & ! subcomponent
157  'DIMENSIONS', & ! block
158  'NODES', & ! tag name
159  'NODES', & ! fortran variable
160  'INTEGER', & ! type
161  '', & ! shape
162  'number of linear features', & ! longname
163  .true., & ! required
164  .false., & ! multi-record
165  .false., & ! preserve case
166  .false., & ! layered
167  .false. & ! timeseries
168  )
169 
170  type(inputparamdefinitiontype), parameter :: &
171  swfdisv1d_nvert = inputparamdefinitiontype &
172  ( &
173  'SWF', & ! component
174  'DISV1D', & ! subcomponent
175  'DIMENSIONS', & ! block
176  'NVERT', & ! tag name
177  'NVERT', & ! fortran variable
178  'INTEGER', & ! type
179  '', & ! shape
180  'number of columns', & ! longname
181  .false., & ! required
182  .false., & ! multi-record
183  .false., & ! preserve case
184  .false., & ! layered
185  .false. & ! timeseries
186  )
187 
188  type(inputparamdefinitiontype), parameter :: &
189  swfdisv1d_length = inputparamdefinitiontype &
190  ( &
191  'SWF', & ! component
192  'DISV1D', & ! subcomponent
193  'GRIDDATA', & ! block
194  'LENGTH', & ! tag name
195  'LENGTH', & ! fortran variable
196  'DOUBLE1D', & ! type
197  'NODES', & ! shape
198  'length', & ! longname
199  .true., & ! required
200  .false., & ! multi-record
201  .false., & ! preserve case
202  .false., & ! layered
203  .false. & ! timeseries
204  )
205 
206  type(inputparamdefinitiontype), parameter :: &
207  swfdisv1d_width = inputparamdefinitiontype &
208  ( &
209  'SWF', & ! component
210  'DISV1D', & ! subcomponent
211  'GRIDDATA', & ! block
212  'WIDTH', & ! tag name
213  'WIDTH', & ! fortran variable
214  'DOUBLE1D', & ! type
215  'NODES', & ! shape
216  'width', & ! longname
217  .true., & ! required
218  .false., & ! multi-record
219  .false., & ! preserve case
220  .false., & ! layered
221  .false. & ! timeseries
222  )
223 
224  type(inputparamdefinitiontype), parameter :: &
225  swfdisv1d_bottom = inputparamdefinitiontype &
226  ( &
227  'SWF', & ! component
228  'DISV1D', & ! subcomponent
229  'GRIDDATA', & ! block
230  'BOTTOM', & ! tag name
231  'BOTTOM', & ! fortran variable
232  'DOUBLE1D', & ! type
233  'NODES', & ! shape
234  'bottom elevation for the one-dimensional cell', & ! longname
235  .true., & ! required
236  .false., & ! multi-record
237  .false., & ! preserve case
238  .false., & ! layered
239  .false. & ! timeseries
240  )
241 
242  type(inputparamdefinitiontype), parameter :: &
243  swfdisv1d_idomain = inputparamdefinitiontype &
244  ( &
245  'SWF', & ! component
246  'DISV1D', & ! subcomponent
247  'GRIDDATA', & ! block
248  'IDOMAIN', & ! tag name
249  'IDOMAIN', & ! fortran variable
250  'INTEGER1D', & ! type
251  'NODES', & ! shape
252  'idomain existence array', & ! longname
253  .false., & ! required
254  .false., & ! multi-record
255  .false., & ! preserve case
256  .false., & ! layered
257  .false. & ! timeseries
258  )
259 
260  type(inputparamdefinitiontype), parameter :: &
261  swfdisv1d_iv = inputparamdefinitiontype &
262  ( &
263  'SWF', & ! component
264  'DISV1D', & ! subcomponent
265  'VERTICES', & ! block
266  'IV', & ! tag name
267  'IV', & ! fortran variable
268  'INTEGER', & ! type
269  '', & ! shape
270  'vertex number', & ! longname
271  .true., & ! required
272  .true., & ! multi-record
273  .false., & ! preserve case
274  .false., & ! layered
275  .false. & ! timeseries
276  )
277 
278  type(inputparamdefinitiontype), parameter :: &
279  swfdisv1d_xv = inputparamdefinitiontype &
280  ( &
281  'SWF', & ! component
282  'DISV1D', & ! subcomponent
283  'VERTICES', & ! block
284  'XV', & ! tag name
285  'XV', & ! fortran variable
286  'DOUBLE', & ! type
287  '', & ! shape
288  'x-coordinate for vertex', & ! longname
289  .true., & ! required
290  .true., & ! multi-record
291  .false., & ! preserve case
292  .false., & ! layered
293  .false. & ! timeseries
294  )
295 
296  type(inputparamdefinitiontype), parameter :: &
297  swfdisv1d_yv = inputparamdefinitiontype &
298  ( &
299  'SWF', & ! component
300  'DISV1D', & ! subcomponent
301  'VERTICES', & ! block
302  'YV', & ! tag name
303  'YV', & ! fortran variable
304  'DOUBLE', & ! type
305  '', & ! shape
306  'y-coordinate for vertex', & ! longname
307  .true., & ! required
308  .true., & ! multi-record
309  .false., & ! preserve case
310  .false., & ! layered
311  .false. & ! timeseries
312  )
313 
314  type(inputparamdefinitiontype), parameter :: &
315  swfdisv1d_icell2d = inputparamdefinitiontype &
316  ( &
317  'SWF', & ! component
318  'DISV1D', & ! subcomponent
319  'CELL2D', & ! block
320  'ICELL2D', & ! tag name
321  'ICELL2D', & ! fortran variable
322  'INTEGER', & ! type
323  '', & ! shape
324  'cell2d number', & ! longname
325  .true., & ! required
326  .true., & ! multi-record
327  .false., & ! preserve case
328  .false., & ! layered
329  .false. & ! timeseries
330  )
331 
332  type(inputparamdefinitiontype), parameter :: &
333  swfdisv1d_fdc = inputparamdefinitiontype &
334  ( &
335  'SWF', & ! component
336  'DISV1D', & ! subcomponent
337  'CELL2D', & ! block
338  'FDC', & ! tag name
339  'FDC', & ! fortran variable
340  'DOUBLE', & ! type
341  '', & ! shape
342  'fractional distance to the cell center', & ! longname
343  .true., & ! required
344  .true., & ! multi-record
345  .false., & ! preserve case
346  .false., & ! layered
347  .false. & ! timeseries
348  )
349 
350  type(inputparamdefinitiontype), parameter :: &
351  swfdisv1d_ncvert = inputparamdefinitiontype &
352  ( &
353  'SWF', & ! component
354  'DISV1D', & ! subcomponent
355  'CELL2D', & ! block
356  'NCVERT', & ! tag name
357  'NCVERT', & ! fortran variable
358  'INTEGER', & ! type
359  '', & ! shape
360  'number of cell vertices', & ! longname
361  .true., & ! required
362  .true., & ! multi-record
363  .false., & ! preserve case
364  .false., & ! layered
365  .false. & ! timeseries
366  )
367 
368  type(inputparamdefinitiontype), parameter :: &
369  swfdisv1d_icvert = inputparamdefinitiontype &
370  ( &
371  'SWF', & ! component
372  'DISV1D', & ! subcomponent
373  'CELL2D', & ! block
374  'ICVERT', & ! tag name
375  'ICVERT', & ! fortran variable
376  'INTEGER1D', & ! type
377  'NCVERT', & ! shape
378  'number of cell vertices', & ! longname
379  .true., & ! required
380  .true., & ! multi-record
381  .false., & ! preserve case
382  .false., & ! layered
383  .false. & ! timeseries
384  )
385 
386  type(inputparamdefinitiontype), parameter :: &
387  swf_disv1d_param_definitions(*) = &
388  [ &
389  swfdisv1d_length_units, &
390  swfdisv1d_nogrb, &
391  swfdisv1d_xorigin, &
392  swfdisv1d_yorigin, &
393  swfdisv1d_angrot, &
394  swfdisv1d_export_ascii, &
395  swfdisv1d_nodes, &
396  swfdisv1d_nvert, &
397  swfdisv1d_length, &
398  swfdisv1d_width, &
399  swfdisv1d_bottom, &
400  swfdisv1d_idomain, &
401  swfdisv1d_iv, &
402  swfdisv1d_xv, &
403  swfdisv1d_yv, &
404  swfdisv1d_icell2d, &
405  swfdisv1d_fdc, &
406  swfdisv1d_ncvert, &
407  swfdisv1d_icvert &
408  ]
409 
410  type(inputparamdefinitiontype), parameter :: &
411  swfdisv1d_vertices = inputparamdefinitiontype &
412  ( &
413  'SWF', & ! component
414  'DISV1D', & ! subcomponent
415  'VERTICES', & ! block
416  'VERTICES', & ! tag name
417  'VERTICES', & ! fortran variable
418  'RECARRAY IV XV YV', & ! type
419  'NVERT', & ! shape
420  'vertices data', & ! longname
421  .true., & ! required
422  .false., & ! multi-record
423  .false., & ! preserve case
424  .false., & ! layered
425  .false. & ! timeseries
426  )
427 
428  type(inputparamdefinitiontype), parameter :: &
429  swfdisv1d_cell2d = inputparamdefinitiontype &
430  ( &
431  'SWF', & ! component
432  'DISV1D', & ! subcomponent
433  'CELL2D', & ! block
434  'CELL2D', & ! tag name
435  'CELL2D', & ! fortran variable
436  'RECARRAY ICELL2D FDC NCVERT ICVERT', & ! type
437  'NODES', & ! shape
438  'cell2d data', & ! longname
439  .true., & ! required
440  .false., & ! multi-record
441  .false., & ! preserve case
442  .false., & ! layered
443  .false. & ! timeseries
444  )
445 
446  type(inputparamdefinitiontype), parameter :: &
447  swf_disv1d_aggregate_definitions(*) = &
448  [ &
449  swfdisv1d_vertices, &
450  swfdisv1d_cell2d &
451  ]
452 
453  type(inputblockdefinitiontype), parameter :: &
454  swf_disv1d_block_definitions(*) = &
455  [ &
456  inputblockdefinitiontype( &
457  'OPTIONS', & ! blockname
458  .false., & ! required
459  .false., & ! aggregate
460  .false. & ! block_variable
461  ), &
462  inputblockdefinitiontype( &
463  'DIMENSIONS', & ! blockname
464  .true., & ! required
465  .false., & ! aggregate
466  .false. & ! block_variable
467  ), &
468  inputblockdefinitiontype( &
469  'GRIDDATA', & ! blockname
470  .true., & ! required
471  .false., & ! aggregate
472  .false. & ! block_variable
473  ), &
474  inputblockdefinitiontype( &
475  'VERTICES', & ! blockname
476  .true., & ! required
477  .true., & ! aggregate
478  .false. & ! block_variable
479  ), &
480  inputblockdefinitiontype( &
481  'CELL2D', & ! blockname
482  .true., & ! required
483  .true., & ! aggregate
484  .false. & ! block_variable
485  ) &
486  ]
487 
488 end module swfdisv1dinputmodule
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
swfdisv1dinputmodule::swfdisv1d_icell2d
type(inputparamdefinitiontype), parameter swfdisv1d_icell2d
Definition: swf-disv1didm.f90:314
swfdisv1dinputmodule::swf_disv1d_subpackages
character(len=16), dimension(*), parameter, public swf_disv1d_subpackages
Definition: swf-disv1didm.f90:38
swfdisv1dinputmodule::swf_disv1d_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_disv1d_aggregate_definitions
Definition: swf-disv1didm.f90:446
swfdisv1dinputmodule::swfdisv1d_iv
type(inputparamdefinitiontype), parameter swfdisv1d_iv
Definition: swf-disv1didm.f90:260
swfdisv1dinputmodule::swfdisv1d_fdc
type(inputparamdefinitiontype), parameter swfdisv1d_fdc
Definition: swf-disv1didm.f90:332
swfdisv1dinputmodule::swf_disv1d_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public swf_disv1d_block_definitions
Definition: swf-disv1didm.f90:453
swfdisv1dinputmodule::swfdisv1d_bottom
type(inputparamdefinitiontype), parameter swfdisv1d_bottom
Definition: swf-disv1didm.f90:224
swfdisv1dinputmodule::swfdisv1d_nogrb
type(inputparamdefinitiontype), parameter swfdisv1d_nogrb
Definition: swf-disv1didm.f90:62
swfdisv1dinputmodule::swf_disv1d_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_disv1d_param_definitions
Definition: swf-disv1didm.f90:386
swfdisv1dinputmodule::swfdisv1d_length
type(inputparamdefinitiontype), parameter swfdisv1d_length
Definition: swf-disv1didm.f90:188
swfdisv1dinputmodule::swfdisv1d_ncvert
type(inputparamdefinitiontype), parameter swfdisv1d_ncvert
Definition: swf-disv1didm.f90:350
swfdisv1dinputmodule::swfdisv1d_length_units
type(inputparamdefinitiontype), parameter swfdisv1d_length_units
Definition: swf-disv1didm.f90:44
swfdisv1dinputmodule::swfdisv1d_yorigin
type(inputparamdefinitiontype), parameter swfdisv1d_yorigin
Definition: swf-disv1didm.f90:98
swfdisv1dinputmodule::swfdisv1d_vertices
type(inputparamdefinitiontype), parameter swfdisv1d_vertices
Definition: swf-disv1didm.f90:410
swfdisv1dinputmodule::swfdisv1d_export_ascii
type(inputparamdefinitiontype), parameter swfdisv1d_export_ascii
Definition: swf-disv1didm.f90:134
swfdisv1dinputmodule::swfdisv1d_cell2d
type(inputparamdefinitiontype), parameter swfdisv1d_cell2d
Definition: swf-disv1didm.f90:428
swfdisv1dinputmodule::swfdisv1d_width
type(inputparamdefinitiontype), parameter swfdisv1d_width
Definition: swf-disv1didm.f90:206
swfdisv1dinputmodule::swfdisv1d_nodes
type(inputparamdefinitiontype), parameter swfdisv1d_nodes
Definition: swf-disv1didm.f90:152
swfdisv1dinputmodule::swfdisv1d_nvert
type(inputparamdefinitiontype), parameter swfdisv1d_nvert
Definition: swf-disv1didm.f90:170
swfdisv1dinputmodule::swfdisv1d_xorigin
type(inputparamdefinitiontype), parameter swfdisv1d_xorigin
Definition: swf-disv1didm.f90:80
swfdisv1dinputmodule::swfdisv1d_xv
type(inputparamdefinitiontype), parameter swfdisv1d_xv
Definition: swf-disv1didm.f90:278
swfdisv1dinputmodule::swfdisv1d_yv
type(inputparamdefinitiontype), parameter swfdisv1d_yv
Definition: swf-disv1didm.f90:296
swfdisv1dinputmodule::swfdisv1d_idomain
type(inputparamdefinitiontype), parameter swfdisv1d_idomain
Definition: swf-disv1didm.f90:242
swfdisv1dinputmodule::swf_disv1d_multi_package
logical, public swf_disv1d_multi_package
Definition: swf-disv1didm.f90:36
swfdisv1dinputmodule::swfdisv1d_icvert
type(inputparamdefinitiontype), parameter swfdisv1d_icvert
Definition: swf-disv1didm.f90:368
swfdisv1dinputmodule::swfdisv1d_angrot
type(inputparamdefinitiontype), parameter swfdisv1d_angrot
Definition: swf-disv1didm.f90:116