MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
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 
13  type gwfghbparamfoundtype
14  logical :: auxiliary = .false.
15  logical :: auxmultname = .false.
16  logical :: boundnames = .false.
17  logical :: iprpak = .false.
18  logical :: iprflow = .false.
19  logical :: ipakcb = .false.
20  logical :: ts_filerecord = .false.
21  logical :: ts6 = .false.
22  logical :: filein = .false.
23  logical :: ts6_filename = .false.
24  logical :: obs_filerecord = .false.
25  logical :: obs6 = .false.
26  logical :: obs6_filename = .false.
27  logical :: mover = .false.
28  logical :: maxbound = .false.
29  logical :: cellid = .false.
30  logical :: bhead = .false.
31  logical :: cond = .false.
32  logical :: auxvar = .false.
33  logical :: boundname = .false.
34  end type gwfghbparamfoundtype
35 
36  logical :: gwf_ghb_multi_package = .true.
37 
38  type(inputparamdefinitiontype), parameter :: &
39  gwfghb_auxiliary = inputparamdefinitiontype &
40  ( &
41  'GWF', & ! component
42  'GHB', & ! subcomponent
43  'OPTIONS', & ! block
44  'AUXILIARY', & ! tag name
45  'AUXILIARY', & ! fortran variable
46  'STRING', & ! type
47  'NAUX', & ! shape
48  .false., & ! required
49  .false., & ! multi-record
50  .false., & ! preserve case
51  .false., & ! layered
52  .false. & ! timeseries
53  )
54 
55  type(inputparamdefinitiontype), parameter :: &
56  gwfghb_auxmultname = inputparamdefinitiontype &
57  ( &
58  'GWF', & ! component
59  'GHB', & ! subcomponent
60  'OPTIONS', & ! block
61  'AUXMULTNAME', & ! tag name
62  'AUXMULTNAME', & ! fortran variable
63  'STRING', & ! type
64  '', & ! shape
65  .false., & ! required
66  .false., & ! multi-record
67  .false., & ! preserve case
68  .false., & ! layered
69  .false. & ! timeseries
70  )
71 
72  type(inputparamdefinitiontype), parameter :: &
73  gwfghb_boundnames = inputparamdefinitiontype &
74  ( &
75  'GWF', & ! component
76  'GHB', & ! subcomponent
77  'OPTIONS', & ! block
78  'BOUNDNAMES', & ! tag name
79  'BOUNDNAMES', & ! fortran variable
80  'KEYWORD', & ! type
81  '', & ! shape
82  .false., & ! required
83  .false., & ! multi-record
84  .false., & ! preserve case
85  .false., & ! layered
86  .false. & ! timeseries
87  )
88 
89  type(inputparamdefinitiontype), parameter :: &
90  gwfghb_iprpak = inputparamdefinitiontype &
91  ( &
92  'GWF', & ! component
93  'GHB', & ! subcomponent
94  'OPTIONS', & ! block
95  'PRINT_INPUT', & ! tag name
96  'IPRPAK', & ! fortran variable
97  'KEYWORD', & ! type
98  '', & ! shape
99  .false., & ! required
100  .false., & ! multi-record
101  .false., & ! preserve case
102  .false., & ! layered
103  .false. & ! timeseries
104  )
105 
106  type(inputparamdefinitiontype), parameter :: &
107  gwfghb_iprflow = inputparamdefinitiontype &
108  ( &
109  'GWF', & ! component
110  'GHB', & ! subcomponent
111  'OPTIONS', & ! block
112  'PRINT_FLOWS', & ! tag name
113  'IPRFLOW', & ! fortran variable
114  'KEYWORD', & ! type
115  '', & ! shape
116  .false., & ! required
117  .false., & ! multi-record
118  .false., & ! preserve case
119  .false., & ! layered
120  .false. & ! timeseries
121  )
122 
123  type(inputparamdefinitiontype), parameter :: &
124  gwfghb_ipakcb = inputparamdefinitiontype &
125  ( &
126  'GWF', & ! component
127  'GHB', & ! subcomponent
128  'OPTIONS', & ! block
129  'SAVE_FLOWS', & ! tag name
130  'IPAKCB', & ! fortran variable
131  'KEYWORD', & ! type
132  '', & ! shape
133  .false., & ! required
134  .false., & ! multi-record
135  .false., & ! preserve case
136  .false., & ! layered
137  .false. & ! timeseries
138  )
139 
140  type(inputparamdefinitiontype), parameter :: &
141  gwfghb_ts_filerecord = inputparamdefinitiontype &
142  ( &
143  'GWF', & ! component
144  'GHB', & ! subcomponent
145  'OPTIONS', & ! block
146  'TS_FILERECORD', & ! tag name
147  'TS_FILERECORD', & ! fortran variable
148  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
149  '', & ! shape
150  .false., & ! required
151  .false., & ! multi-record
152  .false., & ! preserve case
153  .false., & ! layered
154  .false. & ! timeseries
155  )
156 
157  type(inputparamdefinitiontype), parameter :: &
158  gwfghb_ts6 = inputparamdefinitiontype &
159  ( &
160  'GWF', & ! component
161  'GHB', & ! subcomponent
162  'OPTIONS', & ! block
163  'TS6', & ! tag name
164  'TS6', & ! fortran variable
165  'KEYWORD', & ! type
166  '', & ! shape
167  .true., & ! required
168  .true., & ! multi-record
169  .false., & ! preserve case
170  .false., & ! layered
171  .false. & ! timeseries
172  )
173 
174  type(inputparamdefinitiontype), parameter :: &
175  gwfghb_filein = inputparamdefinitiontype &
176  ( &
177  'GWF', & ! component
178  'GHB', & ! subcomponent
179  'OPTIONS', & ! block
180  'FILEIN', & ! tag name
181  'FILEIN', & ! fortran variable
182  'KEYWORD', & ! type
183  '', & ! shape
184  .true., & ! required
185  .true., & ! multi-record
186  .false., & ! preserve case
187  .false., & ! layered
188  .false. & ! timeseries
189  )
190 
191  type(inputparamdefinitiontype), parameter :: &
192  gwfghb_ts6_filename = inputparamdefinitiontype &
193  ( &
194  'GWF', & ! component
195  'GHB', & ! subcomponent
196  'OPTIONS', & ! block
197  'TS6_FILENAME', & ! tag name
198  'TS6_FILENAME', & ! fortran variable
199  'STRING', & ! type
200  '', & ! shape
201  .true., & ! required
202  .true., & ! multi-record
203  .true., & ! preserve case
204  .false., & ! layered
205  .false. & ! timeseries
206  )
207 
208  type(inputparamdefinitiontype), parameter :: &
209  gwfghb_obs_filerecord = inputparamdefinitiontype &
210  ( &
211  'GWF', & ! component
212  'GHB', & ! subcomponent
213  'OPTIONS', & ! block
214  'OBS_FILERECORD', & ! tag name
215  'OBS_FILERECORD', & ! fortran variable
216  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
217  '', & ! shape
218  .false., & ! required
219  .false., & ! multi-record
220  .false., & ! preserve case
221  .false., & ! layered
222  .false. & ! timeseries
223  )
224 
225  type(inputparamdefinitiontype), parameter :: &
226  gwfghb_obs6 = inputparamdefinitiontype &
227  ( &
228  'GWF', & ! component
229  'GHB', & ! subcomponent
230  'OPTIONS', & ! block
231  'OBS6', & ! tag name
232  'OBS6', & ! fortran variable
233  'KEYWORD', & ! type
234  '', & ! shape
235  .true., & ! required
236  .true., & ! multi-record
237  .false., & ! preserve case
238  .false., & ! layered
239  .false. & ! timeseries
240  )
241 
242  type(inputparamdefinitiontype), parameter :: &
243  gwfghb_obs6_filename = inputparamdefinitiontype &
244  ( &
245  'GWF', & ! component
246  'GHB', & ! subcomponent
247  'OPTIONS', & ! block
248  'OBS6_FILENAME', & ! tag name
249  'OBS6_FILENAME', & ! fortran variable
250  'STRING', & ! type
251  '', & ! shape
252  .true., & ! required
253  .true., & ! multi-record
254  .true., & ! preserve case
255  .false., & ! layered
256  .false. & ! timeseries
257  )
258 
259  type(inputparamdefinitiontype), parameter :: &
260  gwfghb_mover = inputparamdefinitiontype &
261  ( &
262  'GWF', & ! component
263  'GHB', & ! subcomponent
264  'OPTIONS', & ! block
265  'MOVER', & ! tag name
266  'MOVER', & ! fortran variable
267  'KEYWORD', & ! type
268  '', & ! shape
269  .false., & ! required
270  .false., & ! multi-record
271  .false., & ! preserve case
272  .false., & ! layered
273  .false. & ! timeseries
274  )
275 
276  type(inputparamdefinitiontype), parameter :: &
277  gwfghb_maxbound = inputparamdefinitiontype &
278  ( &
279  'GWF', & ! component
280  'GHB', & ! subcomponent
281  'DIMENSIONS', & ! block
282  'MAXBOUND', & ! tag name
283  'MAXBOUND', & ! fortran variable
284  'INTEGER', & ! type
285  '', & ! shape
286  .true., & ! required
287  .false., & ! multi-record
288  .false., & ! preserve case
289  .false., & ! layered
290  .false. & ! timeseries
291  )
292 
293  type(inputparamdefinitiontype), parameter :: &
294  gwfghb_cellid = inputparamdefinitiontype &
295  ( &
296  'GWF', & ! component
297  'GHB', & ! subcomponent
298  'PERIOD', & ! block
299  'CELLID', & ! tag name
300  'CELLID', & ! fortran variable
301  'INTEGER1D', & ! type
302  'NCELLDIM', & ! shape
303  .true., & ! required
304  .true., & ! multi-record
305  .false., & ! preserve case
306  .false., & ! layered
307  .false. & ! timeseries
308  )
309 
310  type(inputparamdefinitiontype), parameter :: &
311  gwfghb_bhead = inputparamdefinitiontype &
312  ( &
313  'GWF', & ! component
314  'GHB', & ! subcomponent
315  'PERIOD', & ! block
316  'BHEAD', & ! tag name
317  'BHEAD', & ! fortran variable
318  'DOUBLE', & ! type
319  '', & ! shape
320  .true., & ! required
321  .true., & ! multi-record
322  .false., & ! preserve case
323  .false., & ! layered
324  .true. & ! timeseries
325  )
326 
327  type(inputparamdefinitiontype), parameter :: &
328  gwfghb_cond = inputparamdefinitiontype &
329  ( &
330  'GWF', & ! component
331  'GHB', & ! subcomponent
332  'PERIOD', & ! block
333  'COND', & ! tag name
334  'COND', & ! fortran variable
335  'DOUBLE', & ! type
336  '', & ! shape
337  .true., & ! required
338  .true., & ! multi-record
339  .false., & ! preserve case
340  .false., & ! layered
341  .true. & ! timeseries
342  )
343 
344  type(inputparamdefinitiontype), parameter :: &
345  gwfghb_auxvar = inputparamdefinitiontype &
346  ( &
347  'GWF', & ! component
348  'GHB', & ! subcomponent
349  'PERIOD', & ! block
350  'AUX', & ! tag name
351  'AUXVAR', & ! fortran variable
352  'DOUBLE1D', & ! type
353  'NAUX', & ! shape
354  .false., & ! required
355  .true., & ! multi-record
356  .false., & ! preserve case
357  .false., & ! layered
358  .true. & ! timeseries
359  )
360 
361  type(inputparamdefinitiontype), parameter :: &
362  gwfghb_boundname = inputparamdefinitiontype &
363  ( &
364  'GWF', & ! component
365  'GHB', & ! subcomponent
366  'PERIOD', & ! block
367  'BOUNDNAME', & ! tag name
368  'BOUNDNAME', & ! fortran variable
369  'STRING', & ! type
370  '', & ! shape
371  .false., & ! required
372  .true., & ! multi-record
373  .false., & ! preserve case
374  .false., & ! layered
375  .false. & ! timeseries
376  )
377 
378  type(inputparamdefinitiontype), parameter :: &
379  gwf_ghb_param_definitions(*) = &
380  [ &
381  gwfghb_auxiliary, &
382  gwfghb_auxmultname, &
383  gwfghb_boundnames, &
384  gwfghb_iprpak, &
385  gwfghb_iprflow, &
386  gwfghb_ipakcb, &
387  gwfghb_ts_filerecord, &
388  gwfghb_ts6, &
389  gwfghb_filein, &
390  gwfghb_ts6_filename, &
391  gwfghb_obs_filerecord, &
392  gwfghb_obs6, &
393  gwfghb_obs6_filename, &
394  gwfghb_mover, &
395  gwfghb_maxbound, &
396  gwfghb_cellid, &
397  gwfghb_bhead, &
398  gwfghb_cond, &
399  gwfghb_auxvar, &
400  gwfghb_boundname &
401  ]
402 
403  type(inputparamdefinitiontype), parameter :: &
404  gwfghb_spd = inputparamdefinitiontype &
405  ( &
406  'GWF', & ! component
407  'GHB', & ! subcomponent
408  'PERIOD', & ! block
409  'STRESS_PERIOD_DATA', & ! tag name
410  'SPD', & ! fortran variable
411  'RECARRAY CELLID BHEAD COND AUX BOUNDNAME', & ! type
412  'MAXBOUND', & ! shape
413  .true., & ! required
414  .false., & ! multi-record
415  .false., & ! preserve case
416  .false., & ! layered
417  .false. & ! timeseries
418  )
419 
420  type(inputparamdefinitiontype), parameter :: &
421  gwf_ghb_aggregate_definitions(*) = &
422  [ &
423  gwfghb_spd &
424  ]
425 
426  type(inputblockdefinitiontype), parameter :: &
427  gwf_ghb_block_definitions(*) = &
428  [ &
429  inputblockdefinitiontype( &
430  'OPTIONS', & ! blockname
431  .false., & ! required
432  .false., & ! aggregate
433  .false. & ! block_variable
434  ), &
435  inputblockdefinitiontype( &
436  'DIMENSIONS', & ! blockname
437  .true., & ! required
438  .false., & ! aggregate
439  .false. & ! block_variable
440  ), &
441  inputblockdefinitiontype( &
442  'PERIOD', & ! blockname
443  .true., & ! required
444  .true., & ! aggregate
445  .true. & ! block_variable
446  ) &
447  ]
448 
449 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:225
gwfghbinputmodule::gwf_ghb_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_ghb_aggregate_definitions
Definition: gwf-ghbidm.f90:420
gwfghbinputmodule::gwfghb_cellid
type(inputparamdefinitiontype), parameter gwfghb_cellid
Definition: gwf-ghbidm.f90:293
gwfghbinputmodule::gwfghb_auxmultname
type(inputparamdefinitiontype), parameter gwfghb_auxmultname
Definition: gwf-ghbidm.f90:55
gwfghbinputmodule::gwf_ghb_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_ghb_block_definitions
Definition: gwf-ghbidm.f90:426
gwfghbinputmodule::gwfghb_ts6_filename
type(inputparamdefinitiontype), parameter gwfghb_ts6_filename
Definition: gwf-ghbidm.f90:191
gwfghbinputmodule::gwfghb_mover
type(inputparamdefinitiontype), parameter gwfghb_mover
Definition: gwf-ghbidm.f90:259
gwfghbinputmodule::gwfghb_obs_filerecord
type(inputparamdefinitiontype), parameter gwfghb_obs_filerecord
Definition: gwf-ghbidm.f90:208
gwfghbinputmodule::gwfghb_iprpak
type(inputparamdefinitiontype), parameter gwfghb_iprpak
Definition: gwf-ghbidm.f90:89
gwfghbinputmodule::gwfghb_spd
type(inputparamdefinitiontype), parameter gwfghb_spd
Definition: gwf-ghbidm.f90:403
gwfghbinputmodule::gwfghb_filein
type(inputparamdefinitiontype), parameter gwfghb_filein
Definition: gwf-ghbidm.f90:174
gwfghbinputmodule::gwf_ghb_multi_package
logical, public gwf_ghb_multi_package
Definition: gwf-ghbidm.f90:36
gwfghbinputmodule::gwfghb_ts6
type(inputparamdefinitiontype), parameter gwfghb_ts6
Definition: gwf-ghbidm.f90:157
gwfghbinputmodule::gwfghb_ts_filerecord
type(inputparamdefinitiontype), parameter gwfghb_ts_filerecord
Definition: gwf-ghbidm.f90:140
gwfghbinputmodule::gwfghb_boundnames
type(inputparamdefinitiontype), parameter gwfghb_boundnames
Definition: gwf-ghbidm.f90:72
gwfghbinputmodule::gwfghb_iprflow
type(inputparamdefinitiontype), parameter gwfghb_iprflow
Definition: gwf-ghbidm.f90:106
gwfghbinputmodule::gwfghb_maxbound
type(inputparamdefinitiontype), parameter gwfghb_maxbound
Definition: gwf-ghbidm.f90:276
gwfghbinputmodule::gwfghb_boundname
type(inputparamdefinitiontype), parameter gwfghb_boundname
Definition: gwf-ghbidm.f90:361
gwfghbinputmodule::gwfghb_ipakcb
type(inputparamdefinitiontype), parameter gwfghb_ipakcb
Definition: gwf-ghbidm.f90:123
gwfghbinputmodule::gwfghb_auxiliary
type(inputparamdefinitiontype), parameter gwfghb_auxiliary
Definition: gwf-ghbidm.f90:38
gwfghbinputmodule::gwfghb_auxvar
type(inputparamdefinitiontype), parameter gwfghb_auxvar
Definition: gwf-ghbidm.f90:344
gwfghbinputmodule::gwfghb_cond
type(inputparamdefinitiontype), parameter gwfghb_cond
Definition: gwf-ghbidm.f90:327
gwfghbinputmodule::gwfghb_obs6_filename
type(inputparamdefinitiontype), parameter gwfghb_obs6_filename
Definition: gwf-ghbidm.f90:242
gwfghbinputmodule::gwfghb_bhead
type(inputparamdefinitiontype), parameter gwfghb_bhead
Definition: gwf-ghbidm.f90:310
gwfghbinputmodule::gwf_ghb_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_ghb_param_definitions
Definition: gwf-ghbidm.f90:378
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7