MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
gwf-ghbidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfghbinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_ghb_param_definitions
8  public gwf_ghb_aggregate_definitions
9  public gwf_ghb_block_definitions
10  public gwfghbparamfoundtype
11  public gwf_ghb_multi_package
12  public gwf_ghb_subpackages
13 
14  type gwfghbparamfoundtype
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 :: mover = .false.
29  logical :: maxbound = .false.
30  logical :: cellid = .false.
31  logical :: bhead = .false.
32  logical :: cond = .false.
33  logical :: auxvar = .false.
34  logical :: boundname = .false.
35  end type gwfghbparamfoundtype
36 
37  logical :: gwf_ghb_multi_package = .true.
38 
39  character(len=16), parameter :: &
40  gwf_ghb_subpackages(*) = &
41  [ &
42  ' ' &
43  ]
44 
45  type(inputparamdefinitiontype), parameter :: &
46  gwfghb_auxiliary = inputparamdefinitiontype &
47  ( &
48  'GWF', & ! component
49  'GHB', & ! 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., & ! multi-record
58  .false., & ! preserve case
59  .false., & ! layered
60  .false. & ! timeseries
61  )
62 
63  type(inputparamdefinitiontype), parameter :: &
64  gwfghb_auxmultname = inputparamdefinitiontype &
65  ( &
66  'GWF', & ! component
67  'GHB', & ! 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., & ! multi-record
76  .false., & ! preserve case
77  .false., & ! layered
78  .false. & ! timeseries
79  )
80 
81  type(inputparamdefinitiontype), parameter :: &
82  gwfghb_boundnames = inputparamdefinitiontype &
83  ( &
84  'GWF', & ! component
85  'GHB', & ! subcomponent
86  'OPTIONS', & ! block
87  'BOUNDNAMES', & ! tag name
88  'BOUNDNAMES', & ! fortran variable
89  'KEYWORD', & ! type
90  '', & ! shape
91  '', & ! longname
92  .false., & ! required
93  .false., & ! multi-record
94  .false., & ! preserve case
95  .false., & ! layered
96  .false. & ! timeseries
97  )
98 
99  type(inputparamdefinitiontype), parameter :: &
100  gwfghb_iprpak = inputparamdefinitiontype &
101  ( &
102  'GWF', & ! component
103  'GHB', & ! 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 :: &
118  gwfghb_iprflow = inputparamdefinitiontype &
119  ( &
120  'GWF', & ! component
121  'GHB', & ! 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 :: &
136  gwfghb_ipakcb = inputparamdefinitiontype &
137  ( &
138  'GWF', & ! component
139  'GHB', & ! subcomponent
140  'OPTIONS', & ! block
141  'SAVE_FLOWS', & ! tag name
142  'IPAKCB', & ! fortran variable
143  'KEYWORD', & ! type
144  '', & ! shape
145  'save CHD 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 :: &
154  gwfghb_ts_filerecord = inputparamdefinitiontype &
155  ( &
156  'GWF', & ! component
157  'GHB', & ! subcomponent
158  'OPTIONS', & ! block
159  'TS_FILERECORD', & ! tag name
160  'TS_FILERECORD', & ! fortran variable
161  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
162  '', & ! shape
163  '', & ! longname
164  .false., & ! required
165  .false., & ! multi-record
166  .false., & ! preserve case
167  .false., & ! layered
168  .false. & ! timeseries
169  )
170 
171  type(inputparamdefinitiontype), parameter :: &
172  gwfghb_ts6 = inputparamdefinitiontype &
173  ( &
174  'GWF', & ! component
175  'GHB', & ! subcomponent
176  'OPTIONS', & ! block
177  'TS6', & ! tag name
178  'TS6', & ! fortran variable
179  'KEYWORD', & ! type
180  '', & ! shape
181  'head keyword', & ! longname
182  .true., & ! required
183  .true., & ! multi-record
184  .false., & ! preserve case
185  .false., & ! layered
186  .false. & ! timeseries
187  )
188 
189  type(inputparamdefinitiontype), parameter :: &
190  gwfghb_filein = inputparamdefinitiontype &
191  ( &
192  'GWF', & ! component
193  'GHB', & ! subcomponent
194  'OPTIONS', & ! block
195  'FILEIN', & ! tag name
196  'FILEIN', & ! fortran variable
197  'KEYWORD', & ! type
198  '', & ! shape
199  'file 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 :: &
208  gwfghb_ts6_filename = inputparamdefinitiontype &
209  ( &
210  'GWF', & ! component
211  'GHB', & ! subcomponent
212  'OPTIONS', & ! block
213  'TS6_FILENAME', & ! tag name
214  'TS6_FILENAME', & ! fortran variable
215  'STRING', & ! type
216  '', & ! shape
217  'file name of time series information', & ! longname
218  .true., & ! required
219  .true., & ! multi-record
220  .true., & ! preserve case
221  .false., & ! layered
222  .false. & ! timeseries
223  )
224 
225  type(inputparamdefinitiontype), parameter :: &
226  gwfghb_obs_filerecord = inputparamdefinitiontype &
227  ( &
228  'GWF', & ! component
229  'GHB', & ! subcomponent
230  'OPTIONS', & ! block
231  'OBS_FILERECORD', & ! tag name
232  'OBS_FILERECORD', & ! fortran variable
233  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
234  '', & ! shape
235  '', & ! longname
236  .false., & ! required
237  .false., & ! multi-record
238  .false., & ! preserve case
239  .false., & ! layered
240  .false. & ! timeseries
241  )
242 
243  type(inputparamdefinitiontype), parameter :: &
244  gwfghb_obs6 = inputparamdefinitiontype &
245  ( &
246  'GWF', & ! component
247  'GHB', & ! subcomponent
248  'OPTIONS', & ! block
249  'OBS6', & ! tag name
250  'OBS6', & ! fortran variable
251  'KEYWORD', & ! type
252  '', & ! shape
253  'obs keyword', & ! longname
254  .true., & ! required
255  .true., & ! multi-record
256  .false., & ! preserve case
257  .false., & ! layered
258  .false. & ! timeseries
259  )
260 
261  type(inputparamdefinitiontype), parameter :: &
262  gwfghb_obs6_filename = inputparamdefinitiontype &
263  ( &
264  'GWF', & ! component
265  'GHB', & ! subcomponent
266  'OPTIONS', & ! block
267  'OBS6_FILENAME', & ! tag name
268  'OBS6_FILENAME', & ! fortran variable
269  'STRING', & ! type
270  '', & ! shape
271  'obs6 input filename', & ! longname
272  .true., & ! required
273  .true., & ! multi-record
274  .true., & ! preserve case
275  .false., & ! layered
276  .false. & ! timeseries
277  )
278 
279  type(inputparamdefinitiontype), parameter :: &
280  gwfghb_mover = inputparamdefinitiontype &
281  ( &
282  'GWF', & ! component
283  'GHB', & ! subcomponent
284  'OPTIONS', & ! block
285  'MOVER', & ! tag name
286  'MOVER', & ! fortran variable
287  'KEYWORD', & ! type
288  '', & ! shape
289  '', & ! longname
290  .false., & ! required
291  .false., & ! multi-record
292  .false., & ! preserve case
293  .false., & ! layered
294  .false. & ! timeseries
295  )
296 
297  type(inputparamdefinitiontype), parameter :: &
298  gwfghb_maxbound = inputparamdefinitiontype &
299  ( &
300  'GWF', & ! component
301  'GHB', & ! subcomponent
302  'DIMENSIONS', & ! block
303  'MAXBOUND', & ! tag name
304  'MAXBOUND', & ! fortran variable
305  'INTEGER', & ! type
306  '', & ! shape
307  'maximum number of general-head boundaries', & ! longname
308  .true., & ! required
309  .false., & ! multi-record
310  .false., & ! preserve case
311  .false., & ! layered
312  .false. & ! timeseries
313  )
314 
315  type(inputparamdefinitiontype), parameter :: &
316  gwfghb_cellid = inputparamdefinitiontype &
317  ( &
318  'GWF', & ! component
319  'GHB', & ! subcomponent
320  'PERIOD', & ! block
321  'CELLID', & ! tag name
322  'CELLID', & ! fortran variable
323  'INTEGER1D', & ! type
324  'NCELLDIM', & ! shape
325  'cell identifier', & ! longname
326  .true., & ! required
327  .true., & ! multi-record
328  .false., & ! preserve case
329  .false., & ! layered
330  .false. & ! timeseries
331  )
332 
333  type(inputparamdefinitiontype), parameter :: &
334  gwfghb_bhead = inputparamdefinitiontype &
335  ( &
336  'GWF', & ! component
337  'GHB', & ! subcomponent
338  'PERIOD', & ! block
339  'BHEAD', & ! tag name
340  'BHEAD', & ! fortran variable
341  'DOUBLE', & ! type
342  '', & ! shape
343  'boundary head', & ! longname
344  .true., & ! required
345  .true., & ! multi-record
346  .false., & ! preserve case
347  .false., & ! layered
348  .true. & ! timeseries
349  )
350 
351  type(inputparamdefinitiontype), parameter :: &
352  gwfghb_cond = inputparamdefinitiontype &
353  ( &
354  'GWF', & ! component
355  'GHB', & ! subcomponent
356  'PERIOD', & ! block
357  'COND', & ! tag name
358  'COND', & ! fortran variable
359  'DOUBLE', & ! type
360  '', & ! shape
361  'boundary conductance', & ! longname
362  .true., & ! required
363  .true., & ! multi-record
364  .false., & ! preserve case
365  .false., & ! layered
366  .true. & ! timeseries
367  )
368 
369  type(inputparamdefinitiontype), parameter :: &
370  gwfghb_auxvar = inputparamdefinitiontype &
371  ( &
372  'GWF', & ! component
373  'GHB', & ! subcomponent
374  'PERIOD', & ! block
375  'AUX', & ! tag name
376  'AUXVAR', & ! fortran variable
377  'DOUBLE1D', & ! type
378  'NAUX', & ! shape
379  'auxiliary variables', & ! longname
380  .false., & ! required
381  .true., & ! multi-record
382  .false., & ! preserve case
383  .false., & ! layered
384  .true. & ! timeseries
385  )
386 
387  type(inputparamdefinitiontype), parameter :: &
388  gwfghb_boundname = inputparamdefinitiontype &
389  ( &
390  'GWF', & ! component
391  'GHB', & ! subcomponent
392  'PERIOD', & ! block
393  'BOUNDNAME', & ! tag name
394  'BOUNDNAME', & ! fortran variable
395  'STRING', & ! type
396  '', & ! shape
397  'general-head boundary name', & ! longname
398  .false., & ! required
399  .true., & ! multi-record
400  .false., & ! preserve case
401  .false., & ! layered
402  .false. & ! timeseries
403  )
404 
405  type(inputparamdefinitiontype), parameter :: &
406  gwf_ghb_param_definitions(*) = &
407  [ &
408  gwfghb_auxiliary, &
409  gwfghb_auxmultname, &
410  gwfghb_boundnames, &
411  gwfghb_iprpak, &
412  gwfghb_iprflow, &
413  gwfghb_ipakcb, &
414  gwfghb_ts_filerecord, &
415  gwfghb_ts6, &
416  gwfghb_filein, &
417  gwfghb_ts6_filename, &
418  gwfghb_obs_filerecord, &
419  gwfghb_obs6, &
420  gwfghb_obs6_filename, &
421  gwfghb_mover, &
422  gwfghb_maxbound, &
423  gwfghb_cellid, &
424  gwfghb_bhead, &
425  gwfghb_cond, &
426  gwfghb_auxvar, &
427  gwfghb_boundname &
428  ]
429 
430  type(inputparamdefinitiontype), parameter :: &
431  gwfghb_spd = inputparamdefinitiontype &
432  ( &
433  'GWF', & ! component
434  'GHB', & ! subcomponent
435  'PERIOD', & ! block
436  'STRESS_PERIOD_DATA', & ! tag name
437  'SPD', & ! fortran variable
438  'RECARRAY CELLID BHEAD COND AUX BOUNDNAME', & ! type
439  'MAXBOUND', & ! shape
440  '', & ! longname
441  .true., & ! required
442  .false., & ! multi-record
443  .false., & ! preserve case
444  .false., & ! layered
445  .false. & ! timeseries
446  )
447 
448  type(inputparamdefinitiontype), parameter :: &
449  gwf_ghb_aggregate_definitions(*) = &
450  [ &
451  gwfghb_spd &
452  ]
453 
454  type(inputblockdefinitiontype), parameter :: &
455  gwf_ghb_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 gwfghbinputmodule
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
gwfghbinputmodule::gwfghb_obs6
type(inputparamdefinitiontype), parameter gwfghb_obs6
Definition: gwf-ghbidm.f90:243
gwfghbinputmodule::gwf_ghb_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_ghb_aggregate_definitions
Definition: gwf-ghbidm.f90:448
gwfghbinputmodule::gwfghb_cellid
type(inputparamdefinitiontype), parameter gwfghb_cellid
Definition: gwf-ghbidm.f90:315
gwfghbinputmodule::gwfghb_auxmultname
type(inputparamdefinitiontype), parameter gwfghb_auxmultname
Definition: gwf-ghbidm.f90:63
gwfghbinputmodule::gwf_ghb_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_ghb_block_definitions
Definition: gwf-ghbidm.f90:454
gwfghbinputmodule::gwfghb_ts6_filename
type(inputparamdefinitiontype), parameter gwfghb_ts6_filename
Definition: gwf-ghbidm.f90:207
gwfghbinputmodule::gwfghb_mover
type(inputparamdefinitiontype), parameter gwfghb_mover
Definition: gwf-ghbidm.f90:279
gwfghbinputmodule::gwfghb_obs_filerecord
type(inputparamdefinitiontype), parameter gwfghb_obs_filerecord
Definition: gwf-ghbidm.f90:225
gwfghbinputmodule::gwfghb_iprpak
type(inputparamdefinitiontype), parameter gwfghb_iprpak
Definition: gwf-ghbidm.f90:99
gwfghbinputmodule::gwfghb_spd
type(inputparamdefinitiontype), parameter gwfghb_spd
Definition: gwf-ghbidm.f90:430
gwfghbinputmodule::gwfghb_filein
type(inputparamdefinitiontype), parameter gwfghb_filein
Definition: gwf-ghbidm.f90:189
gwfghbinputmodule::gwf_ghb_multi_package
logical, public gwf_ghb_multi_package
Definition: gwf-ghbidm.f90:37
gwfghbinputmodule::gwfghb_ts6
type(inputparamdefinitiontype), parameter gwfghb_ts6
Definition: gwf-ghbidm.f90:171
gwfghbinputmodule::gwfghb_ts_filerecord
type(inputparamdefinitiontype), parameter gwfghb_ts_filerecord
Definition: gwf-ghbidm.f90:153
gwfghbinputmodule::gwfghb_boundnames
type(inputparamdefinitiontype), parameter gwfghb_boundnames
Definition: gwf-ghbidm.f90:81
gwfghbinputmodule::gwfghb_iprflow
type(inputparamdefinitiontype), parameter gwfghb_iprflow
Definition: gwf-ghbidm.f90:117
gwfghbinputmodule::gwfghb_maxbound
type(inputparamdefinitiontype), parameter gwfghb_maxbound
Definition: gwf-ghbidm.f90:297
gwfghbinputmodule::gwfghb_boundname
type(inputparamdefinitiontype), parameter gwfghb_boundname
Definition: gwf-ghbidm.f90:387
gwfghbinputmodule::gwfghb_ipakcb
type(inputparamdefinitiontype), parameter gwfghb_ipakcb
Definition: gwf-ghbidm.f90:135
gwfghbinputmodule::gwfghb_auxiliary
type(inputparamdefinitiontype), parameter gwfghb_auxiliary
Definition: gwf-ghbidm.f90:45
gwfghbinputmodule::gwfghb_auxvar
type(inputparamdefinitiontype), parameter gwfghb_auxvar
Definition: gwf-ghbidm.f90:369
gwfghbinputmodule::gwfghb_cond
type(inputparamdefinitiontype), parameter gwfghb_cond
Definition: gwf-ghbidm.f90:351
gwfghbinputmodule::gwf_ghb_subpackages
character(len=16), dimension(*), parameter, public gwf_ghb_subpackages
Definition: gwf-ghbidm.f90:39
gwfghbinputmodule::gwfghb_obs6_filename
type(inputparamdefinitiontype), parameter gwfghb_obs6_filename
Definition: gwf-ghbidm.f90:261
gwfghbinputmodule::gwfghb_bhead
type(inputparamdefinitiontype), parameter gwfghb_bhead
Definition: gwf-ghbidm.f90:333
gwfghbinputmodule::gwf_ghb_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_ghb_param_definitions
Definition: gwf-ghbidm.f90:405
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7