MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
gwf-drnidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfdrninputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_drn_param_definitions
8  public gwf_drn_aggregate_definitions
9  public gwf_drn_block_definitions
10  public gwfdrnparamfoundtype
11  public gwf_drn_multi_package
12  public gwf_drn_is_advanced
13  public gwf_drn_subpackages
14 
15  type gwfdrnparamfoundtype
16  logical :: auxiliary = .false.
17  logical :: auxmultname = .false.
18  logical :: auxdepthname = .false.
19  logical :: boundnames = .false.
20  logical :: iprpak = .false.
21  logical :: iprflow = .false.
22  logical :: ipakcb = .false.
23  logical :: ts_filerecord = .false.
24  logical :: ts6 = .false.
25  logical :: filein = .false.
26  logical :: ts6_filename = .false.
27  logical :: obs_filerecord = .false.
28  logical :: obs6 = .false.
29  logical :: obs6_filename = .false.
30  logical :: mover = .false.
31  logical :: icubicsfac = .false.
32  logical :: maxbound = .false.
33  logical :: cellid = .false.
34  logical :: elev = .false.
35  logical :: cond = .false.
36  logical :: auxvar = .false.
37  logical :: boundname = .false.
38  end type gwfdrnparamfoundtype
39 
40  logical :: gwf_drn_multi_package = .true.
41  logical :: gwf_drn_is_advanced = .false.
42 
43  character(len=16), parameter :: &
44  gwf_drn_subpackages(*) = &
45  [ &
46  ' ' &
47  ]
48 
49  type(inputparamdefinitiontype), parameter :: &
50  gwfdrn_auxiliary = inputparamdefinitiontype &
51  ( &
52  'GWF', & ! component
53  'DRN', & ! subcomponent
54  'OPTIONS', & ! block
55  'AUXILIARY', & ! tag name
56  'AUXILIARY', & ! fortran variable
57  'STRING', & ! type
58  'NAUX', & ! shape
59  'keyword to specify aux variables', & ! longname
60  .false., & ! required
61  .false., & ! developmode
62  .false., & ! multi-record
63  .false., & ! preserve case
64  .false., & ! layered
65  .false. & ! timeseries
66  )
67 
68  type(inputparamdefinitiontype), parameter :: &
69  gwfdrn_auxmultname = inputparamdefinitiontype &
70  ( &
71  'GWF', & ! component
72  'DRN', & ! subcomponent
73  'OPTIONS', & ! block
74  'AUXMULTNAME', & ! tag name
75  'AUXMULTNAME', & ! fortran variable
76  'STRING', & ! type
77  '', & ! shape
78  'name of auxiliary variable for multiplier', & ! longname
79  .false., & ! required
80  .false., & ! developmode
81  .false., & ! multi-record
82  .false., & ! preserve case
83  .false., & ! layered
84  .false. & ! timeseries
85  )
86 
87  type(inputparamdefinitiontype), parameter :: &
88  gwfdrn_auxdepthname = inputparamdefinitiontype &
89  ( &
90  'GWF', & ! component
91  'DRN', & ! subcomponent
92  'OPTIONS', & ! block
93  'AUXDEPTHNAME', & ! tag name
94  'AUXDEPTHNAME', & ! fortran variable
95  'STRING', & ! type
96  '', & ! shape
97  'name of auxiliary variable for drainage depth', & ! longname
98  .false., & ! required
99  .false., & ! developmode
100  .false., & ! multi-record
101  .false., & ! preserve case
102  .false., & ! layered
103  .false. & ! timeseries
104  )
105 
106  type(inputparamdefinitiontype), parameter :: &
107  gwfdrn_boundnames = inputparamdefinitiontype &
108  ( &
109  'GWF', & ! component
110  'DRN', & ! subcomponent
111  'OPTIONS', & ! block
112  'BOUNDNAMES', & ! tag name
113  'BOUNDNAMES', & ! fortran variable
114  'KEYWORD', & ! type
115  '', & ! shape
116  '', & ! longname
117  .false., & ! required
118  .false., & ! developmode
119  .false., & ! multi-record
120  .false., & ! preserve case
121  .false., & ! layered
122  .false. & ! timeseries
123  )
124 
125  type(inputparamdefinitiontype), parameter :: &
126  gwfdrn_iprpak = inputparamdefinitiontype &
127  ( &
128  'GWF', & ! component
129  'DRN', & ! subcomponent
130  'OPTIONS', & ! block
131  'PRINT_INPUT', & ! tag name
132  'IPRPAK', & ! fortran variable
133  'KEYWORD', & ! type
134  '', & ! shape
135  'print input to listing file', & ! longname
136  .false., & ! required
137  .false., & ! developmode
138  .false., & ! multi-record
139  .false., & ! preserve case
140  .false., & ! layered
141  .false. & ! timeseries
142  )
143 
144  type(inputparamdefinitiontype), parameter :: &
145  gwfdrn_iprflow = inputparamdefinitiontype &
146  ( &
147  'GWF', & ! component
148  'DRN', & ! subcomponent
149  'OPTIONS', & ! block
150  'PRINT_FLOWS', & ! tag name
151  'IPRFLOW', & ! fortran variable
152  'KEYWORD', & ! type
153  '', & ! shape
154  'print calculated flows to listing file', & ! longname
155  .false., & ! required
156  .false., & ! developmode
157  .false., & ! multi-record
158  .false., & ! preserve case
159  .false., & ! layered
160  .false. & ! timeseries
161  )
162 
163  type(inputparamdefinitiontype), parameter :: &
164  gwfdrn_ipakcb = inputparamdefinitiontype &
165  ( &
166  'GWF', & ! component
167  'DRN', & ! subcomponent
168  'OPTIONS', & ! block
169  'SAVE_FLOWS', & ! tag name
170  'IPAKCB', & ! fortran variable
171  'KEYWORD', & ! type
172  '', & ! shape
173  'save DRN flows to budget file', & ! longname
174  .false., & ! required
175  .false., & ! developmode
176  .false., & ! multi-record
177  .false., & ! preserve case
178  .false., & ! layered
179  .false. & ! timeseries
180  )
181 
182  type(inputparamdefinitiontype), parameter :: &
183  gwfdrn_ts_filerecord = inputparamdefinitiontype &
184  ( &
185  'GWF', & ! component
186  'DRN', & ! subcomponent
187  'OPTIONS', & ! block
188  'TS_FILERECORD', & ! tag name
189  'TS_FILERECORD', & ! fortran variable
190  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
191  '', & ! shape
192  '', & ! longname
193  .false., & ! required
194  .false., & ! developmode
195  .false., & ! multi-record
196  .false., & ! preserve case
197  .false., & ! layered
198  .false. & ! timeseries
199  )
200 
201  type(inputparamdefinitiontype), parameter :: &
202  gwfdrn_ts6 = inputparamdefinitiontype &
203  ( &
204  'GWF', & ! component
205  'DRN', & ! subcomponent
206  'OPTIONS', & ! block
207  'TS6', & ! tag name
208  'TS6', & ! fortran variable
209  'KEYWORD', & ! type
210  '', & ! shape
211  'head keyword', & ! longname
212  .true., & ! required
213  .false., & ! developmode
214  .true., & ! multi-record
215  .false., & ! preserve case
216  .false., & ! layered
217  .false. & ! timeseries
218  )
219 
220  type(inputparamdefinitiontype), parameter :: &
221  gwfdrn_filein = inputparamdefinitiontype &
222  ( &
223  'GWF', & ! component
224  'DRN', & ! subcomponent
225  'OPTIONS', & ! block
226  'FILEIN', & ! tag name
227  'FILEIN', & ! fortran variable
228  'KEYWORD', & ! type
229  '', & ! shape
230  'file keyword', & ! longname
231  .true., & ! required
232  .false., & ! developmode
233  .true., & ! multi-record
234  .false., & ! preserve case
235  .false., & ! layered
236  .false. & ! timeseries
237  )
238 
239  type(inputparamdefinitiontype), parameter :: &
240  gwfdrn_ts6_filename = inputparamdefinitiontype &
241  ( &
242  'GWF', & ! component
243  'DRN', & ! subcomponent
244  'OPTIONS', & ! block
245  'TS6_FILENAME', & ! tag name
246  'TS6_FILENAME', & ! fortran variable
247  'STRING', & ! type
248  '', & ! shape
249  'file name of time series information', & ! longname
250  .true., & ! required
251  .false., & ! developmode
252  .true., & ! multi-record
253  .true., & ! preserve case
254  .false., & ! layered
255  .false. & ! timeseries
256  )
257 
258  type(inputparamdefinitiontype), parameter :: &
259  gwfdrn_obs_filerecord = inputparamdefinitiontype &
260  ( &
261  'GWF', & ! component
262  'DRN', & ! subcomponent
263  'OPTIONS', & ! block
264  'OBS_FILERECORD', & ! tag name
265  'OBS_FILERECORD', & ! fortran variable
266  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
267  '', & ! shape
268  '', & ! longname
269  .false., & ! required
270  .false., & ! developmode
271  .false., & ! multi-record
272  .false., & ! preserve case
273  .false., & ! layered
274  .false. & ! timeseries
275  )
276 
277  type(inputparamdefinitiontype), parameter :: &
278  gwfdrn_obs6 = inputparamdefinitiontype &
279  ( &
280  'GWF', & ! component
281  'DRN', & ! subcomponent
282  'OPTIONS', & ! block
283  'OBS6', & ! tag name
284  'OBS6', & ! fortran variable
285  'KEYWORD', & ! type
286  '', & ! shape
287  'obs keyword', & ! longname
288  .true., & ! required
289  .false., & ! developmode
290  .true., & ! multi-record
291  .false., & ! preserve case
292  .false., & ! layered
293  .false. & ! timeseries
294  )
295 
296  type(inputparamdefinitiontype), parameter :: &
297  gwfdrn_obs6_filename = inputparamdefinitiontype &
298  ( &
299  'GWF', & ! component
300  'DRN', & ! subcomponent
301  'OPTIONS', & ! block
302  'OBS6_FILENAME', & ! tag name
303  'OBS6_FILENAME', & ! fortran variable
304  'STRING', & ! type
305  '', & ! shape
306  'obs6 input filename', & ! longname
307  .true., & ! required
308  .false., & ! developmode
309  .true., & ! multi-record
310  .true., & ! preserve case
311  .false., & ! layered
312  .false. & ! timeseries
313  )
314 
315  type(inputparamdefinitiontype), parameter :: &
316  gwfdrn_mover = inputparamdefinitiontype &
317  ( &
318  'GWF', & ! component
319  'DRN', & ! subcomponent
320  'OPTIONS', & ! block
321  'MOVER', & ! tag name
322  'MOVER', & ! fortran variable
323  'KEYWORD', & ! type
324  '', & ! shape
325  '', & ! longname
326  .false., & ! required
327  .false., & ! developmode
328  .false., & ! multi-record
329  .false., & ! preserve case
330  .false., & ! layered
331  .false. & ! timeseries
332  )
333 
334  type(inputparamdefinitiontype), parameter :: &
335  gwfdrn_icubicsfac = inputparamdefinitiontype &
336  ( &
337  'GWF', & ! component
338  'DRN', & ! subcomponent
339  'OPTIONS', & ! block
340  'DEV_CUBIC_SCALING', & ! tag name
341  'ICUBICSFAC', & ! fortran variable
342  'KEYWORD', & ! type
343  '', & ! shape
344  'cubic-scaling', & ! longname
345  .false., & ! required
346  .false., & ! developmode
347  .false., & ! multi-record
348  .false., & ! preserve case
349  .false., & ! layered
350  .false. & ! timeseries
351  )
352 
353  type(inputparamdefinitiontype), parameter :: &
354  gwfdrn_maxbound = inputparamdefinitiontype &
355  ( &
356  'GWF', & ! component
357  'DRN', & ! subcomponent
358  'DIMENSIONS', & ! block
359  'MAXBOUND', & ! tag name
360  'MAXBOUND', & ! fortran variable
361  'INTEGER', & ! type
362  '', & ! shape
363  'maximum number of drains', & ! longname
364  .true., & ! required
365  .false., & ! developmode
366  .false., & ! multi-record
367  .false., & ! preserve case
368  .false., & ! layered
369  .false. & ! timeseries
370  )
371 
372  type(inputparamdefinitiontype), parameter :: &
373  gwfdrn_cellid = inputparamdefinitiontype &
374  ( &
375  'GWF', & ! component
376  'DRN', & ! subcomponent
377  'PERIOD', & ! block
378  'CELLID', & ! tag name
379  'CELLID', & ! fortran variable
380  'INTEGER1D', & ! type
381  'NCELLDIM', & ! shape
382  'cell identifier', & ! longname
383  .true., & ! required
384  .false., & ! developmode
385  .true., & ! multi-record
386  .false., & ! preserve case
387  .false., & ! layered
388  .false. & ! timeseries
389  )
390 
391  type(inputparamdefinitiontype), parameter :: &
392  gwfdrn_elev = inputparamdefinitiontype &
393  ( &
394  'GWF', & ! component
395  'DRN', & ! subcomponent
396  'PERIOD', & ! block
397  'ELEV', & ! tag name
398  'ELEV', & ! fortran variable
399  'DOUBLE', & ! type
400  '', & ! shape
401  'drain elevation', & ! longname
402  .true., & ! required
403  .false., & ! developmode
404  .true., & ! multi-record
405  .false., & ! preserve case
406  .false., & ! layered
407  .true. & ! timeseries
408  )
409 
410  type(inputparamdefinitiontype), parameter :: &
411  gwfdrn_cond = inputparamdefinitiontype &
412  ( &
413  'GWF', & ! component
414  'DRN', & ! subcomponent
415  'PERIOD', & ! block
416  'COND', & ! tag name
417  'COND', & ! fortran variable
418  'DOUBLE', & ! type
419  '', & ! shape
420  'drain conductance', & ! longname
421  .true., & ! required
422  .false., & ! developmode
423  .true., & ! multi-record
424  .false., & ! preserve case
425  .false., & ! layered
426  .true. & ! timeseries
427  )
428 
429  type(inputparamdefinitiontype), parameter :: &
430  gwfdrn_auxvar = inputparamdefinitiontype &
431  ( &
432  'GWF', & ! component
433  'DRN', & ! subcomponent
434  'PERIOD', & ! block
435  'AUX', & ! tag name
436  'AUXVAR', & ! fortran variable
437  'DOUBLE1D', & ! type
438  'NAUX', & ! shape
439  'auxiliary variables', & ! longname
440  .false., & ! required
441  .false., & ! developmode
442  .true., & ! multi-record
443  .false., & ! preserve case
444  .false., & ! layered
445  .true. & ! timeseries
446  )
447 
448  type(inputparamdefinitiontype), parameter :: &
449  gwfdrn_boundname = inputparamdefinitiontype &
450  ( &
451  'GWF', & ! component
452  'DRN', & ! subcomponent
453  'PERIOD', & ! block
454  'BOUNDNAME', & ! tag name
455  'BOUNDNAME', & ! fortran variable
456  'STRING', & ! type
457  '', & ! shape
458  'drain name', & ! longname
459  .false., & ! required
460  .false., & ! developmode
461  .true., & ! multi-record
462  .false., & ! preserve case
463  .false., & ! layered
464  .false. & ! timeseries
465  )
466 
467  type(inputparamdefinitiontype), parameter :: &
468  gwf_drn_param_definitions(*) = &
469  [ &
470  gwfdrn_auxiliary, &
471  gwfdrn_auxmultname, &
472  gwfdrn_auxdepthname, &
473  gwfdrn_boundnames, &
474  gwfdrn_iprpak, &
475  gwfdrn_iprflow, &
476  gwfdrn_ipakcb, &
477  gwfdrn_ts_filerecord, &
478  gwfdrn_ts6, &
479  gwfdrn_filein, &
480  gwfdrn_ts6_filename, &
481  gwfdrn_obs_filerecord, &
482  gwfdrn_obs6, &
483  gwfdrn_obs6_filename, &
484  gwfdrn_mover, &
485  gwfdrn_icubicsfac, &
486  gwfdrn_maxbound, &
487  gwfdrn_cellid, &
488  gwfdrn_elev, &
489  gwfdrn_cond, &
490  gwfdrn_auxvar, &
491  gwfdrn_boundname &
492  ]
493 
494  type(inputparamdefinitiontype), parameter :: &
495  gwfdrn_spd = inputparamdefinitiontype &
496  ( &
497  'GWF', & ! component
498  'DRN', & ! subcomponent
499  'PERIOD', & ! block
500  'STRESS_PERIOD_DATA', & ! tag name
501  'SPD', & ! fortran variable
502  'RECARRAY CELLID ELEV COND AUX BOUNDNAME', & ! type
503  'MAXBOUND', & ! shape
504  '', & ! longname
505  .true., & ! required
506  .false., & ! developmode
507  .false., & ! multi-record
508  .false., & ! preserve case
509  .false., & ! layered
510  .false. & ! timeseries
511  )
512 
513  type(inputparamdefinitiontype), parameter :: &
514  gwf_drn_aggregate_definitions(*) = &
515  [ &
516  gwfdrn_spd &
517  ]
518 
519  type(inputblockdefinitiontype), parameter :: &
520  gwf_drn_block_definitions(*) = &
521  [ &
522  inputblockdefinitiontype( &
523  'OPTIONS', & ! blockname
524  .false., & ! required
525  .false., & ! aggregate
526  .false. & ! block_variable
527  ), &
528  inputblockdefinitiontype( &
529  'DIMENSIONS', & ! blockname
530  .true., & ! required
531  .false., & ! aggregate
532  .false. & ! block_variable
533  ), &
534  inputblockdefinitiontype( &
535  'PERIOD', & ! blockname
536  .true., & ! required
537  .true., & ! aggregate
538  .true. & ! block_variable
539  ) &
540  ]
541 
542 end module gwfdrninputmodule
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
gwfdrninputmodule::gwfdrn_cond
type(inputparamdefinitiontype), parameter gwfdrn_cond
Definition: gwf-drnidm.f90:410
gwfdrninputmodule::gwfdrn_mover
type(inputparamdefinitiontype), parameter gwfdrn_mover
Definition: gwf-drnidm.f90:315
gwfdrninputmodule::gwfdrn_auxvar
type(inputparamdefinitiontype), parameter gwfdrn_auxvar
Definition: gwf-drnidm.f90:429
gwfdrninputmodule::gwfdrn_auxiliary
type(inputparamdefinitiontype), parameter gwfdrn_auxiliary
Definition: gwf-drnidm.f90:49
gwfdrninputmodule::gwfdrn_auxdepthname
type(inputparamdefinitiontype), parameter gwfdrn_auxdepthname
Definition: gwf-drnidm.f90:87
gwfdrninputmodule::gwfdrn_iprflow
type(inputparamdefinitiontype), parameter gwfdrn_iprflow
Definition: gwf-drnidm.f90:144
gwfdrninputmodule::gwf_drn_multi_package
logical, public gwf_drn_multi_package
Definition: gwf-drnidm.f90:40
gwfdrninputmodule::gwfdrn_cellid
type(inputparamdefinitiontype), parameter gwfdrn_cellid
Definition: gwf-drnidm.f90:372
gwfdrninputmodule::gwfdrn_spd
type(inputparamdefinitiontype), parameter gwfdrn_spd
Definition: gwf-drnidm.f90:494
gwfdrninputmodule::gwfdrn_filein
type(inputparamdefinitiontype), parameter gwfdrn_filein
Definition: gwf-drnidm.f90:220
gwfdrninputmodule::gwfdrn_obs6
type(inputparamdefinitiontype), parameter gwfdrn_obs6
Definition: gwf-drnidm.f90:277
gwfdrninputmodule::gwfdrn_elev
type(inputparamdefinitiontype), parameter gwfdrn_elev
Definition: gwf-drnidm.f90:391
gwfdrninputmodule::gwfdrn_boundnames
type(inputparamdefinitiontype), parameter gwfdrn_boundnames
Definition: gwf-drnidm.f90:106
gwfdrninputmodule::gwf_drn_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_drn_block_definitions
Definition: gwf-drnidm.f90:519
gwfdrninputmodule::gwfdrn_maxbound
type(inputparamdefinitiontype), parameter gwfdrn_maxbound
Definition: gwf-drnidm.f90:353
gwfdrninputmodule::gwfdrn_iprpak
type(inputparamdefinitiontype), parameter gwfdrn_iprpak
Definition: gwf-drnidm.f90:125
gwfdrninputmodule::gwfdrn_obs6_filename
type(inputparamdefinitiontype), parameter gwfdrn_obs6_filename
Definition: gwf-drnidm.f90:296
gwfdrninputmodule::gwfdrn_boundname
type(inputparamdefinitiontype), parameter gwfdrn_boundname
Definition: gwf-drnidm.f90:448
gwfdrninputmodule::gwfdrn_icubicsfac
type(inputparamdefinitiontype), parameter gwfdrn_icubicsfac
Definition: gwf-drnidm.f90:334
gwfdrninputmodule::gwf_drn_is_advanced
logical, public gwf_drn_is_advanced
Definition: gwf-drnidm.f90:41
gwfdrninputmodule::gwfdrn_obs_filerecord
type(inputparamdefinitiontype), parameter gwfdrn_obs_filerecord
Definition: gwf-drnidm.f90:258
gwfdrninputmodule::gwfdrn_auxmultname
type(inputparamdefinitiontype), parameter gwfdrn_auxmultname
Definition: gwf-drnidm.f90:68
gwfdrninputmodule::gwfdrn_ts6
type(inputparamdefinitiontype), parameter gwfdrn_ts6
Definition: gwf-drnidm.f90:201
gwfdrninputmodule::gwfdrn_ts6_filename
type(inputparamdefinitiontype), parameter gwfdrn_ts6_filename
Definition: gwf-drnidm.f90:239
gwfdrninputmodule::gwfdrn_ts_filerecord
type(inputparamdefinitiontype), parameter gwfdrn_ts_filerecord
Definition: gwf-drnidm.f90:182
gwfdrninputmodule::gwf_drn_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_drn_aggregate_definitions
Definition: gwf-drnidm.f90:513
gwfdrninputmodule::gwfdrn_ipakcb
type(inputparamdefinitiontype), parameter gwfdrn_ipakcb
Definition: gwf-drnidm.f90:163
gwfdrninputmodule::gwf_drn_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_drn_param_definitions
Definition: gwf-drnidm.f90:467
gwfdrninputmodule::gwf_drn_subpackages
character(len=16), dimension(*), parameter, public gwf_drn_subpackages
Definition: gwf-drnidm.f90:43
inputdefinitionmodule
Input definition module.
Definition: InputDefinition.f90:7
inputdefinitionmodule::inputblockdefinitiontype
Input block definition. Describes an input block.
Definition: InputDefinition.f90:36
inputdefinitionmodule::inputparamdefinitiontype
Input parameter definition. Describes an input parameter.
Definition: InputDefinition.f90:18