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