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