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