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