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