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