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