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