MODFLOW 6  version 6.8.0.dev0
USGS Modular Hydrologic Model
gwf-welidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
3  use constantsmodule, only: lenvarname
6  private
12  public gwf_wel_subpackages
13 
15  logical :: auxiliary = .false.
16  logical :: auxmultname = .false.
17  logical :: boundnames = .false.
18  logical :: iprpak = .false.
19  logical :: iprflow = .false.
20  logical :: ipakcb = .false.
21  logical :: flowred = .false.
22  logical :: afrcsv_rec = .false.
23  logical :: afrcsv = .false.
24  logical :: fileout = .false.
25  logical :: afrcsvfile = .false.
26  logical :: iflowredlen = .false.
27  logical :: afrauxname = .false.
28  logical :: ts_filerecord = .false.
29  logical :: ts6 = .false.
30  logical :: filein = .false.
31  logical :: ts6_filename = .false.
32  logical :: obs_filerecord = .false.
33  logical :: obs6 = .false.
34  logical :: obs6_filename = .false.
35  logical :: mover = .false.
36  logical :: maxbound = .false.
37  logical :: cellid = .false.
38  logical :: q = .false.
39  logical :: auxvar = .false.
40  logical :: boundname = .false.
41  end type gwfwelparamfoundtype
42 
43  logical :: gwf_wel_multi_package = .true.
44 
45  character(len=16), parameter :: &
46  gwf_wel_subpackages(*) = &
47  [ &
48  ' ' &
49  ]
50 
51  type(inputparamdefinitiontype), parameter :: &
53  ( &
54  'GWF', & ! component
55  'WEL', & ! subcomponent
56  'OPTIONS', & ! block
57  'AUXILIARY', & ! tag name
58  'AUXILIARY', & ! fortran variable
59  'STRING', & ! type
60  'NAUX', & ! shape
61  'keyword to specify aux variables', & ! longname
62  .false., & ! required
63  .false., & ! developmode
64  .false., & ! multi-record
65  .false., & ! preserve case
66  .false., & ! layered
67  .false. & ! timeseries
68  )
69 
70  type(inputparamdefinitiontype), parameter :: &
72  ( &
73  'GWF', & ! component
74  'WEL', & ! subcomponent
75  'OPTIONS', & ! block
76  'AUXMULTNAME', & ! tag name
77  'AUXMULTNAME', & ! fortran variable
78  'STRING', & ! type
79  '', & ! shape
80  'name of auxiliary variable for multiplier', & ! longname
81  .false., & ! required
82  .false., & ! developmode
83  .false., & ! multi-record
84  .false., & ! preserve case
85  .false., & ! layered
86  .false. & ! timeseries
87  )
88 
89  type(inputparamdefinitiontype), parameter :: &
91  ( &
92  'GWF', & ! component
93  'WEL', & ! subcomponent
94  'OPTIONS', & ! block
95  'BOUNDNAMES', & ! tag name
96  'BOUNDNAMES', & ! fortran variable
97  'KEYWORD', & ! type
98  '', & ! shape
99  '', & ! longname
100  .false., & ! required
101  .false., & ! developmode
102  .false., & ! multi-record
103  .false., & ! preserve case
104  .false., & ! layered
105  .false. & ! timeseries
106  )
107 
108  type(inputparamdefinitiontype), parameter :: &
110  ( &
111  'GWF', & ! component
112  'WEL', & ! subcomponent
113  'OPTIONS', & ! block
114  'PRINT_INPUT', & ! tag name
115  'IPRPAK', & ! fortran variable
116  'KEYWORD', & ! type
117  '', & ! shape
118  'print input to listing file', & ! longname
119  .false., & ! required
120  .false., & ! developmode
121  .false., & ! multi-record
122  .false., & ! preserve case
123  .false., & ! layered
124  .false. & ! timeseries
125  )
126 
127  type(inputparamdefinitiontype), parameter :: &
129  ( &
130  'GWF', & ! component
131  'WEL', & ! subcomponent
132  'OPTIONS', & ! block
133  'PRINT_FLOWS', & ! tag name
134  'IPRFLOW', & ! fortran variable
135  'KEYWORD', & ! type
136  '', & ! shape
137  'print calculated flows to listing file', & ! longname
138  .false., & ! required
139  .false., & ! developmode
140  .false., & ! multi-record
141  .false., & ! preserve case
142  .false., & ! layered
143  .false. & ! timeseries
144  )
145 
146  type(inputparamdefinitiontype), parameter :: &
148  ( &
149  'GWF', & ! component
150  'WEL', & ! subcomponent
151  'OPTIONS', & ! block
152  'SAVE_FLOWS', & ! tag name
153  'IPAKCB', & ! fortran variable
154  'KEYWORD', & ! type
155  '', & ! shape
156  'save well flows to budget file', & ! longname
157  .false., & ! required
158  .false., & ! developmode
159  .false., & ! multi-record
160  .false., & ! preserve case
161  .false., & ! layered
162  .false. & ! timeseries
163  )
164 
165  type(inputparamdefinitiontype), parameter :: &
167  ( &
168  'GWF', & ! component
169  'WEL', & ! subcomponent
170  'OPTIONS', & ! block
171  'AUTO_FLOW_REDUCE', & ! tag name
172  'FLOWRED', & ! fortran variable
173  'DOUBLE', & ! type
174  '', & ! shape
175  'cell fractional thickness for reduced pumping', & ! longname
176  .false., & ! required
177  .false., & ! developmode
178  .false., & ! multi-record
179  .false., & ! preserve case
180  .false., & ! layered
181  .false. & ! timeseries
182  )
183 
184  type(inputparamdefinitiontype), parameter :: &
186  ( &
187  'GWF', & ! component
188  'WEL', & ! subcomponent
189  'OPTIONS', & ! block
190  'AFRCSV_FILERECORD', & ! tag name
191  'AFRCSV_REC', & ! fortran variable
192  'RECORD AUTO_FLOW_REDUCE_CSV FILEOUT AFRCSVFILE', & ! type
193  '', & ! shape
194  '', & ! longname
195  .false., & ! required
196  .false., & ! developmode
197  .false., & ! multi-record
198  .false., & ! preserve case
199  .false., & ! layered
200  .false. & ! timeseries
201  )
202 
203  type(inputparamdefinitiontype), parameter :: &
205  ( &
206  'GWF', & ! component
207  'WEL', & ! subcomponent
208  'OPTIONS', & ! block
209  'AUTO_FLOW_REDUCE_CSV', & ! tag name
210  'AFRCSV', & ! fortran variable
211  'KEYWORD', & ! type
212  '', & ! shape
213  'budget keyword', & ! longname
214  .true., & ! required
215  .false., & ! developmode
216  .true., & ! multi-record
217  .false., & ! preserve case
218  .false., & ! layered
219  .false. & ! timeseries
220  )
221 
222  type(inputparamdefinitiontype), parameter :: &
224  ( &
225  'GWF', & ! component
226  'WEL', & ! subcomponent
227  'OPTIONS', & ! block
228  'FILEOUT', & ! tag name
229  'FILEOUT', & ! fortran variable
230  'KEYWORD', & ! type
231  '', & ! shape
232  'file keyword', & ! longname
233  .true., & ! required
234  .false., & ! developmode
235  .true., & ! multi-record
236  .false., & ! preserve case
237  .false., & ! layered
238  .false. & ! timeseries
239  )
240 
241  type(inputparamdefinitiontype), parameter :: &
243  ( &
244  'GWF', & ! component
245  'WEL', & ! subcomponent
246  'OPTIONS', & ! block
247  'AFRCSVFILE', & ! tag name
248  'AFRCSVFILE', & ! fortran variable
249  'STRING', & ! type
250  '', & ! shape
251  'file keyword', & ! longname
252  .true., & ! required
253  .false., & ! developmode
254  .true., & ! multi-record
255  .true., & ! preserve case
256  .false., & ! layered
257  .false. & ! timeseries
258  )
259 
260  type(inputparamdefinitiontype), parameter :: &
262  ( &
263  'GWF', & ! component
264  'WEL', & ! subcomponent
265  'OPTIONS', & ! block
266  'FLOW_REDUCTION_LENGTH', & ! tag name
267  'IFLOWREDLEN', & ! fortran variable
268  'KEYWORD', & ! type
269  '', & ! shape
270  'flow reduction length keyword', & ! longname
271  .false., & ! required
272  .false., & ! developmode
273  .false., & ! multi-record
274  .false., & ! preserve case
275  .false., & ! layered
276  .false. & ! timeseries
277  )
278 
279  type(inputparamdefinitiontype), parameter :: &
281  ( &
282  'GWF', & ! component
283  'WEL', & ! subcomponent
284  'OPTIONS', & ! block
285  'AUTO_FLOW_REDUCE_AUXNAME', & ! tag name
286  'AFRAUXNAME', & ! fortran variable
287  'STRING', & ! type
288  '', & ! shape
289  'name of auxiliary variable for the per-well '// &
290  'AUTO\_FLOW\_REDUCE value', & ! longname
291  .false., & ! required
292  .false., & ! developmode
293  .false., & ! multi-record
294  .false., & ! preserve case
295  .false., & ! layered
296  .false. & ! timeseries
297  )
298 
299  type(inputparamdefinitiontype), parameter :: &
301  ( &
302  'GWF', & ! component
303  'WEL', & ! subcomponent
304  'OPTIONS', & ! block
305  'TS_FILERECORD', & ! tag name
306  'TS_FILERECORD', & ! fortran variable
307  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
308  '', & ! shape
309  '', & ! longname
310  .false., & ! required
311  .false., & ! developmode
312  .false., & ! multi-record
313  .false., & ! preserve case
314  .false., & ! layered
315  .false. & ! timeseries
316  )
317 
318  type(inputparamdefinitiontype), parameter :: &
320  ( &
321  'GWF', & ! component
322  'WEL', & ! subcomponent
323  'OPTIONS', & ! block
324  'TS6', & ! tag name
325  'TS6', & ! fortran variable
326  'KEYWORD', & ! type
327  '', & ! shape
328  'head keyword', & ! longname
329  .true., & ! required
330  .false., & ! developmode
331  .true., & ! multi-record
332  .false., & ! preserve case
333  .false., & ! layered
334  .false. & ! timeseries
335  )
336 
337  type(inputparamdefinitiontype), parameter :: &
339  ( &
340  'GWF', & ! component
341  'WEL', & ! subcomponent
342  'OPTIONS', & ! block
343  'FILEIN', & ! tag name
344  'FILEIN', & ! fortran variable
345  'KEYWORD', & ! type
346  '', & ! shape
347  'file keyword', & ! longname
348  .true., & ! required
349  .false., & ! developmode
350  .true., & ! multi-record
351  .false., & ! preserve case
352  .false., & ! layered
353  .false. & ! timeseries
354  )
355 
356  type(inputparamdefinitiontype), parameter :: &
358  ( &
359  'GWF', & ! component
360  'WEL', & ! subcomponent
361  'OPTIONS', & ! block
362  'TS6_FILENAME', & ! tag name
363  'TS6_FILENAME', & ! fortran variable
364  'STRING', & ! type
365  '', & ! shape
366  'file name of time series information', & ! longname
367  .true., & ! required
368  .false., & ! developmode
369  .true., & ! multi-record
370  .true., & ! preserve case
371  .false., & ! layered
372  .false. & ! timeseries
373  )
374 
375  type(inputparamdefinitiontype), parameter :: &
377  ( &
378  'GWF', & ! component
379  'WEL', & ! subcomponent
380  'OPTIONS', & ! block
381  'OBS_FILERECORD', & ! tag name
382  'OBS_FILERECORD', & ! fortran variable
383  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
384  '', & ! shape
385  '', & ! longname
386  .false., & ! required
387  .false., & ! developmode
388  .false., & ! multi-record
389  .false., & ! preserve case
390  .false., & ! layered
391  .false. & ! timeseries
392  )
393 
394  type(inputparamdefinitiontype), parameter :: &
396  ( &
397  'GWF', & ! component
398  'WEL', & ! subcomponent
399  'OPTIONS', & ! block
400  'OBS6', & ! tag name
401  'OBS6', & ! fortran variable
402  'KEYWORD', & ! type
403  '', & ! shape
404  'obs keyword', & ! longname
405  .true., & ! required
406  .false., & ! developmode
407  .true., & ! multi-record
408  .false., & ! preserve case
409  .false., & ! layered
410  .false. & ! timeseries
411  )
412 
413  type(inputparamdefinitiontype), parameter :: &
415  ( &
416  'GWF', & ! component
417  'WEL', & ! subcomponent
418  'OPTIONS', & ! block
419  'OBS6_FILENAME', & ! tag name
420  'OBS6_FILENAME', & ! fortran variable
421  'STRING', & ! type
422  '', & ! shape
423  'obs6 input filename', & ! longname
424  .true., & ! required
425  .false., & ! developmode
426  .true., & ! multi-record
427  .true., & ! preserve case
428  .false., & ! layered
429  .false. & ! timeseries
430  )
431 
432  type(inputparamdefinitiontype), parameter :: &
434  ( &
435  'GWF', & ! component
436  'WEL', & ! subcomponent
437  'OPTIONS', & ! block
438  'MOVER', & ! tag name
439  'MOVER', & ! fortran variable
440  'KEYWORD', & ! type
441  '', & ! shape
442  '', & ! longname
443  .false., & ! required
444  .false., & ! developmode
445  .false., & ! multi-record
446  .false., & ! preserve case
447  .false., & ! layered
448  .false. & ! timeseries
449  )
450 
451  type(inputparamdefinitiontype), parameter :: &
453  ( &
454  'GWF', & ! component
455  'WEL', & ! subcomponent
456  'DIMENSIONS', & ! block
457  'MAXBOUND', & ! tag name
458  'MAXBOUND', & ! fortran variable
459  'INTEGER', & ! type
460  '', & ! shape
461  'maximum number of wells', & ! longname
462  .true., & ! required
463  .false., & ! developmode
464  .false., & ! multi-record
465  .false., & ! preserve case
466  .false., & ! layered
467  .false. & ! timeseries
468  )
469 
470  type(inputparamdefinitiontype), parameter :: &
472  ( &
473  'GWF', & ! component
474  'WEL', & ! subcomponent
475  'PERIOD', & ! block
476  'CELLID', & ! tag name
477  'CELLID', & ! fortran variable
478  'INTEGER1D', & ! type
479  'NCELLDIM', & ! shape
480  'cell identifier', & ! longname
481  .true., & ! required
482  .false., & ! developmode
483  .true., & ! multi-record
484  .false., & ! preserve case
485  .false., & ! layered
486  .false. & ! timeseries
487  )
488 
489  type(inputparamdefinitiontype), parameter :: &
491  ( &
492  'GWF', & ! component
493  'WEL', & ! subcomponent
494  'PERIOD', & ! block
495  'Q', & ! tag name
496  'Q', & ! fortran variable
497  'DOUBLE', & ! type
498  '', & ! shape
499  'well rate', & ! longname
500  .true., & ! required
501  .false., & ! developmode
502  .true., & ! multi-record
503  .false., & ! preserve case
504  .false., & ! layered
505  .true. & ! timeseries
506  )
507 
508  type(inputparamdefinitiontype), parameter :: &
510  ( &
511  'GWF', & ! component
512  'WEL', & ! subcomponent
513  'PERIOD', & ! block
514  'AUX', & ! tag name
515  'AUXVAR', & ! fortran variable
516  'DOUBLE1D', & ! type
517  'NAUX', & ! shape
518  'auxiliary variables', & ! longname
519  .false., & ! required
520  .false., & ! developmode
521  .true., & ! multi-record
522  .false., & ! preserve case
523  .false., & ! layered
524  .true. & ! timeseries
525  )
526 
527  type(inputparamdefinitiontype), parameter :: &
529  ( &
530  'GWF', & ! component
531  'WEL', & ! subcomponent
532  'PERIOD', & ! block
533  'BOUNDNAME', & ! tag name
534  'BOUNDNAME', & ! fortran variable
535  'STRING', & ! type
536  '', & ! shape
537  'well name', & ! longname
538  .false., & ! required
539  .false., & ! developmode
540  .true., & ! multi-record
541  .false., & ! preserve case
542  .false., & ! layered
543  .false. & ! timeseries
544  )
545 
546  type(inputparamdefinitiontype), parameter :: &
548  [ &
552  gwfwel_iprpak, &
553  gwfwel_iprflow, &
554  gwfwel_ipakcb, &
555  gwfwel_flowred, &
557  gwfwel_afrcsv, &
558  gwfwel_fileout, &
563  gwfwel_ts6, &
564  gwfwel_filein, &
567  gwfwel_obs6, &
569  gwfwel_mover, &
570  gwfwel_maxbound, &
571  gwfwel_cellid, &
572  gwfwel_q, &
573  gwfwel_auxvar, &
575  ]
576 
577  type(inputparamdefinitiontype), parameter :: &
579  ( &
580  'GWF', & ! component
581  'WEL', & ! subcomponent
582  'PERIOD', & ! block
583  'STRESS_PERIOD_DATA', & ! tag name
584  'SPD', & ! fortran variable
585  'RECARRAY CELLID Q AUX BOUNDNAME', & ! type
586  'MAXBOUND', & ! shape
587  '', & ! longname
588  .true., & ! required
589  .false., & ! developmode
590  .false., & ! multi-record
591  .false., & ! preserve case
592  .false., & ! layered
593  .false. & ! timeseries
594  )
595 
596  type(inputparamdefinitiontype), parameter :: &
598  [ &
599  gwfwel_spd &
600  ]
601 
602  type(inputblockdefinitiontype), parameter :: &
604  [ &
606  'OPTIONS', & ! blockname
607  .false., & ! required
608  .false., & ! aggregate
609  .false. & ! block_variable
610  ), &
612  'DIMENSIONS', & ! blockname
613  .true., & ! required
614  .false., & ! aggregate
615  .false. & ! block_variable
616  ), &
618  'PERIOD', & ! blockname
619  .true., & ! required
620  .true., & ! aggregate
621  .true. & ! block_variable
622  ) &
623  ]
624 
625 end module gwfwelinputmodule
This module contains simulation constants.
Definition: Constants.f90:9
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
type(inputparamdefinitiontype), parameter gwfwel_obs6_filename
Definition: gwf-welidm.f90:413
type(inputparamdefinitiontype), parameter gwfwel_spd
Definition: gwf-welidm.f90:577
type(inputparamdefinitiontype), parameter gwfwel_filein
Definition: gwf-welidm.f90:337
type(inputparamdefinitiontype), parameter gwfwel_ts_filerecord
Definition: gwf-welidm.f90:299
type(inputparamdefinitiontype), parameter gwfwel_iprpak
Definition: gwf-welidm.f90:108
type(inputparamdefinitiontype), parameter gwfwel_maxbound
Definition: gwf-welidm.f90:451
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_wel_aggregate_definitions
Definition: gwf-welidm.f90:596
type(inputparamdefinitiontype), parameter gwfwel_boundnames
Definition: gwf-welidm.f90:89
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_wel_block_definitions
Definition: gwf-welidm.f90:602
type(inputparamdefinitiontype), parameter gwfwel_obs6
Definition: gwf-welidm.f90:394
logical, public gwf_wel_multi_package
Definition: gwf-welidm.f90:43
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_wel_param_definitions
Definition: gwf-welidm.f90:546
type(inputparamdefinitiontype), parameter gwfwel_ts6
Definition: gwf-welidm.f90:318
type(inputparamdefinitiontype), parameter gwfwel_auxmultname
Definition: gwf-welidm.f90:70
type(inputparamdefinitiontype), parameter gwfwel_q
Definition: gwf-welidm.f90:489
type(inputparamdefinitiontype), parameter gwfwel_fileout
Definition: gwf-welidm.f90:222
type(inputparamdefinitiontype), parameter gwfwel_ts6_filename
Definition: gwf-welidm.f90:356
type(inputparamdefinitiontype), parameter gwfwel_auxvar
Definition: gwf-welidm.f90:508
type(inputparamdefinitiontype), parameter gwfwel_boundname
Definition: gwf-welidm.f90:527
type(inputparamdefinitiontype), parameter gwfwel_iprflow
Definition: gwf-welidm.f90:127
type(inputparamdefinitiontype), parameter gwfwel_cellid
Definition: gwf-welidm.f90:470
type(inputparamdefinitiontype), parameter gwfwel_flowred
Definition: gwf-welidm.f90:165
character(len=16), dimension(*), parameter, public gwf_wel_subpackages
Definition: gwf-welidm.f90:45
type(inputparamdefinitiontype), parameter gwfwel_afrcsv_rec
Definition: gwf-welidm.f90:184
type(inputparamdefinitiontype), parameter gwfwel_obs_filerecord
Definition: gwf-welidm.f90:375
type(inputparamdefinitiontype), parameter gwfwel_afrcsvfile
Definition: gwf-welidm.f90:241
type(inputparamdefinitiontype), parameter gwfwel_afrauxname
Definition: gwf-welidm.f90:279
type(inputparamdefinitiontype), parameter gwfwel_mover
Definition: gwf-welidm.f90:432
type(inputparamdefinitiontype), parameter gwfwel_ipakcb
Definition: gwf-welidm.f90:146
type(inputparamdefinitiontype), parameter gwfwel_iflowredlen
Definition: gwf-welidm.f90:260
type(inputparamdefinitiontype), parameter gwfwel_afrcsv
Definition: gwf-welidm.f90:203
type(inputparamdefinitiontype), parameter gwfwel_auxiliary
Definition: gwf-welidm.f90:51
Input definition module.
Input block definition. Describes an input block.
Input parameter definition. Describes an input parameter.