MODFLOW 6  version 6.7.0.dev1
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 :: 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 :: width = .false.
28  logical :: bottom = .false.
29  logical :: idomain = .false.
30  logical :: iv = .false.
31  logical :: xv = .false.
32  logical :: yv = .false.
33  logical :: icell1d = .false.
34  logical :: fdc = .false.
35  logical :: ncvert = .false.
36  logical :: icvert = .false.
37  end type chfdisv1dparamfoundtype
38 
39  logical :: chf_disv1d_multi_package = .false.
40 
41  character(len=16), parameter :: &
42  chf_disv1d_subpackages(*) = &
43  [ &
44  ' ' &
45  ]
46 
47  type(inputparamdefinitiontype), parameter :: &
48  chfdisv1d_length_units = inputparamdefinitiontype &
49  ( &
50  'CHF', & ! component
51  'DISV1D', & ! 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  chfdisv1d_nogrb = inputparamdefinitiontype &
67  ( &
68  'CHF', & ! component
69  'DISV1D', & ! 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  chfdisv1d_grb_filerecord = inputparamdefinitiontype &
85  ( &
86  'CHF', & ! component
87  'DISV1D', & ! 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  chfdisv1d_grb6 = inputparamdefinitiontype &
103  ( &
104  'CHF', & ! component
105  'DISV1D', & ! 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  chfdisv1d_fileout = inputparamdefinitiontype &
121  ( &
122  'CHF', & ! component
123  'DISV1D', & ! 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  chfdisv1d_grb6_filename = inputparamdefinitiontype &
139  ( &
140  'CHF', & ! component
141  'DISV1D', & ! 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  chfdisv1d_xorigin = inputparamdefinitiontype &
157  ( &
158  'CHF', & ! component
159  'DISV1D', & ! subcomponent
160  'OPTIONS', & ! block
161  'XORIGIN', & ! tag name
162  'XORIGIN', & ! fortran variable
163  'DOUBLE', & ! type
164  '', & ! shape
165  'x-position origin of the model grid coordinate system', & ! 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  chfdisv1d_yorigin = inputparamdefinitiontype &
175  ( &
176  'CHF', & ! component
177  'DISV1D', & ! subcomponent
178  'OPTIONS', & ! block
179  'YORIGIN', & ! tag name
180  'YORIGIN', & ! fortran variable
181  'DOUBLE', & ! type
182  '', & ! shape
183  'y-position origin of the model grid coordinate system', & ! 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  chfdisv1d_angrot = inputparamdefinitiontype &
193  ( &
194  'CHF', & ! component
195  'DISV1D', & ! 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  chfdisv1d_export_ascii = inputparamdefinitiontype &
211  ( &
212  'CHF', & ! component
213  'DISV1D', & ! 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  chfdisv1d_nodes = inputparamdefinitiontype &
229  ( &
230  'CHF', & ! component
231  'DISV1D', & ! subcomponent
232  'DIMENSIONS', & ! block
233  'NODES', & ! tag name
234  'NODES', & ! fortran variable
235  'INTEGER', & ! type
236  '', & ! shape
237  'number of linear features', & ! 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  chfdisv1d_nvert = inputparamdefinitiontype &
247  ( &
248  'CHF', & ! component
249  'DISV1D', & ! subcomponent
250  'DIMENSIONS', & ! block
251  'NVERT', & ! tag name
252  'NVERT', & ! fortran variable
253  'INTEGER', & ! type
254  '', & ! shape
255  'number of columns', & ! longname
256  .false., & ! required
257  .false., & ! multi-record
258  .false., & ! preserve case
259  .false., & ! layered
260  .false. & ! timeseries
261  )
262 
263  type(inputparamdefinitiontype), parameter :: &
264  chfdisv1d_width = inputparamdefinitiontype &
265  ( &
266  'CHF', & ! component
267  'DISV1D', & ! subcomponent
268  'GRIDDATA', & ! block
269  'WIDTH', & ! tag name
270  'WIDTH', & ! fortran variable
271  'DOUBLE1D', & ! type
272  'NODES', & ! shape
273  'width', & ! 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  chfdisv1d_bottom = inputparamdefinitiontype &
283  ( &
284  'CHF', & ! component
285  'DISV1D', & ! subcomponent
286  'GRIDDATA', & ! block
287  'BOTTOM', & ! tag name
288  'BOTTOM', & ! fortran variable
289  'DOUBLE1D', & ! type
290  'NODES', & ! shape
291  'bottom elevation for the one-dimensional cell', & ! longname
292  .true., & ! required
293  .false., & ! multi-record
294  .false., & ! preserve case
295  .false., & ! layered
296  .false. & ! timeseries
297  )
298 
299  type(inputparamdefinitiontype), parameter :: &
300  chfdisv1d_idomain = inputparamdefinitiontype &
301  ( &
302  'CHF', & ! component
303  'DISV1D', & ! subcomponent
304  'GRIDDATA', & ! block
305  'IDOMAIN', & ! tag name
306  'IDOMAIN', & ! fortran variable
307  'INTEGER1D', & ! type
308  'NODES', & ! shape
309  'idomain existence array', & ! longname
310  .false., & ! required
311  .false., & ! multi-record
312  .false., & ! preserve case
313  .false., & ! layered
314  .false. & ! timeseries
315  )
316 
317  type(inputparamdefinitiontype), parameter :: &
318  chfdisv1d_iv = inputparamdefinitiontype &
319  ( &
320  'CHF', & ! component
321  'DISV1D', & ! subcomponent
322  'VERTICES', & ! block
323  'IV', & ! tag name
324  'IV', & ! fortran variable
325  'INTEGER', & ! type
326  '', & ! shape
327  'vertex number', & ! 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  chfdisv1d_xv = inputparamdefinitiontype &
337  ( &
338  'CHF', & ! component
339  'DISV1D', & ! subcomponent
340  'VERTICES', & ! block
341  'XV', & ! tag name
342  'XV', & ! fortran variable
343  'DOUBLE', & ! type
344  '', & ! shape
345  'x-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  chfdisv1d_yv = inputparamdefinitiontype &
355  ( &
356  'CHF', & ! component
357  'DISV1D', & ! subcomponent
358  'VERTICES', & ! block
359  'YV', & ! tag name
360  'YV', & ! fortran variable
361  'DOUBLE', & ! type
362  '', & ! shape
363  'y-coordinate for vertex', & ! 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  chfdisv1d_icell1d = inputparamdefinitiontype &
373  ( &
374  'CHF', & ! component
375  'DISV1D', & ! subcomponent
376  'CELL1D', & ! block
377  'ICELL1D', & ! tag name
378  'ICELL1D', & ! fortran variable
379  'INTEGER', & ! type
380  '', & ! shape
381  'cell1d number', & ! 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  chfdisv1d_fdc = inputparamdefinitiontype &
391  ( &
392  'CHF', & ! component
393  'DISV1D', & ! subcomponent
394  'CELL1D', & ! block
395  'FDC', & ! tag name
396  'FDC', & ! fortran variable
397  'DOUBLE', & ! type
398  '', & ! shape
399  'fractional distance to the 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  chfdisv1d_ncvert = inputparamdefinitiontype &
409  ( &
410  'CHF', & ! component
411  'DISV1D', & ! subcomponent
412  'CELL1D', & ! 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  chfdisv1d_icvert = inputparamdefinitiontype &
427  ( &
428  'CHF', & ! component
429  'DISV1D', & ! subcomponent
430  'CELL1D', & ! block
431  'ICVERT', & ! tag name
432  'ICVERT', & ! fortran variable
433  'INTEGER1D', & ! type
434  'NCVERT', & ! shape
435  'number of cell vertices', & ! 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  chf_disv1d_param_definitions(*) = &
445  [ &
446  chfdisv1d_length_units, &
447  chfdisv1d_nogrb, &
448  chfdisv1d_grb_filerecord, &
449  chfdisv1d_grb6, &
450  chfdisv1d_fileout, &
451  chfdisv1d_grb6_filename, &
452  chfdisv1d_xorigin, &
453  chfdisv1d_yorigin, &
454  chfdisv1d_angrot, &
455  chfdisv1d_export_ascii, &
456  chfdisv1d_nodes, &
457  chfdisv1d_nvert, &
458  chfdisv1d_width, &
459  chfdisv1d_bottom, &
460  chfdisv1d_idomain, &
461  chfdisv1d_iv, &
462  chfdisv1d_xv, &
463  chfdisv1d_yv, &
464  chfdisv1d_icell1d, &
465  chfdisv1d_fdc, &
466  chfdisv1d_ncvert, &
467  chfdisv1d_icvert &
468  ]
469 
470  type(inputparamdefinitiontype), parameter :: &
471  chfdisv1d_vertices = inputparamdefinitiontype &
472  ( &
473  'CHF', & ! component
474  'DISV1D', & ! 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  chfdisv1d_cell1d = inputparamdefinitiontype &
490  ( &
491  'CHF', & ! component
492  'DISV1D', & ! subcomponent
493  'CELL1D', & ! block
494  'CELL1D', & ! tag name
495  'CELL1D', & ! fortran variable
496  'RECARRAY ICELL1D FDC NCVERT ICVERT', & ! type
497  'NODES', & ! shape
498  'cell1d 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  chf_disv1d_aggregate_definitions(*) = &
508  [ &
509  chfdisv1d_vertices, &
510  chfdisv1d_cell1d &
511  ]
512 
513  type(inputblockdefinitiontype), parameter :: &
514  chf_disv1d_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  'CELL1D', & ! blockname
542  .true., & ! required
543  .true., & ! aggregate
544  .false. & ! block_variable
545  ) &
546  ]
547 
548 end module chfdisv1dinputmodule
chfdisv1dinputmodule::chf_disv1d_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public chf_disv1d_param_definitions
Definition: chf-disv1didm.f90:443
chfdisv1dinputmodule::chfdisv1d_export_ascii
type(inputparamdefinitiontype), parameter chfdisv1d_export_ascii
Definition: chf-disv1didm.f90:209
chfdisv1dinputmodule::chfdisv1d_grb6
type(inputparamdefinitiontype), parameter chfdisv1d_grb6
Definition: chf-disv1didm.f90:101
chfdisv1dinputmodule::chfdisv1d_icell1d
type(inputparamdefinitiontype), parameter chfdisv1d_icell1d
Definition: chf-disv1didm.f90:371
chfdisv1dinputmodule::chfdisv1d_fileout
type(inputparamdefinitiontype), parameter chfdisv1d_fileout
Definition: chf-disv1didm.f90:119
chfdisv1dinputmodule::chfdisv1d_grb6_filename
type(inputparamdefinitiontype), parameter chfdisv1d_grb6_filename
Definition: chf-disv1didm.f90:137
chfdisv1dinputmodule::chf_disv1d_multi_package
logical, public chf_disv1d_multi_package
Definition: chf-disv1didm.f90:39
chfdisv1dinputmodule::chfdisv1d_fdc
type(inputparamdefinitiontype), parameter chfdisv1d_fdc
Definition: chf-disv1didm.f90:389
chfdisv1dinputmodule::chfdisv1d_iv
type(inputparamdefinitiontype), parameter chfdisv1d_iv
Definition: chf-disv1didm.f90:317
chfdisv1dinputmodule::chfdisv1d_angrot
type(inputparamdefinitiontype), parameter chfdisv1d_angrot
Definition: chf-disv1didm.f90:191
chfdisv1dinputmodule::chfdisv1d_nvert
type(inputparamdefinitiontype), parameter chfdisv1d_nvert
Definition: chf-disv1didm.f90:245
chfdisv1dinputmodule::chf_disv1d_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public chf_disv1d_aggregate_definitions
Definition: chf-disv1didm.f90:506
chfdisv1dinputmodule::chfdisv1d_bottom
type(inputparamdefinitiontype), parameter chfdisv1d_bottom
Definition: chf-disv1didm.f90:281
chfdisv1dinputmodule::chfdisv1d_yv
type(inputparamdefinitiontype), parameter chfdisv1d_yv
Definition: chf-disv1didm.f90:353
chfdisv1dinputmodule::chfdisv1d_nodes
type(inputparamdefinitiontype), parameter chfdisv1d_nodes
Definition: chf-disv1didm.f90:227
chfdisv1dinputmodule::chfdisv1d_ncvert
type(inputparamdefinitiontype), parameter chfdisv1d_ncvert
Definition: chf-disv1didm.f90:407
chfdisv1dinputmodule::chfdisv1d_idomain
type(inputparamdefinitiontype), parameter chfdisv1d_idomain
Definition: chf-disv1didm.f90:299
chfdisv1dinputmodule::chfdisv1d_xv
type(inputparamdefinitiontype), parameter chfdisv1d_xv
Definition: chf-disv1didm.f90:335
chfdisv1dinputmodule::chf_disv1d_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public chf_disv1d_block_definitions
Definition: chf-disv1didm.f90:513
chfdisv1dinputmodule::chfdisv1d_grb_filerecord
type(inputparamdefinitiontype), parameter chfdisv1d_grb_filerecord
Definition: chf-disv1didm.f90:83
chfdisv1dinputmodule::chfdisv1d_xorigin
type(inputparamdefinitiontype), parameter chfdisv1d_xorigin
Definition: chf-disv1didm.f90:155
chfdisv1dinputmodule::chfdisv1d_yorigin
type(inputparamdefinitiontype), parameter chfdisv1d_yorigin
Definition: chf-disv1didm.f90:173
chfdisv1dinputmodule::chfdisv1d_length_units
type(inputparamdefinitiontype), parameter chfdisv1d_length_units
Definition: chf-disv1didm.f90:47
chfdisv1dinputmodule::chfdisv1d_vertices
type(inputparamdefinitiontype), parameter chfdisv1d_vertices
Definition: chf-disv1didm.f90:470
chfdisv1dinputmodule::chfdisv1d_cell1d
type(inputparamdefinitiontype), parameter chfdisv1d_cell1d
Definition: chf-disv1didm.f90:488
chfdisv1dinputmodule::chfdisv1d_width
type(inputparamdefinitiontype), parameter chfdisv1d_width
Definition: chf-disv1didm.f90:263
chfdisv1dinputmodule::chfdisv1d_nogrb
type(inputparamdefinitiontype), parameter chfdisv1d_nogrb
Definition: chf-disv1didm.f90:65
chfdisv1dinputmodule::chf_disv1d_subpackages
character(len=16), dimension(*), parameter, public chf_disv1d_subpackages
Definition: chf-disv1didm.f90:41
chfdisv1dinputmodule::chfdisv1d_icvert
type(inputparamdefinitiontype), parameter chfdisv1d_icvert
Definition: chf-disv1didm.f90:425
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