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