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