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