MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
gwf-rividm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfrivinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_riv_param_definitions
8  public gwf_riv_aggregate_definitions
9  public gwf_riv_block_definitions
10  public gwfrivparamfoundtype
11  public gwf_riv_multi_package
12 
13  type gwfrivparamfoundtype
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 :: stage = .false.
31  logical :: cond = .false.
32  logical :: rbot = .false.
33  logical :: auxvar = .false.
34  logical :: boundname = .false.
35  end type gwfrivparamfoundtype
36 
37  logical :: gwf_riv_multi_package = .true.
38 
39  type(inputparamdefinitiontype), parameter :: &
40  gwfriv_auxiliary = inputparamdefinitiontype &
41  ( &
42  'GWF', & ! component
43  'RIV', & ! subcomponent
44  'OPTIONS', & ! block
45  'AUXILIARY', & ! tag name
46  'AUXILIARY', & ! fortran variable
47  'STRING', & ! type
48  'NAUX', & ! shape
49  .false., & ! required
50  .false., & ! multi-record
51  .false., & ! preserve case
52  .false., & ! layered
53  .false. & ! timeseries
54  )
55 
56  type(inputparamdefinitiontype), parameter :: &
57  gwfriv_auxmultname = inputparamdefinitiontype &
58  ( &
59  'GWF', & ! component
60  'RIV', & ! subcomponent
61  'OPTIONS', & ! block
62  'AUXMULTNAME', & ! tag name
63  'AUXMULTNAME', & ! fortran variable
64  'STRING', & ! type
65  '', & ! shape
66  .false., & ! required
67  .false., & ! multi-record
68  .false., & ! preserve case
69  .false., & ! layered
70  .false. & ! timeseries
71  )
72 
73  type(inputparamdefinitiontype), parameter :: &
74  gwfriv_boundnames = inputparamdefinitiontype &
75  ( &
76  'GWF', & ! component
77  'RIV', & ! subcomponent
78  'OPTIONS', & ! block
79  'BOUNDNAMES', & ! tag name
80  'BOUNDNAMES', & ! fortran variable
81  'KEYWORD', & ! type
82  '', & ! shape
83  .false., & ! required
84  .false., & ! multi-record
85  .false., & ! preserve case
86  .false., & ! layered
87  .false. & ! timeseries
88  )
89 
90  type(inputparamdefinitiontype), parameter :: &
91  gwfriv_iprpak = inputparamdefinitiontype &
92  ( &
93  'GWF', & ! component
94  'RIV', & ! subcomponent
95  'OPTIONS', & ! block
96  'PRINT_INPUT', & ! tag name
97  'IPRPAK', & ! fortran variable
98  'KEYWORD', & ! type
99  '', & ! shape
100  .false., & ! required
101  .false., & ! multi-record
102  .false., & ! preserve case
103  .false., & ! layered
104  .false. & ! timeseries
105  )
106 
107  type(inputparamdefinitiontype), parameter :: &
108  gwfriv_iprflow = inputparamdefinitiontype &
109  ( &
110  'GWF', & ! component
111  'RIV', & ! subcomponent
112  'OPTIONS', & ! block
113  'PRINT_FLOWS', & ! tag name
114  'IPRFLOW', & ! fortran variable
115  'KEYWORD', & ! type
116  '', & ! shape
117  .false., & ! required
118  .false., & ! multi-record
119  .false., & ! preserve case
120  .false., & ! layered
121  .false. & ! timeseries
122  )
123 
124  type(inputparamdefinitiontype), parameter :: &
125  gwfriv_ipakcb = inputparamdefinitiontype &
126  ( &
127  'GWF', & ! component
128  'RIV', & ! subcomponent
129  'OPTIONS', & ! block
130  'SAVE_FLOWS', & ! tag name
131  'IPAKCB', & ! fortran variable
132  'KEYWORD', & ! type
133  '', & ! shape
134  .false., & ! required
135  .false., & ! multi-record
136  .false., & ! preserve case
137  .false., & ! layered
138  .false. & ! timeseries
139  )
140 
141  type(inputparamdefinitiontype), parameter :: &
142  gwfriv_ts_filerecord = inputparamdefinitiontype &
143  ( &
144  'GWF', & ! component
145  'RIV', & ! subcomponent
146  'OPTIONS', & ! block
147  'TS_FILERECORD', & ! tag name
148  'TS_FILERECORD', & ! fortran variable
149  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
150  '', & ! shape
151  .false., & ! required
152  .false., & ! multi-record
153  .false., & ! preserve case
154  .false., & ! layered
155  .false. & ! timeseries
156  )
157 
158  type(inputparamdefinitiontype), parameter :: &
159  gwfriv_ts6 = inputparamdefinitiontype &
160  ( &
161  'GWF', & ! component
162  'RIV', & ! subcomponent
163  'OPTIONS', & ! block
164  'TS6', & ! tag name
165  'TS6', & ! fortran variable
166  'KEYWORD', & ! type
167  '', & ! shape
168  .true., & ! required
169  .true., & ! multi-record
170  .false., & ! preserve case
171  .false., & ! layered
172  .false. & ! timeseries
173  )
174 
175  type(inputparamdefinitiontype), parameter :: &
176  gwfriv_filein = inputparamdefinitiontype &
177  ( &
178  'GWF', & ! component
179  'RIV', & ! subcomponent
180  'OPTIONS', & ! block
181  'FILEIN', & ! tag name
182  'FILEIN', & ! fortran variable
183  'KEYWORD', & ! type
184  '', & ! shape
185  .true., & ! required
186  .true., & ! multi-record
187  .false., & ! preserve case
188  .false., & ! layered
189  .false. & ! timeseries
190  )
191 
192  type(inputparamdefinitiontype), parameter :: &
193  gwfriv_ts6_filename = inputparamdefinitiontype &
194  ( &
195  'GWF', & ! component
196  'RIV', & ! subcomponent
197  'OPTIONS', & ! block
198  'TS6_FILENAME', & ! tag name
199  'TS6_FILENAME', & ! fortran variable
200  'STRING', & ! type
201  '', & ! shape
202  .true., & ! required
203  .true., & ! multi-record
204  .true., & ! preserve case
205  .false., & ! layered
206  .false. & ! timeseries
207  )
208 
209  type(inputparamdefinitiontype), parameter :: &
210  gwfriv_obs_filerecord = inputparamdefinitiontype &
211  ( &
212  'GWF', & ! component
213  'RIV', & ! subcomponent
214  'OPTIONS', & ! block
215  'OBS_FILERECORD', & ! tag name
216  'OBS_FILERECORD', & ! fortran variable
217  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
218  '', & ! shape
219  .false., & ! required
220  .false., & ! multi-record
221  .false., & ! preserve case
222  .false., & ! layered
223  .false. & ! timeseries
224  )
225 
226  type(inputparamdefinitiontype), parameter :: &
227  gwfriv_obs6 = inputparamdefinitiontype &
228  ( &
229  'GWF', & ! component
230  'RIV', & ! subcomponent
231  'OPTIONS', & ! block
232  'OBS6', & ! tag name
233  'OBS6', & ! fortran variable
234  'KEYWORD', & ! type
235  '', & ! shape
236  .true., & ! required
237  .true., & ! multi-record
238  .false., & ! preserve case
239  .false., & ! layered
240  .false. & ! timeseries
241  )
242 
243  type(inputparamdefinitiontype), parameter :: &
244  gwfriv_obs6_filename = inputparamdefinitiontype &
245  ( &
246  'GWF', & ! component
247  'RIV', & ! subcomponent
248  'OPTIONS', & ! block
249  'OBS6_FILENAME', & ! tag name
250  'OBS6_FILENAME', & ! fortran variable
251  'STRING', & ! type
252  '', & ! shape
253  .true., & ! required
254  .true., & ! multi-record
255  .true., & ! preserve case
256  .false., & ! layered
257  .false. & ! timeseries
258  )
259 
260  type(inputparamdefinitiontype), parameter :: &
261  gwfriv_mover = inputparamdefinitiontype &
262  ( &
263  'GWF', & ! component
264  'RIV', & ! subcomponent
265  'OPTIONS', & ! block
266  'MOVER', & ! tag name
267  'MOVER', & ! fortran variable
268  'KEYWORD', & ! type
269  '', & ! shape
270  .false., & ! required
271  .false., & ! multi-record
272  .false., & ! preserve case
273  .false., & ! layered
274  .false. & ! timeseries
275  )
276 
277  type(inputparamdefinitiontype), parameter :: &
278  gwfriv_maxbound = inputparamdefinitiontype &
279  ( &
280  'GWF', & ! component
281  'RIV', & ! subcomponent
282  'DIMENSIONS', & ! block
283  'MAXBOUND', & ! tag name
284  'MAXBOUND', & ! fortran variable
285  'INTEGER', & ! type
286  '', & ! shape
287  .true., & ! required
288  .false., & ! multi-record
289  .false., & ! preserve case
290  .false., & ! layered
291  .false. & ! timeseries
292  )
293 
294  type(inputparamdefinitiontype), parameter :: &
295  gwfriv_cellid = inputparamdefinitiontype &
296  ( &
297  'GWF', & ! component
298  'RIV', & ! subcomponent
299  'PERIOD', & ! block
300  'CELLID', & ! tag name
301  'CELLID', & ! fortran variable
302  'INTEGER1D', & ! type
303  'NCELLDIM', & ! shape
304  .true., & ! required
305  .true., & ! multi-record
306  .false., & ! preserve case
307  .false., & ! layered
308  .false. & ! timeseries
309  )
310 
311  type(inputparamdefinitiontype), parameter :: &
312  gwfriv_stage = inputparamdefinitiontype &
313  ( &
314  'GWF', & ! component
315  'RIV', & ! subcomponent
316  'PERIOD', & ! block
317  'STAGE', & ! tag name
318  'STAGE', & ! fortran variable
319  'DOUBLE', & ! type
320  '', & ! shape
321  .true., & ! required
322  .true., & ! multi-record
323  .false., & ! preserve case
324  .false., & ! layered
325  .true. & ! timeseries
326  )
327 
328  type(inputparamdefinitiontype), parameter :: &
329  gwfriv_cond = inputparamdefinitiontype &
330  ( &
331  'GWF', & ! component
332  'RIV', & ! subcomponent
333  'PERIOD', & ! block
334  'COND', & ! tag name
335  'COND', & ! fortran variable
336  'DOUBLE', & ! type
337  '', & ! shape
338  .true., & ! required
339  .true., & ! multi-record
340  .false., & ! preserve case
341  .false., & ! layered
342  .true. & ! timeseries
343  )
344 
345  type(inputparamdefinitiontype), parameter :: &
346  gwfriv_rbot = inputparamdefinitiontype &
347  ( &
348  'GWF', & ! component
349  'RIV', & ! subcomponent
350  'PERIOD', & ! block
351  'RBOT', & ! tag name
352  'RBOT', & ! fortran variable
353  'DOUBLE', & ! type
354  '', & ! shape
355  .true., & ! required
356  .true., & ! multi-record
357  .false., & ! preserve case
358  .false., & ! layered
359  .true. & ! timeseries
360  )
361 
362  type(inputparamdefinitiontype), parameter :: &
363  gwfriv_auxvar = inputparamdefinitiontype &
364  ( &
365  'GWF', & ! component
366  'RIV', & ! subcomponent
367  'PERIOD', & ! block
368  'AUX', & ! tag name
369  'AUXVAR', & ! fortran variable
370  'DOUBLE1D', & ! type
371  'NAUX', & ! shape
372  .false., & ! required
373  .true., & ! multi-record
374  .false., & ! preserve case
375  .false., & ! layered
376  .true. & ! timeseries
377  )
378 
379  type(inputparamdefinitiontype), parameter :: &
380  gwfriv_boundname = inputparamdefinitiontype &
381  ( &
382  'GWF', & ! component
383  'RIV', & ! subcomponent
384  'PERIOD', & ! block
385  'BOUNDNAME', & ! tag name
386  'BOUNDNAME', & ! fortran variable
387  'STRING', & ! type
388  '', & ! shape
389  .false., & ! required
390  .true., & ! multi-record
391  .false., & ! preserve case
392  .false., & ! layered
393  .false. & ! timeseries
394  )
395 
396  type(inputparamdefinitiontype), parameter :: &
397  gwf_riv_param_definitions(*) = &
398  [ &
399  gwfriv_auxiliary, &
400  gwfriv_auxmultname, &
401  gwfriv_boundnames, &
402  gwfriv_iprpak, &
403  gwfriv_iprflow, &
404  gwfriv_ipakcb, &
405  gwfriv_ts_filerecord, &
406  gwfriv_ts6, &
407  gwfriv_filein, &
408  gwfriv_ts6_filename, &
409  gwfriv_obs_filerecord, &
410  gwfriv_obs6, &
411  gwfriv_obs6_filename, &
412  gwfriv_mover, &
413  gwfriv_maxbound, &
414  gwfriv_cellid, &
415  gwfriv_stage, &
416  gwfriv_cond, &
417  gwfriv_rbot, &
418  gwfriv_auxvar, &
419  gwfriv_boundname &
420  ]
421 
422  type(inputparamdefinitiontype), parameter :: &
423  gwfriv_spd = inputparamdefinitiontype &
424  ( &
425  'GWF', & ! component
426  'RIV', & ! subcomponent
427  'PERIOD', & ! block
428  'STRESS_PERIOD_DATA', & ! tag name
429  'SPD', & ! fortran variable
430  'RECARRAY CELLID STAGE COND RBOT AUX BOUNDNAME', & ! type
431  'MAXBOUND', & ! shape
432  .true., & ! required
433  .false., & ! multi-record
434  .false., & ! preserve case
435  .false., & ! layered
436  .false. & ! timeseries
437  )
438 
439  type(inputparamdefinitiontype), parameter :: &
440  gwf_riv_aggregate_definitions(*) = &
441  [ &
442  gwfriv_spd &
443  ]
444 
445  type(inputblockdefinitiontype), parameter :: &
446  gwf_riv_block_definitions(*) = &
447  [ &
448  inputblockdefinitiontype( &
449  'OPTIONS', & ! blockname
450  .false., & ! required
451  .false., & ! aggregate
452  .false. & ! block_variable
453  ), &
454  inputblockdefinitiontype( &
455  'DIMENSIONS', & ! blockname
456  .true., & ! required
457  .false., & ! aggregate
458  .false. & ! block_variable
459  ), &
460  inputblockdefinitiontype( &
461  'PERIOD', & ! blockname
462  .true., & ! required
463  .true., & ! aggregate
464  .true. & ! block_variable
465  ) &
466  ]
467 
468 end module gwfrivinputmodule
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
gwfrivinputmodule::gwfriv_ts6
type(inputparamdefinitiontype), parameter gwfriv_ts6
Definition: gwf-rividm.f90:158
gwfrivinputmodule::gwfriv_boundnames
type(inputparamdefinitiontype), parameter gwfriv_boundnames
Definition: gwf-rividm.f90:73
gwfrivinputmodule::gwfriv_ts_filerecord
type(inputparamdefinitiontype), parameter gwfriv_ts_filerecord
Definition: gwf-rividm.f90:141
gwfrivinputmodule::gwfriv_ipakcb
type(inputparamdefinitiontype), parameter gwfriv_ipakcb
Definition: gwf-rividm.f90:124
gwfrivinputmodule::gwfriv_iprflow
type(inputparamdefinitiontype), parameter gwfriv_iprflow
Definition: gwf-rividm.f90:107
gwfrivinputmodule::gwf_riv_multi_package
logical, public gwf_riv_multi_package
Definition: gwf-rividm.f90:37
gwfrivinputmodule::gwf_riv_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_riv_param_definitions
Definition: gwf-rividm.f90:396
gwfrivinputmodule::gwf_riv_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_riv_aggregate_definitions
Definition: gwf-rividm.f90:439
gwfrivinputmodule::gwfriv_rbot
type(inputparamdefinitiontype), parameter gwfriv_rbot
Definition: gwf-rividm.f90:345
gwfrivinputmodule::gwfriv_obs_filerecord
type(inputparamdefinitiontype), parameter gwfriv_obs_filerecord
Definition: gwf-rividm.f90:209
gwfrivinputmodule::gwfriv_maxbound
type(inputparamdefinitiontype), parameter gwfriv_maxbound
Definition: gwf-rividm.f90:277
gwfrivinputmodule::gwfriv_mover
type(inputparamdefinitiontype), parameter gwfriv_mover
Definition: gwf-rividm.f90:260
gwfrivinputmodule::gwfriv_cellid
type(inputparamdefinitiontype), parameter gwfriv_cellid
Definition: gwf-rividm.f90:294
gwfrivinputmodule::gwf_riv_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_riv_block_definitions
Definition: gwf-rividm.f90:445
gwfrivinputmodule::gwfriv_auxvar
type(inputparamdefinitiontype), parameter gwfriv_auxvar
Definition: gwf-rividm.f90:362
gwfrivinputmodule::gwfriv_auxiliary
type(inputparamdefinitiontype), parameter gwfriv_auxiliary
Definition: gwf-rividm.f90:39
gwfrivinputmodule::gwfriv_filein
type(inputparamdefinitiontype), parameter gwfriv_filein
Definition: gwf-rividm.f90:175
gwfrivinputmodule::gwfriv_boundname
type(inputparamdefinitiontype), parameter gwfriv_boundname
Definition: gwf-rividm.f90:379
gwfrivinputmodule::gwfriv_auxmultname
type(inputparamdefinitiontype), parameter gwfriv_auxmultname
Definition: gwf-rividm.f90:56
gwfrivinputmodule::gwfriv_ts6_filename
type(inputparamdefinitiontype), parameter gwfriv_ts6_filename
Definition: gwf-rividm.f90:192
gwfrivinputmodule::gwfriv_iprpak
type(inputparamdefinitiontype), parameter gwfriv_iprpak
Definition: gwf-rividm.f90:90
gwfrivinputmodule::gwfriv_obs6
type(inputparamdefinitiontype), parameter gwfriv_obs6
Definition: gwf-rividm.f90:226
gwfrivinputmodule::gwfriv_obs6_filename
type(inputparamdefinitiontype), parameter gwfriv_obs6_filename
Definition: gwf-rividm.f90:243
gwfrivinputmodule::gwfriv_spd
type(inputparamdefinitiontype), parameter gwfriv_spd
Definition: gwf-rividm.f90:422
gwfrivinputmodule::gwfriv_cond
type(inputparamdefinitiontype), parameter gwfriv_cond
Definition: gwf-rividm.f90:328
gwfrivinputmodule::gwfriv_stage
type(inputparamdefinitiontype), parameter gwfriv_stage
Definition: gwf-rividm.f90:311
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7