MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
olf-disv2didm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
3  use constantsmodule, only: lenvarname
6  private
14 
16  logical :: length_units = .false.
17  logical :: nogrb = .false.
18  logical :: grb_filerecord = .false.
19  logical :: grb6 = .false.
20  logical :: fileout = .false.
21  logical :: grb6_filename = .false.
22  logical :: xorigin = .false.
23  logical :: yorigin = .false.
24  logical :: angrot = .false.
25  logical :: export_ascii = .false.
26  logical :: crs = .false.
27  logical :: nodes = .false.
28  logical :: nvert = .false.
29  logical :: bottom = .false.
30  logical :: idomain = .false.
31  logical :: iv = .false.
32  logical :: xv = .false.
33  logical :: yv = .false.
34  logical :: icell2d = .false.
35  logical :: xc = .false.
36  logical :: yc = .false.
37  logical :: ncvert = .false.
38  logical :: icvert = .false.
40 
41  logical :: olf_disv2d_multi_package = .false.
42  logical :: olf_disv2d_is_advanced = .false.
43 
44  character(len=16), parameter :: &
46  [ &
47  ' ' &
48  ]
49 
50  type(inputparamdefinitiontype), parameter :: &
52  ( &
53  'OLF', & ! component
54  'DISV2D', & ! subcomponent
55  'OPTIONS', & ! block
56  'LENGTH_UNITS', & ! tag name
57  'LENGTH_UNITS', & ! fortran variable
58  'STRING', & ! type
59  '', & ! shape
60  'model length units', & ! longname
61  .false., & ! required
62  .false., & ! developmode
63  .false., & ! multi-record
64  .false., & ! preserve case
65  .false., & ! layered
66  .false. & ! timeseries
67  )
68 
69  type(inputparamdefinitiontype), parameter :: &
71  ( &
72  'OLF', & ! component
73  'DISV2D', & ! subcomponent
74  'OPTIONS', & ! block
75  'NOGRB', & ! tag name
76  'NOGRB', & ! fortran variable
77  'KEYWORD', & ! type
78  '', & ! shape
79  'do not write binary grid file', & ! longname
80  .false., & ! required
81  .false., & ! developmode
82  .false., & ! multi-record
83  .false., & ! preserve case
84  .false., & ! layered
85  .false. & ! timeseries
86  )
87 
88  type(inputparamdefinitiontype), parameter :: &
90  ( &
91  'OLF', & ! component
92  'DISV2D', & ! subcomponent
93  'OPTIONS', & ! block
94  'GRB_FILERECORD', & ! tag name
95  'GRB_FILERECORD', & ! fortran variable
96  'RECORD GRB6 FILEOUT GRB6_FILENAME', & ! type
97  '', & ! shape
98  '', & ! longname
99  .false., & ! required
100  .false., & ! developmode
101  .false., & ! multi-record
102  .false., & ! preserve case
103  .false., & ! layered
104  .false. & ! timeseries
105  )
106 
107  type(inputparamdefinitiontype), parameter :: &
109  ( &
110  'OLF', & ! component
111  'DISV2D', & ! subcomponent
112  'OPTIONS', & ! block
113  'GRB6', & ! tag name
114  'GRB6', & ! fortran variable
115  'KEYWORD', & ! type
116  '', & ! shape
117  'grb keyword', & ! longname
118  .true., & ! required
119  .false., & ! developmode
120  .true., & ! multi-record
121  .false., & ! preserve case
122  .false., & ! layered
123  .false. & ! timeseries
124  )
125 
126  type(inputparamdefinitiontype), parameter :: &
128  ( &
129  'OLF', & ! component
130  'DISV2D', & ! subcomponent
131  'OPTIONS', & ! block
132  'FILEOUT', & ! tag name
133  'FILEOUT', & ! fortran variable
134  'KEYWORD', & ! type
135  '', & ! shape
136  'file keyword', & ! longname
137  .true., & ! required
138  .false., & ! developmode
139  .true., & ! multi-record
140  .false., & ! preserve case
141  .false., & ! layered
142  .false. & ! timeseries
143  )
144 
145  type(inputparamdefinitiontype), parameter :: &
147  ( &
148  'OLF', & ! component
149  'DISV2D', & ! subcomponent
150  'OPTIONS', & ! block
151  'GRB6_FILENAME', & ! tag name
152  'GRB6_FILENAME', & ! fortran variable
153  'STRING', & ! type
154  '', & ! shape
155  'file name of GRB information', & ! longname
156  .true., & ! required
157  .false., & ! developmode
158  .true., & ! multi-record
159  .true., & ! preserve case
160  .false., & ! layered
161  .false. & ! timeseries
162  )
163 
164  type(inputparamdefinitiontype), parameter :: &
166  ( &
167  'OLF', & ! component
168  'DISV2D', & ! subcomponent
169  'OPTIONS', & ! block
170  'XORIGIN', & ! tag name
171  'XORIGIN', & ! fortran variable
172  'DOUBLE', & ! type
173  '', & ! shape
174  'x-position of the model grid origin', & ! longname
175  .false., & ! required
176  .false., & ! developmode
177  .false., & ! multi-record
178  .false., & ! preserve case
179  .false., & ! layered
180  .false. & ! timeseries
181  )
182 
183  type(inputparamdefinitiontype), parameter :: &
185  ( &
186  'OLF', & ! component
187  'DISV2D', & ! subcomponent
188  'OPTIONS', & ! block
189  'YORIGIN', & ! tag name
190  'YORIGIN', & ! fortran variable
191  'DOUBLE', & ! type
192  '', & ! shape
193  'y-position of the model grid origin', & ! longname
194  .false., & ! required
195  .false., & ! developmode
196  .false., & ! multi-record
197  .false., & ! preserve case
198  .false., & ! layered
199  .false. & ! timeseries
200  )
201 
202  type(inputparamdefinitiontype), parameter :: &
204  ( &
205  'OLF', & ! component
206  'DISV2D', & ! subcomponent
207  'OPTIONS', & ! block
208  'ANGROT', & ! tag name
209  'ANGROT', & ! fortran variable
210  'DOUBLE', & ! type
211  '', & ! shape
212  'rotation angle', & ! longname
213  .false., & ! required
214  .false., & ! developmode
215  .false., & ! multi-record
216  .false., & ! preserve case
217  .false., & ! layered
218  .false. & ! timeseries
219  )
220 
221  type(inputparamdefinitiontype), parameter :: &
223  ( &
224  'OLF', & ! component
225  'DISV2D', & ! subcomponent
226  'OPTIONS', & ! block
227  'EXPORT_ARRAY_ASCII', & ! tag name
228  'EXPORT_ASCII', & ! fortran variable
229  'KEYWORD', & ! type
230  '', & ! shape
231  'export array variables to layered ascii files.', & ! longname
232  .false., & ! required
233  .false., & ! developmode
234  .false., & ! multi-record
235  .false., & ! preserve case
236  .false., & ! layered
237  .false. & ! timeseries
238  )
239 
240  type(inputparamdefinitiontype), parameter :: &
242  ( &
243  'OLF', & ! component
244  'DISV2D', & ! subcomponent
245  'OPTIONS', & ! block
246  'CRS', & ! tag name
247  'CRS', & ! fortran variable
248  'STRING', & ! type
249  'LENBIGLINE', & ! shape
250  'CRS user input string', & ! longname
251  .false., & ! required
252  .false., & ! developmode
253  .false., & ! multi-record
254  .true., & ! preserve case
255  .false., & ! layered
256  .false. & ! timeseries
257  )
258 
259  type(inputparamdefinitiontype), parameter :: &
261  ( &
262  'OLF', & ! component
263  'DISV2D', & ! subcomponent
264  'DIMENSIONS', & ! block
265  'NODES', & ! tag name
266  'NODES', & ! fortran variable
267  'INTEGER', & ! type
268  '', & ! shape
269  'number of cells per layer', & ! longname
270  .true., & ! required
271  .false., & ! developmode
272  .false., & ! multi-record
273  .false., & ! preserve case
274  .false., & ! layered
275  .false. & ! timeseries
276  )
277 
278  type(inputparamdefinitiontype), parameter :: &
280  ( &
281  'OLF', & ! component
282  'DISV2D', & ! subcomponent
283  'DIMENSIONS', & ! block
284  'NVERT', & ! tag name
285  'NVERT', & ! fortran variable
286  'INTEGER', & ! type
287  '', & ! shape
288  'number of columns', & ! longname
289  .true., & ! required
290  .false., & ! developmode
291  .false., & ! multi-record
292  .false., & ! preserve case
293  .false., & ! layered
294  .false. & ! timeseries
295  )
296 
297  type(inputparamdefinitiontype), parameter :: &
299  ( &
300  'OLF', & ! component
301  'DISV2D', & ! subcomponent
302  'GRIDDATA', & ! block
303  'BOTTOM', & ! tag name
304  'BOTTOM', & ! fortran variable
305  'DOUBLE1D', & ! type
306  'NODES', & ! shape
307  'model bottom elevation', & ! longname
308  .true., & ! required
309  .false., & ! developmode
310  .false., & ! multi-record
311  .false., & ! preserve case
312  .false., & ! layered
313  .false. & ! timeseries
314  )
315 
316  type(inputparamdefinitiontype), parameter :: &
318  ( &
319  'OLF', & ! component
320  'DISV2D', & ! subcomponent
321  'GRIDDATA', & ! block
322  'IDOMAIN', & ! tag name
323  'IDOMAIN', & ! fortran variable
324  'INTEGER1D', & ! type
325  'NODES', & ! shape
326  'idomain existence array', & ! longname
327  .false., & ! required
328  .false., & ! developmode
329  .false., & ! multi-record
330  .false., & ! preserve case
331  .false., & ! layered
332  .false. & ! timeseries
333  )
334 
335  type(inputparamdefinitiontype), parameter :: &
337  ( &
338  'OLF', & ! component
339  'DISV2D', & ! subcomponent
340  'VERTICES', & ! block
341  'IV', & ! tag name
342  'IV', & ! fortran variable
343  'INTEGER', & ! type
344  '', & ! shape
345  'vertex number', & ! longname
346  .true., & ! required
347  .false., & ! developmode
348  .true., & ! multi-record
349  .false., & ! preserve case
350  .false., & ! layered
351  .false. & ! timeseries
352  )
353 
354  type(inputparamdefinitiontype), parameter :: &
356  ( &
357  'OLF', & ! component
358  'DISV2D', & ! subcomponent
359  'VERTICES', & ! block
360  'XV', & ! tag name
361  'XV', & ! fortran variable
362  'DOUBLE', & ! type
363  '', & ! shape
364  'x-coordinate for vertex', & ! longname
365  .true., & ! required
366  .false., & ! developmode
367  .true., & ! multi-record
368  .false., & ! preserve case
369  .false., & ! layered
370  .false. & ! timeseries
371  )
372 
373  type(inputparamdefinitiontype), parameter :: &
375  ( &
376  'OLF', & ! component
377  'DISV2D', & ! subcomponent
378  'VERTICES', & ! block
379  'YV', & ! tag name
380  'YV', & ! fortran variable
381  'DOUBLE', & ! type
382  '', & ! shape
383  'y-coordinate for vertex', & ! longname
384  .true., & ! required
385  .false., & ! developmode
386  .true., & ! multi-record
387  .false., & ! preserve case
388  .false., & ! layered
389  .false. & ! timeseries
390  )
391 
392  type(inputparamdefinitiontype), parameter :: &
394  ( &
395  'OLF', & ! component
396  'DISV2D', & ! subcomponent
397  'CELL2D', & ! block
398  'ICELL2D', & ! tag name
399  'ICELL2D', & ! fortran variable
400  'INTEGER', & ! type
401  '', & ! shape
402  'cell2d number', & ! longname
403  .true., & ! required
404  .false., & ! developmode
405  .true., & ! multi-record
406  .false., & ! preserve case
407  .false., & ! layered
408  .false. & ! timeseries
409  )
410 
411  type(inputparamdefinitiontype), parameter :: &
413  ( &
414  'OLF', & ! component
415  'DISV2D', & ! subcomponent
416  'CELL2D', & ! block
417  'XC', & ! tag name
418  'XC', & ! fortran variable
419  'DOUBLE', & ! type
420  '', & ! shape
421  'x-coordinate for cell center', & ! longname
422  .true., & ! required
423  .false., & ! developmode
424  .true., & ! multi-record
425  .false., & ! preserve case
426  .false., & ! layered
427  .false. & ! timeseries
428  )
429 
430  type(inputparamdefinitiontype), parameter :: &
432  ( &
433  'OLF', & ! component
434  'DISV2D', & ! subcomponent
435  'CELL2D', & ! block
436  'YC', & ! tag name
437  'YC', & ! fortran variable
438  'DOUBLE', & ! type
439  '', & ! shape
440  'y-coordinate for cell center', & ! longname
441  .true., & ! required
442  .false., & ! developmode
443  .true., & ! multi-record
444  .false., & ! preserve case
445  .false., & ! layered
446  .false. & ! timeseries
447  )
448 
449  type(inputparamdefinitiontype), parameter :: &
451  ( &
452  'OLF', & ! component
453  'DISV2D', & ! subcomponent
454  'CELL2D', & ! block
455  'NCVERT', & ! tag name
456  'NCVERT', & ! fortran variable
457  'INTEGER', & ! type
458  '', & ! shape
459  'number of cell vertices', & ! longname
460  .true., & ! required
461  .false., & ! developmode
462  .true., & ! multi-record
463  .false., & ! preserve case
464  .false., & ! layered
465  .false. & ! timeseries
466  )
467 
468  type(inputparamdefinitiontype), parameter :: &
470  ( &
471  'OLF', & ! component
472  'DISV2D', & ! subcomponent
473  'CELL2D', & ! block
474  'ICVERT', & ! tag name
475  'ICVERT', & ! fortran variable
476  'INTEGER1D', & ! type
477  'NCVERT', & ! shape
478  'array of vertex numbers', & ! longname
479  .true., & ! required
480  .false., & ! developmode
481  .true., & ! multi-record
482  .false., & ! preserve case
483  .false., & ! layered
484  .false. & ! timeseries
485  )
486 
487  type(inputparamdefinitiontype), parameter :: &
489  [ &
491  olfdisv2d_nogrb, &
493  olfdisv2d_grb6, &
500  olfdisv2d_crs, &
501  olfdisv2d_nodes, &
502  olfdisv2d_nvert, &
505  olfdisv2d_iv, &
506  olfdisv2d_xv, &
507  olfdisv2d_yv, &
509  olfdisv2d_xc, &
510  olfdisv2d_yc, &
513  ]
514 
515  type(inputparamdefinitiontype), parameter :: &
517  ( &
518  'OLF', & ! component
519  'DISV2D', & ! subcomponent
520  'VERTICES', & ! block
521  'VERTICES', & ! tag name
522  'VERTICES', & ! fortran variable
523  'RECARRAY IV XV YV', & ! type
524  'NVERT', & ! shape
525  'vertices data', & ! longname
526  .true., & ! required
527  .false., & ! developmode
528  .false., & ! multi-record
529  .false., & ! preserve case
530  .false., & ! layered
531  .false. & ! timeseries
532  )
533 
534  type(inputparamdefinitiontype), parameter :: &
536  ( &
537  'OLF', & ! component
538  'DISV2D', & ! subcomponent
539  'CELL2D', & ! block
540  'CELL2D', & ! tag name
541  'CELL2D', & ! fortran variable
542  'RECARRAY ICELL2D XC YC NCVERT ICVERT', & ! type
543  'NODES', & ! shape
544  'cell2d data', & ! longname
545  .true., & ! required
546  .false., & ! developmode
547  .false., & ! multi-record
548  .false., & ! preserve case
549  .false., & ! layered
550  .false. & ! timeseries
551  )
552 
553  type(inputparamdefinitiontype), parameter :: &
555  [ &
558  ]
559 
560  type(inputblockdefinitiontype), parameter :: &
562  [ &
564  'OPTIONS', & ! blockname
565  .false., & ! required
566  .false., & ! aggregate
567  .false. & ! block_variable
568  ), &
570  'DIMENSIONS', & ! blockname
571  .true., & ! required
572  .false., & ! aggregate
573  .false. & ! block_variable
574  ), &
576  'GRIDDATA', & ! blockname
577  .true., & ! required
578  .false., & ! aggregate
579  .false. & ! block_variable
580  ), &
582  'VERTICES', & ! blockname
583  .true., & ! required
584  .true., & ! aggregate
585  .false. & ! block_variable
586  ), &
588  'CELL2D', & ! blockname
589  .true., & ! required
590  .true., & ! aggregate
591  .false. & ! block_variable
592  ) &
593  ]
594 
595 end module olfdisv2dinputmodule
This module contains simulation constants.
Definition: Constants.f90:9
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
Input definition module.
type(inputparamdefinitiontype), parameter olfdisv2d_angrot
type(inputparamdefinitiontype), parameter olfdisv2d_ncvert
type(inputparamdefinitiontype), dimension(*), parameter, public olf_disv2d_param_definitions
type(inputparamdefinitiontype), parameter olfdisv2d_length_units
type(inputparamdefinitiontype), parameter olfdisv2d_yc
type(inputparamdefinitiontype), parameter olfdisv2d_grb6_filename
logical, public olf_disv2d_multi_package
type(inputparamdefinitiontype), parameter olfdisv2d_nodes
type(inputparamdefinitiontype), parameter olfdisv2d_grb_filerecord
type(inputblockdefinitiontype), dimension(*), parameter, public olf_disv2d_block_definitions
type(inputparamdefinitiontype), parameter olfdisv2d_xv
type(inputparamdefinitiontype), parameter olfdisv2d_nogrb
character(len=16), dimension(*), parameter, public olf_disv2d_subpackages
type(inputparamdefinitiontype), parameter olfdisv2d_icell2d
type(inputparamdefinitiontype), parameter olfdisv2d_nvert
type(inputparamdefinitiontype), parameter olfdisv2d_xc
type(inputparamdefinitiontype), parameter olfdisv2d_yorigin
type(inputparamdefinitiontype), parameter olfdisv2d_idomain
type(inputparamdefinitiontype), parameter olfdisv2d_grb6
type(inputparamdefinitiontype), dimension(*), parameter, public olf_disv2d_aggregate_definitions
type(inputparamdefinitiontype), parameter olfdisv2d_iv
type(inputparamdefinitiontype), parameter olfdisv2d_crs
type(inputparamdefinitiontype), parameter olfdisv2d_vertices
logical, public olf_disv2d_is_advanced
type(inputparamdefinitiontype), parameter olfdisv2d_yv
type(inputparamdefinitiontype), parameter olfdisv2d_cell2d
type(inputparamdefinitiontype), parameter olfdisv2d_bottom
type(inputparamdefinitiontype), parameter olfdisv2d_fileout
type(inputparamdefinitiontype), parameter olfdisv2d_icvert
type(inputparamdefinitiontype), parameter olfdisv2d_export_ascii
type(inputparamdefinitiontype), parameter olfdisv2d_xorigin
Input block definition. Describes an input block.
Input parameter definition. Describes an input parameter.