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