MODFLOW 6  version 6.7.0.dev3
USGS Modular Hydrologic Model
gwf-chdidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfchdinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_chd_param_definitions
8  public gwf_chd_aggregate_definitions
9  public gwf_chd_block_definitions
10  public gwfchdparamfoundtype
11  public gwf_chd_multi_package
12  public gwf_chd_subpackages
13 
14  type gwfchdparamfoundtype
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 :: ts_filerecord = .false.
22  logical :: ts6 = .false.
23  logical :: filein = .false.
24  logical :: ts6_filename = .false.
25  logical :: obs_filerecord = .false.
26  logical :: obs6 = .false.
27  logical :: obs6_filename = .false.
28  logical :: inewton = .false.
29  logical :: maxbound = .false.
30  logical :: cellid = .false.
31  logical :: head = .false.
32  logical :: auxvar = .false.
33  logical :: boundname = .false.
34  end type gwfchdparamfoundtype
35 
36  logical :: gwf_chd_multi_package = .true.
37 
38  character(len=16), parameter :: &
39  gwf_chd_subpackages(*) = &
40  [ &
41  ' ' &
42  ]
43 
44  type(inputparamdefinitiontype), parameter :: &
45  gwfchd_auxiliary = inputparamdefinitiontype &
46  ( &
47  'GWF', & ! component
48  'CHD', & ! subcomponent
49  'OPTIONS', & ! block
50  'AUXILIARY', & ! tag name
51  'AUXILIARY', & ! fortran variable
52  'STRING', & ! type
53  'NAUX', & ! shape
54  'keyword to specify aux variables', & ! longname
55  .false., & ! required
56  .false., & ! prerelease
57  .false., & ! multi-record
58  .false., & ! preserve case
59  .false., & ! layered
60  .false. & ! timeseries
61  )
62 
63  type(inputparamdefinitiontype), parameter :: &
64  gwfchd_auxmultname = inputparamdefinitiontype &
65  ( &
66  'GWF', & ! component
67  'CHD', & ! subcomponent
68  'OPTIONS', & ! block
69  'AUXMULTNAME', & ! tag name
70  'AUXMULTNAME', & ! fortran variable
71  'STRING', & ! type
72  '', & ! shape
73  'name of auxiliary variable for multiplier', & ! longname
74  .false., & ! required
75  .false., & ! prerelease
76  .false., & ! multi-record
77  .false., & ! preserve case
78  .false., & ! layered
79  .false. & ! timeseries
80  )
81 
82  type(inputparamdefinitiontype), parameter :: &
83  gwfchd_boundnames = inputparamdefinitiontype &
84  ( &
85  'GWF', & ! component
86  'CHD', & ! subcomponent
87  'OPTIONS', & ! block
88  'BOUNDNAMES', & ! tag name
89  'BOUNDNAMES', & ! fortran variable
90  'KEYWORD', & ! type
91  '', & ! shape
92  '', & ! longname
93  .false., & ! required
94  .false., & ! prerelease
95  .false., & ! multi-record
96  .false., & ! preserve case
97  .false., & ! layered
98  .false. & ! timeseries
99  )
100 
101  type(inputparamdefinitiontype), parameter :: &
102  gwfchd_iprpak = inputparamdefinitiontype &
103  ( &
104  'GWF', & ! component
105  'CHD', & ! subcomponent
106  'OPTIONS', & ! block
107  'PRINT_INPUT', & ! tag name
108  'IPRPAK', & ! fortran variable
109  'KEYWORD', & ! type
110  '', & ! shape
111  'print input to listing file', & ! longname
112  .false., & ! required
113  .false., & ! prerelease
114  .false., & ! multi-record
115  .false., & ! preserve case
116  .false., & ! layered
117  .false. & ! timeseries
118  )
119 
120  type(inputparamdefinitiontype), parameter :: &
121  gwfchd_iprflow = inputparamdefinitiontype &
122  ( &
123  'GWF', & ! component
124  'CHD', & ! subcomponent
125  'OPTIONS', & ! block
126  'PRINT_FLOWS', & ! tag name
127  'IPRFLOW', & ! fortran variable
128  'KEYWORD', & ! type
129  '', & ! shape
130  'print CHD flows to listing file', & ! longname
131  .false., & ! required
132  .false., & ! prerelease
133  .false., & ! multi-record
134  .false., & ! preserve case
135  .false., & ! layered
136  .false. & ! timeseries
137  )
138 
139  type(inputparamdefinitiontype), parameter :: &
140  gwfchd_ipakcb = inputparamdefinitiontype &
141  ( &
142  'GWF', & ! component
143  'CHD', & ! subcomponent
144  'OPTIONS', & ! block
145  'SAVE_FLOWS', & ! tag name
146  'IPAKCB', & ! fortran variable
147  'KEYWORD', & ! type
148  '', & ! shape
149  'save CHD flows to budget file', & ! longname
150  .false., & ! required
151  .false., & ! prerelease
152  .false., & ! multi-record
153  .false., & ! preserve case
154  .false., & ! layered
155  .false. & ! timeseries
156  )
157 
158  type(inputparamdefinitiontype), parameter :: &
159  gwfchd_ts_filerecord = inputparamdefinitiontype &
160  ( &
161  'GWF', & ! component
162  'CHD', & ! subcomponent
163  'OPTIONS', & ! block
164  'TS_FILERECORD', & ! tag name
165  'TS_FILERECORD', & ! fortran variable
166  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
167  '', & ! shape
168  '', & ! longname
169  .false., & ! required
170  .false., & ! prerelease
171  .false., & ! multi-record
172  .false., & ! preserve case
173  .false., & ! layered
174  .false. & ! timeseries
175  )
176 
177  type(inputparamdefinitiontype), parameter :: &
178  gwfchd_ts6 = inputparamdefinitiontype &
179  ( &
180  'GWF', & ! component
181  'CHD', & ! subcomponent
182  'OPTIONS', & ! block
183  'TS6', & ! tag name
184  'TS6', & ! fortran variable
185  'KEYWORD', & ! type
186  '', & ! shape
187  'head keyword', & ! longname
188  .true., & ! required
189  .false., & ! prerelease
190  .true., & ! multi-record
191  .false., & ! preserve case
192  .false., & ! layered
193  .false. & ! timeseries
194  )
195 
196  type(inputparamdefinitiontype), parameter :: &
197  gwfchd_filein = inputparamdefinitiontype &
198  ( &
199  'GWF', & ! component
200  'CHD', & ! subcomponent
201  'OPTIONS', & ! block
202  'FILEIN', & ! tag name
203  'FILEIN', & ! fortran variable
204  'KEYWORD', & ! type
205  '', & ! shape
206  'file keyword', & ! longname
207  .true., & ! required
208  .false., & ! prerelease
209  .true., & ! multi-record
210  .false., & ! preserve case
211  .false., & ! layered
212  .false. & ! timeseries
213  )
214 
215  type(inputparamdefinitiontype), parameter :: &
216  gwfchd_ts6_filename = inputparamdefinitiontype &
217  ( &
218  'GWF', & ! component
219  'CHD', & ! subcomponent
220  'OPTIONS', & ! block
221  'TS6_FILENAME', & ! tag name
222  'TS6_FILENAME', & ! fortran variable
223  'STRING', & ! type
224  '', & ! shape
225  'file name of time series information', & ! longname
226  .true., & ! required
227  .false., & ! prerelease
228  .true., & ! multi-record
229  .true., & ! preserve case
230  .false., & ! layered
231  .false. & ! timeseries
232  )
233 
234  type(inputparamdefinitiontype), parameter :: &
235  gwfchd_obs_filerecord = inputparamdefinitiontype &
236  ( &
237  'GWF', & ! component
238  'CHD', & ! subcomponent
239  'OPTIONS', & ! block
240  'OBS_FILERECORD', & ! tag name
241  'OBS_FILERECORD', & ! fortran variable
242  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
243  '', & ! shape
244  '', & ! longname
245  .false., & ! required
246  .false., & ! prerelease
247  .false., & ! multi-record
248  .false., & ! preserve case
249  .false., & ! layered
250  .false. & ! timeseries
251  )
252 
253  type(inputparamdefinitiontype), parameter :: &
254  gwfchd_obs6 = inputparamdefinitiontype &
255  ( &
256  'GWF', & ! component
257  'CHD', & ! subcomponent
258  'OPTIONS', & ! block
259  'OBS6', & ! tag name
260  'OBS6', & ! fortran variable
261  'KEYWORD', & ! type
262  '', & ! shape
263  'obs keyword', & ! longname
264  .true., & ! required
265  .false., & ! prerelease
266  .true., & ! multi-record
267  .false., & ! preserve case
268  .false., & ! layered
269  .false. & ! timeseries
270  )
271 
272  type(inputparamdefinitiontype), parameter :: &
273  gwfchd_obs6_filename = inputparamdefinitiontype &
274  ( &
275  'GWF', & ! component
276  'CHD', & ! subcomponent
277  'OPTIONS', & ! block
278  'OBS6_FILENAME', & ! tag name
279  'OBS6_FILENAME', & ! fortran variable
280  'STRING', & ! type
281  '', & ! shape
282  'obs6 input filename', & ! longname
283  .true., & ! required
284  .false., & ! prerelease
285  .true., & ! multi-record
286  .true., & ! preserve case
287  .false., & ! layered
288  .false. & ! timeseries
289  )
290 
291  type(inputparamdefinitiontype), parameter :: &
292  gwfchd_inewton = inputparamdefinitiontype &
293  ( &
294  'GWF', & ! component
295  'CHD', & ! subcomponent
296  'OPTIONS', & ! block
297  'DEV_NO_NEWTON', & ! tag name
298  'INEWTON', & ! fortran variable
299  'KEYWORD', & ! type
300  '', & ! shape
301  'turn off Newton for unconfined cells', & ! longname
302  .false., & ! required
303  .false., & ! prerelease
304  .false., & ! multi-record
305  .false., & ! preserve case
306  .false., & ! layered
307  .false. & ! timeseries
308  )
309 
310  type(inputparamdefinitiontype), parameter :: &
311  gwfchd_maxbound = inputparamdefinitiontype &
312  ( &
313  'GWF', & ! component
314  'CHD', & ! subcomponent
315  'DIMENSIONS', & ! block
316  'MAXBOUND', & ! tag name
317  'MAXBOUND', & ! fortran variable
318  'INTEGER', & ! type
319  '', & ! shape
320  'maximum number of constant heads', & ! longname
321  .true., & ! required
322  .false., & ! prerelease
323  .false., & ! multi-record
324  .false., & ! preserve case
325  .false., & ! layered
326  .false. & ! timeseries
327  )
328 
329  type(inputparamdefinitiontype), parameter :: &
330  gwfchd_cellid = inputparamdefinitiontype &
331  ( &
332  'GWF', & ! component
333  'CHD', & ! subcomponent
334  'PERIOD', & ! block
335  'CELLID', & ! tag name
336  'CELLID', & ! fortran variable
337  'INTEGER1D', & ! type
338  'NCELLDIM', & ! shape
339  'cell identifier', & ! longname
340  .true., & ! required
341  .false., & ! prerelease
342  .true., & ! multi-record
343  .false., & ! preserve case
344  .false., & ! layered
345  .false. & ! timeseries
346  )
347 
348  type(inputparamdefinitiontype), parameter :: &
349  gwfchd_head = inputparamdefinitiontype &
350  ( &
351  'GWF', & ! component
352  'CHD', & ! subcomponent
353  'PERIOD', & ! block
354  'HEAD', & ! tag name
355  'HEAD', & ! fortran variable
356  'DOUBLE', & ! type
357  '', & ! shape
358  'head value assigned to constant head', & ! longname
359  .true., & ! required
360  .false., & ! prerelease
361  .true., & ! multi-record
362  .false., & ! preserve case
363  .false., & ! layered
364  .true. & ! timeseries
365  )
366 
367  type(inputparamdefinitiontype), parameter :: &
368  gwfchd_auxvar = inputparamdefinitiontype &
369  ( &
370  'GWF', & ! component
371  'CHD', & ! subcomponent
372  'PERIOD', & ! block
373  'AUX', & ! tag name
374  'AUXVAR', & ! fortran variable
375  'DOUBLE1D', & ! type
376  'NAUX', & ! shape
377  'auxiliary variables', & ! longname
378  .false., & ! required
379  .false., & ! prerelease
380  .true., & ! multi-record
381  .false., & ! preserve case
382  .false., & ! layered
383  .true. & ! timeseries
384  )
385 
386  type(inputparamdefinitiontype), parameter :: &
387  gwfchd_boundname = inputparamdefinitiontype &
388  ( &
389  'GWF', & ! component
390  'CHD', & ! subcomponent
391  'PERIOD', & ! block
392  'BOUNDNAME', & ! tag name
393  'BOUNDNAME', & ! fortran variable
394  'STRING', & ! type
395  '', & ! shape
396  'constant head boundary name', & ! longname
397  .false., & ! required
398  .false., & ! prerelease
399  .true., & ! multi-record
400  .false., & ! preserve case
401  .false., & ! layered
402  .false. & ! timeseries
403  )
404 
405  type(inputparamdefinitiontype), parameter :: &
406  gwf_chd_param_definitions(*) = &
407  [ &
408  gwfchd_auxiliary, &
409  gwfchd_auxmultname, &
410  gwfchd_boundnames, &
411  gwfchd_iprpak, &
412  gwfchd_iprflow, &
413  gwfchd_ipakcb, &
414  gwfchd_ts_filerecord, &
415  gwfchd_ts6, &
416  gwfchd_filein, &
417  gwfchd_ts6_filename, &
418  gwfchd_obs_filerecord, &
419  gwfchd_obs6, &
420  gwfchd_obs6_filename, &
421  gwfchd_inewton, &
422  gwfchd_maxbound, &
423  gwfchd_cellid, &
424  gwfchd_head, &
425  gwfchd_auxvar, &
426  gwfchd_boundname &
427  ]
428 
429  type(inputparamdefinitiontype), parameter :: &
430  gwfchd_spd = inputparamdefinitiontype &
431  ( &
432  'GWF', & ! component
433  'CHD', & ! subcomponent
434  'PERIOD', & ! block
435  'STRESS_PERIOD_DATA', & ! tag name
436  'SPD', & ! fortran variable
437  'RECARRAY CELLID HEAD AUX BOUNDNAME', & ! type
438  'MAXBOUND', & ! shape
439  '', & ! longname
440  .true., & ! required
441  .false., & ! prerelease
442  .false., & ! multi-record
443  .false., & ! preserve case
444  .false., & ! layered
445  .false. & ! timeseries
446  )
447 
448  type(inputparamdefinitiontype), parameter :: &
449  gwf_chd_aggregate_definitions(*) = &
450  [ &
451  gwfchd_spd &
452  ]
453 
454  type(inputblockdefinitiontype), parameter :: &
455  gwf_chd_block_definitions(*) = &
456  [ &
457  inputblockdefinitiontype( &
458  'OPTIONS', & ! blockname
459  .false., & ! required
460  .false., & ! aggregate
461  .false. & ! block_variable
462  ), &
463  inputblockdefinitiontype( &
464  'DIMENSIONS', & ! blockname
465  .true., & ! required
466  .false., & ! aggregate
467  .false. & ! block_variable
468  ), &
469  inputblockdefinitiontype( &
470  'PERIOD', & ! blockname
471  .true., & ! required
472  .true., & ! aggregate
473  .true. & ! block_variable
474  ) &
475  ]
476 
477 end module gwfchdinputmodule
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
gwfchdinputmodule::gwfchd_spd
type(inputparamdefinitiontype), parameter gwfchd_spd
Definition: gwf-chdidm.f90:429
gwfchdinputmodule::gwf_chd_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_chd_block_definitions
Definition: gwf-chdidm.f90:454
gwfchdinputmodule::gwf_chd_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_chd_param_definitions
Definition: gwf-chdidm.f90:405
gwfchdinputmodule::gwfchd_auxvar
type(inputparamdefinitiontype), parameter gwfchd_auxvar
Definition: gwf-chdidm.f90:367
gwfchdinputmodule::gwfchd_boundnames
type(inputparamdefinitiontype), parameter gwfchd_boundnames
Definition: gwf-chdidm.f90:82
gwfchdinputmodule::gwfchd_ts6
type(inputparamdefinitiontype), parameter gwfchd_ts6
Definition: gwf-chdidm.f90:177
gwfchdinputmodule::gwfchd_filein
type(inputparamdefinitiontype), parameter gwfchd_filein
Definition: gwf-chdidm.f90:196
gwfchdinputmodule::gwfchd_ts_filerecord
type(inputparamdefinitiontype), parameter gwfchd_ts_filerecord
Definition: gwf-chdidm.f90:158
gwfchdinputmodule::gwfchd_inewton
type(inputparamdefinitiontype), parameter gwfchd_inewton
Definition: gwf-chdidm.f90:291
gwfchdinputmodule::gwfchd_obs6
type(inputparamdefinitiontype), parameter gwfchd_obs6
Definition: gwf-chdidm.f90:253
gwfchdinputmodule::gwfchd_iprpak
type(inputparamdefinitiontype), parameter gwfchd_iprpak
Definition: gwf-chdidm.f90:101
gwfchdinputmodule::gwf_chd_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_chd_aggregate_definitions
Definition: gwf-chdidm.f90:448
gwfchdinputmodule::gwfchd_obs6_filename
type(inputparamdefinitiontype), parameter gwfchd_obs6_filename
Definition: gwf-chdidm.f90:272
gwfchdinputmodule::gwfchd_auxiliary
type(inputparamdefinitiontype), parameter gwfchd_auxiliary
Definition: gwf-chdidm.f90:44
gwfchdinputmodule::gwf_chd_subpackages
character(len=16), dimension(*), parameter, public gwf_chd_subpackages
Definition: gwf-chdidm.f90:38
gwfchdinputmodule::gwfchd_auxmultname
type(inputparamdefinitiontype), parameter gwfchd_auxmultname
Definition: gwf-chdidm.f90:63
gwfchdinputmodule::gwfchd_iprflow
type(inputparamdefinitiontype), parameter gwfchd_iprflow
Definition: gwf-chdidm.f90:120
gwfchdinputmodule::gwfchd_ipakcb
type(inputparamdefinitiontype), parameter gwfchd_ipakcb
Definition: gwf-chdidm.f90:139
gwfchdinputmodule::gwfchd_boundname
type(inputparamdefinitiontype), parameter gwfchd_boundname
Definition: gwf-chdidm.f90:386
gwfchdinputmodule::gwfchd_head
type(inputparamdefinitiontype), parameter gwfchd_head
Definition: gwf-chdidm.f90:348
gwfchdinputmodule::gwfchd_maxbound
type(inputparamdefinitiontype), parameter gwfchd_maxbound
Definition: gwf-chdidm.f90:310
gwfchdinputmodule::gwfchd_cellid
type(inputparamdefinitiontype), parameter gwfchd_cellid
Definition: gwf-chdidm.f90:329
gwfchdinputmodule::gwfchd_obs_filerecord
type(inputparamdefinitiontype), parameter gwfchd_obs_filerecord
Definition: gwf-chdidm.f90:234
gwfchdinputmodule::gwfchd_ts6_filename
type(inputparamdefinitiontype), parameter gwfchd_ts6_filename
Definition: gwf-chdidm.f90:215
gwfchdinputmodule::gwf_chd_multi_package
logical, public gwf_chd_multi_package
Definition: gwf-chdidm.f90:36
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7