MODFLOW 6  version 6.7.0.dev2
USGS Modular Hydrologic Model
gwf-welgidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
3  use constantsmodule, only: lenvarname
6  private
13 
15  logical :: readarraygrid = .false.
16  logical :: auxiliary = .false.
17  logical :: auxmultname = .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 :: obs_filerecord = .false.
27  logical :: filein = .false.
28  logical :: obs6 = .false.
29  logical :: obs6_filename = .false.
30  logical :: mover = .false.
31  logical :: export_nc = .false.
32  logical :: maxbound = .false.
33  logical :: q = .false.
34  logical :: auxvar = .false.
35  end type gwfwelgparamfoundtype
36 
37  logical :: gwf_welg_multi_package = .true.
38 
39  character(len=16), parameter :: &
41  [ &
42  ' ' &
43  ]
44 
45  type(inputparamdefinitiontype), parameter :: &
47  ( &
48  'GWF', & ! component
49  'WELG', & ! subcomponent
50  'OPTIONS', & ! block
51  'READARRAYGRID', & ! tag name
52  'READARRAYGRID', & ! fortran variable
53  'KEYWORD', & ! type
54  '', & ! shape
55  'use array-based grid input', & ! longname
56  .true., & ! required
57  .false., & ! multi-record
58  .false., & ! preserve case
59  .false., & ! layered
60  .false. & ! timeseries
61  )
62 
63  type(inputparamdefinitiontype), parameter :: &
65  ( &
66  'GWF', & ! component
67  'WELG', & ! subcomponent
68  'OPTIONS', & ! block
69  'AUXILIARY', & ! tag name
70  'AUXILIARY', & ! fortran variable
71  'STRING', & ! type
72  'NAUX', & ! shape
73  'keyword to specify aux variables', & ! longname
74  .false., & ! required
75  .false., & ! multi-record
76  .false., & ! preserve case
77  .false., & ! layered
78  .false. & ! timeseries
79  )
80 
81  type(inputparamdefinitiontype), parameter :: &
83  ( &
84  'GWF', & ! component
85  'WELG', & ! subcomponent
86  'OPTIONS', & ! block
87  'AUXMULTNAME', & ! tag name
88  'AUXMULTNAME', & ! fortran variable
89  'STRING', & ! type
90  '', & ! shape
91  'name of auxiliary variable for multiplier', & ! longname
92  .false., & ! required
93  .false., & ! multi-record
94  .false., & ! preserve case
95  .false., & ! layered
96  .false. & ! timeseries
97  )
98 
99  type(inputparamdefinitiontype), parameter :: &
101  ( &
102  'GWF', & ! component
103  'WELG', & ! subcomponent
104  'OPTIONS', & ! block
105  'PRINT_INPUT', & ! tag name
106  'IPRPAK', & ! fortran variable
107  'KEYWORD', & ! type
108  '', & ! shape
109  'print input to listing file', & ! longname
110  .false., & ! required
111  .false., & ! multi-record
112  .false., & ! preserve case
113  .false., & ! layered
114  .false. & ! timeseries
115  )
116 
117  type(inputparamdefinitiontype), parameter :: &
119  ( &
120  'GWF', & ! component
121  'WELG', & ! subcomponent
122  'OPTIONS', & ! block
123  'PRINT_FLOWS', & ! tag name
124  'IPRFLOW', & ! fortran variable
125  'KEYWORD', & ! type
126  '', & ! shape
127  'print calculated flows to listing file', & ! longname
128  .false., & ! required
129  .false., & ! multi-record
130  .false., & ! preserve case
131  .false., & ! layered
132  .false. & ! timeseries
133  )
134 
135  type(inputparamdefinitiontype), parameter :: &
137  ( &
138  'GWF', & ! component
139  'WELG', & ! subcomponent
140  'OPTIONS', & ! block
141  'SAVE_FLOWS', & ! tag name
142  'IPAKCB', & ! fortran variable
143  'KEYWORD', & ! type
144  '', & ! shape
145  'save well flows to budget file', & ! longname
146  .false., & ! required
147  .false., & ! multi-record
148  .false., & ! preserve case
149  .false., & ! layered
150  .false. & ! timeseries
151  )
152 
153  type(inputparamdefinitiontype), parameter :: &
155  ( &
156  'GWF', & ! component
157  'WELG', & ! subcomponent
158  'OPTIONS', & ! block
159  'AUTO_FLOW_REDUCE', & ! tag name
160  'FLOWRED', & ! fortran variable
161  'DOUBLE', & ! type
162  '', & ! shape
163  'cell fractional thickness for reduced pumping', & ! longname
164  .false., & ! required
165  .false., & ! multi-record
166  .false., & ! preserve case
167  .false., & ! layered
168  .false. & ! timeseries
169  )
170 
171  type(inputparamdefinitiontype), parameter :: &
173  ( &
174  'GWF', & ! component
175  'WELG', & ! subcomponent
176  'OPTIONS', & ! block
177  'AFRCSV_FILERECORD', & ! tag name
178  'AFRCSV_REC', & ! fortran variable
179  'RECORD AUTO_FLOW_REDUCE_CSV FILEOUT AFRCSVFILE', & ! type
180  '', & ! shape
181  '', & ! longname
182  .false., & ! required
183  .false., & ! multi-record
184  .false., & ! preserve case
185  .false., & ! layered
186  .false. & ! timeseries
187  )
188 
189  type(inputparamdefinitiontype), parameter :: &
191  ( &
192  'GWF', & ! component
193  'WELG', & ! subcomponent
194  'OPTIONS', & ! block
195  'AUTO_FLOW_REDUCE_CSV', & ! tag name
196  'AFRCSV', & ! fortran variable
197  'KEYWORD', & ! type
198  '', & ! shape
199  'budget keyword', & ! longname
200  .true., & ! required
201  .true., & ! multi-record
202  .false., & ! preserve case
203  .false., & ! layered
204  .false. & ! timeseries
205  )
206 
207  type(inputparamdefinitiontype), parameter :: &
209  ( &
210  'GWF', & ! component
211  'WELG', & ! subcomponent
212  'OPTIONS', & ! block
213  'FILEOUT', & ! tag name
214  'FILEOUT', & ! fortran variable
215  'KEYWORD', & ! type
216  '', & ! shape
217  'file keyword', & ! longname
218  .true., & ! required
219  .true., & ! multi-record
220  .false., & ! preserve case
221  .false., & ! layered
222  .false. & ! timeseries
223  )
224 
225  type(inputparamdefinitiontype), parameter :: &
227  ( &
228  'GWF', & ! component
229  'WELG', & ! subcomponent
230  'OPTIONS', & ! block
231  'AFRCSVFILE', & ! tag name
232  'AFRCSVFILE', & ! fortran variable
233  'STRING', & ! type
234  '', & ! shape
235  'file keyword', & ! longname
236  .true., & ! required
237  .true., & ! multi-record
238  .true., & ! preserve case
239  .false., & ! layered
240  .false. & ! timeseries
241  )
242 
243  type(inputparamdefinitiontype), parameter :: &
245  ( &
246  'GWF', & ! component
247  'WELG', & ! subcomponent
248  'OPTIONS', & ! block
249  'OBS_FILERECORD', & ! tag name
250  'OBS_FILERECORD', & ! fortran variable
251  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
252  '', & ! shape
253  '', & ! longname
254  .false., & ! required
255  .false., & ! multi-record
256  .false., & ! preserve case
257  .false., & ! layered
258  .false. & ! timeseries
259  )
260 
261  type(inputparamdefinitiontype), parameter :: &
263  ( &
264  'GWF', & ! component
265  'WELG', & ! subcomponent
266  'OPTIONS', & ! block
267  'FILEIN', & ! tag name
268  'FILEIN', & ! fortran variable
269  'KEYWORD', & ! type
270  '', & ! shape
271  'file keyword', & ! longname
272  .true., & ! required
273  .true., & ! multi-record
274  .false., & ! preserve case
275  .false., & ! layered
276  .false. & ! timeseries
277  )
278 
279  type(inputparamdefinitiontype), parameter :: &
281  ( &
282  'GWF', & ! component
283  'WELG', & ! subcomponent
284  'OPTIONS', & ! block
285  'OBS6', & ! tag name
286  'OBS6', & ! fortran variable
287  'KEYWORD', & ! type
288  '', & ! shape
289  'obs keyword', & ! longname
290  .true., & ! required
291  .true., & ! multi-record
292  .false., & ! preserve case
293  .false., & ! layered
294  .false. & ! timeseries
295  )
296 
297  type(inputparamdefinitiontype), parameter :: &
299  ( &
300  'GWF', & ! component
301  'WELG', & ! subcomponent
302  'OPTIONS', & ! block
303  'OBS6_FILENAME', & ! tag name
304  'OBS6_FILENAME', & ! fortran variable
305  'STRING', & ! type
306  '', & ! shape
307  'obs6 input filename', & ! longname
308  .true., & ! required
309  .true., & ! multi-record
310  .true., & ! preserve case
311  .false., & ! layered
312  .false. & ! timeseries
313  )
314 
315  type(inputparamdefinitiontype), parameter :: &
317  ( &
318  'GWF', & ! component
319  'WELG', & ! subcomponent
320  'OPTIONS', & ! block
321  'MOVER', & ! tag name
322  'MOVER', & ! fortran variable
323  'KEYWORD', & ! type
324  '', & ! shape
325  '', & ! longname
326  .false., & ! required
327  .false., & ! multi-record
328  .false., & ! preserve case
329  .false., & ! layered
330  .false. & ! timeseries
331  )
332 
333  type(inputparamdefinitiontype), parameter :: &
335  ( &
336  'GWF', & ! component
337  'WELG', & ! subcomponent
338  'OPTIONS', & ! block
339  'EXPORT_ARRAY_NETCDF', & ! tag name
340  'EXPORT_NC', & ! fortran variable
341  'KEYWORD', & ! type
342  '', & ! shape
343  'export array variables to netcdf output files.', & ! longname
344  .false., & ! required
345  .false., & ! multi-record
346  .false., & ! preserve case
347  .false., & ! layered
348  .false. & ! timeseries
349  )
350 
351  type(inputparamdefinitiontype), parameter :: &
353  ( &
354  'GWF', & ! component
355  'WELG', & ! subcomponent
356  'DIMENSIONS', & ! block
357  'MAXBOUND', & ! tag name
358  'MAXBOUND', & ! fortran variable
359  'INTEGER', & ! type
360  '', & ! shape
361  'maximum number of wells in any stress period', & ! longname
362  .false., & ! required
363  .false., & ! multi-record
364  .false., & ! preserve case
365  .false., & ! layered
366  .false. & ! timeseries
367  )
368 
369  type(inputparamdefinitiontype), parameter :: &
371  ( &
372  'GWF', & ! component
373  'WELG', & ! subcomponent
374  'PERIOD', & ! block
375  'Q', & ! tag name
376  'Q', & ! fortran variable
377  'DOUBLE1D', & ! type
378  'NODES', & ! shape
379  'well rate', & ! longname
380  .true., & ! required
381  .false., & ! multi-record
382  .false., & ! preserve case
383  .true., & ! layered
384  .false. & ! timeseries
385  )
386 
387  type(inputparamdefinitiontype), parameter :: &
389  ( &
390  'GWF', & ! component
391  'WELG', & ! subcomponent
392  'PERIOD', & ! block
393  'AUX', & ! tag name
394  'AUXVAR', & ! fortran variable
395  'DOUBLE2D', & ! type
396  'NAUX NODES', & ! shape
397  'well auxiliary variable iaux', & ! longname
398  .false., & ! required
399  .false., & ! multi-record
400  .false., & ! preserve case
401  .true., & ! layered
402  .false. & ! timeseries
403  )
404 
405  type(inputparamdefinitiontype), parameter :: &
407  [ &
411  gwfwelg_iprpak, &
412  gwfwelg_iprflow, &
413  gwfwelg_ipakcb, &
414  gwfwelg_flowred, &
416  gwfwelg_afrcsv, &
417  gwfwelg_fileout, &
420  gwfwelg_filein, &
421  gwfwelg_obs6, &
423  gwfwelg_mover, &
426  gwfwelg_q, &
428  ]
429 
430  type(inputparamdefinitiontype), parameter :: &
432  [ &
434  ( &
435  '', & ! component
436  '', & ! subcomponent
437  '', & ! block
438  '', & ! tag name
439  '', & ! fortran variable
440  '', & ! type
441  '', & ! shape
442  '', & ! longname
443  .false., & ! required
444  .false., & ! multi-record
445  .false., & ! preserve case
446  .false., & ! layered
447  .false. & ! timeseries
448  ) &
449  ]
450 
451  type(inputblockdefinitiontype), parameter :: &
453  [ &
455  'OPTIONS', & ! blockname
456  .true., & ! required
457  .false., & ! aggregate
458  .false. & ! block_variable
459  ), &
461  'DIMENSIONS', & ! blockname
462  .false., & ! required
463  .false., & ! aggregate
464  .false. & ! block_variable
465  ), &
467  'PERIOD', & ! blockname
468  .true., & ! required
469  .false., & ! aggregate
470  .true. & ! block_variable
471  ) &
472  ]
473 
474 end module gwfwelginputmodule
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 gwfwelg_obs6
type(inputparamdefinitiontype), parameter gwfwelg_auxiliary
Definition: gwf-welgidm.f90:63
type(inputparamdefinitiontype), parameter gwfwelg_fileout
type(inputparamdefinitiontype), parameter gwfwelg_afrcsv_rec
type(inputparamdefinitiontype), parameter gwfwelg_maxbound
type(inputparamdefinitiontype), parameter gwfwelg_mover
type(inputparamdefinitiontype), parameter gwfwelg_auxvar
type(inputparamdefinitiontype), parameter gwfwelg_readarraygrid
Definition: gwf-welgidm.f90:45
type(inputparamdefinitiontype), parameter gwfwelg_filein
logical, public gwf_welg_multi_package
Definition: gwf-welgidm.f90:37
type(inputparamdefinitiontype), parameter gwfwelg_iprpak
Definition: gwf-welgidm.f90:99
character(len=16), dimension(*), parameter, public gwf_welg_subpackages
Definition: gwf-welgidm.f90:39
type(inputparamdefinitiontype), parameter gwfwelg_auxmultname
Definition: gwf-welgidm.f90:81
type(inputparamdefinitiontype), parameter gwfwelg_flowred
type(inputparamdefinitiontype), parameter gwfwelg_afrcsv
type(inputparamdefinitiontype), parameter gwfwelg_obs_filerecord
type(inputparamdefinitiontype), parameter gwfwelg_obs6_filename
type(inputparamdefinitiontype), parameter gwfwelg_q
type(inputparamdefinitiontype), parameter gwfwelg_iprflow
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_welg_block_definitions
type(inputparamdefinitiontype), parameter gwfwelg_export_nc
type(inputparamdefinitiontype), parameter gwfwelg_afrcsvfile
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_welg_aggregate_definitions
type(inputparamdefinitiontype), parameter gwfwelg_ipakcb
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_welg_param_definitions
This module contains the InputDefinitionModule.