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