MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
gwf-rchaidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfrchainputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_rcha_param_definitions
8  public gwf_rcha_aggregate_definitions
9  public gwf_rcha_block_definitions
10  public gwfrchaparamfoundtype
11  public gwf_rcha_multi_package
12  public gwf_rcha_is_advanced
13  public gwf_rcha_subpackages
14 
15  type gwfrchaparamfoundtype
16  logical :: readasarrays = .false.
17  logical :: fixed_cell = .false.
18  logical :: auxiliary = .false.
19  logical :: auxmultname = .false.
20  logical :: iprpak = .false.
21  logical :: iprflow = .false.
22  logical :: ipakcb = .false.
23  logical :: tas_filerecord = .false.
24  logical :: tas6 = .false.
25  logical :: filein = .false.
26  logical :: tas6_filename = .false.
27  logical :: obs_filerecord = .false.
28  logical :: obs6 = .false.
29  logical :: obs6_filename = .false.
30  logical :: export_nc = .false.
31  logical :: irch = .false.
32  logical :: recharge = .false.
33  logical :: auxvar = .false.
34  end type gwfrchaparamfoundtype
35 
36  logical :: gwf_rcha_multi_package = .true.
37  logical :: gwf_rcha_is_advanced = .false.
38 
39  character(len=16), parameter :: &
40  gwf_rcha_subpackages(*) = &
41  [ &
42  ' ' &
43  ]
44 
45  type(inputparamdefinitiontype), parameter :: &
46  gwfrcha_readasarrays = inputparamdefinitiontype &
47  ( &
48  'GWF', & ! component
49  'RCHA', & ! subcomponent
50  'OPTIONS', & ! block
51  'READASARRAYS', & ! tag name
52  'READASARRAYS', & ! fortran variable
53  'KEYWORD', & ! type
54  '', & ! shape
55  'use array-based input', & ! longname
56  .true., & ! required
57  .false., & ! developmode
58  .false., & ! multi-record
59  .false., & ! preserve case
60  .false., & ! layered
61  .false. & ! timeseries
62  )
63 
64  type(inputparamdefinitiontype), parameter :: &
65  gwfrcha_fixed_cell = inputparamdefinitiontype &
66  ( &
67  'GWF', & ! component
68  'RCHA', & ! subcomponent
69  'OPTIONS', & ! block
70  'FIXED_CELL', & ! tag name
71  'FIXED_CELL', & ! fortran variable
72  'KEYWORD', & ! type
73  '', & ! shape
74  'if cell is dry do not apply recharge to underlying cell', & ! longname
75  .false., & ! required
76  .false., & ! developmode
77  .false., & ! multi-record
78  .false., & ! preserve case
79  .false., & ! layered
80  .false. & ! timeseries
81  )
82 
83  type(inputparamdefinitiontype), parameter :: &
84  gwfrcha_auxiliary = inputparamdefinitiontype &
85  ( &
86  'GWF', & ! component
87  'RCHA', & ! subcomponent
88  'OPTIONS', & ! block
89  'AUXILIARY', & ! tag name
90  'AUXILIARY', & ! fortran variable
91  'STRING', & ! type
92  'NAUX', & ! shape
93  'keyword to specify aux variables', & ! longname
94  .false., & ! required
95  .false., & ! developmode
96  .false., & ! multi-record
97  .false., & ! preserve case
98  .false., & ! layered
99  .false. & ! timeseries
100  )
101 
102  type(inputparamdefinitiontype), parameter :: &
103  gwfrcha_auxmultname = inputparamdefinitiontype &
104  ( &
105  'GWF', & ! component
106  'RCHA', & ! subcomponent
107  'OPTIONS', & ! block
108  'AUXMULTNAME', & ! tag name
109  'AUXMULTNAME', & ! fortran variable
110  'STRING', & ! type
111  '', & ! shape
112  'name of auxiliary variable for multiplier', & ! longname
113  .false., & ! required
114  .false., & ! developmode
115  .false., & ! multi-record
116  .false., & ! preserve case
117  .false., & ! layered
118  .false. & ! timeseries
119  )
120 
121  type(inputparamdefinitiontype), parameter :: &
122  gwfrcha_iprpak = inputparamdefinitiontype &
123  ( &
124  'GWF', & ! component
125  'RCHA', & ! subcomponent
126  'OPTIONS', & ! block
127  'PRINT_INPUT', & ! tag name
128  'IPRPAK', & ! fortran variable
129  'KEYWORD', & ! type
130  '', & ! shape
131  'print input to listing file', & ! longname
132  .false., & ! required
133  .false., & ! developmode
134  .false., & ! multi-record
135  .false., & ! preserve case
136  .false., & ! layered
137  .false. & ! timeseries
138  )
139 
140  type(inputparamdefinitiontype), parameter :: &
141  gwfrcha_iprflow = inputparamdefinitiontype &
142  ( &
143  'GWF', & ! component
144  'RCHA', & ! subcomponent
145  'OPTIONS', & ! block
146  'PRINT_FLOWS', & ! tag name
147  'IPRFLOW', & ! fortran variable
148  'KEYWORD', & ! type
149  '', & ! shape
150  'print recharge rates to listing file', & ! longname
151  .false., & ! required
152  .false., & ! developmode
153  .false., & ! multi-record
154  .false., & ! preserve case
155  .false., & ! layered
156  .false. & ! timeseries
157  )
158 
159  type(inputparamdefinitiontype), parameter :: &
160  gwfrcha_ipakcb = inputparamdefinitiontype &
161  ( &
162  'GWF', & ! component
163  'RCHA', & ! subcomponent
164  'OPTIONS', & ! block
165  'SAVE_FLOWS', & ! tag name
166  'IPAKCB', & ! fortran variable
167  'KEYWORD', & ! type
168  '', & ! shape
169  'save RCHA flows to budget file', & ! longname
170  .false., & ! required
171  .false., & ! developmode
172  .false., & ! multi-record
173  .false., & ! preserve case
174  .false., & ! layered
175  .false. & ! timeseries
176  )
177 
178  type(inputparamdefinitiontype), parameter :: &
179  gwfrcha_tas_filerecord = inputparamdefinitiontype &
180  ( &
181  'GWF', & ! component
182  'RCHA', & ! subcomponent
183  'OPTIONS', & ! block
184  'TAS_FILERECORD', & ! tag name
185  'TAS_FILERECORD', & ! fortran variable
186  'RECORD TAS6 FILEIN TAS6_FILENAME', & ! type
187  '', & ! shape
188  '', & ! longname
189  .false., & ! required
190  .false., & ! developmode
191  .false., & ! multi-record
192  .false., & ! preserve case
193  .false., & ! layered
194  .false. & ! timeseries
195  )
196 
197  type(inputparamdefinitiontype), parameter :: &
198  gwfrcha_tas6 = inputparamdefinitiontype &
199  ( &
200  'GWF', & ! component
201  'RCHA', & ! subcomponent
202  'OPTIONS', & ! block
203  'TAS6', & ! tag name
204  'TAS6', & ! fortran variable
205  'KEYWORD', & ! type
206  '', & ! shape
207  'head keyword', & ! longname
208  .true., & ! required
209  .false., & ! developmode
210  .true., & ! multi-record
211  .false., & ! preserve case
212  .false., & ! layered
213  .false. & ! timeseries
214  )
215 
216  type(inputparamdefinitiontype), parameter :: &
217  gwfrcha_filein = inputparamdefinitiontype &
218  ( &
219  'GWF', & ! component
220  'RCHA', & ! subcomponent
221  'OPTIONS', & ! block
222  'FILEIN', & ! tag name
223  'FILEIN', & ! fortran variable
224  'KEYWORD', & ! type
225  '', & ! shape
226  'file keyword', & ! longname
227  .true., & ! required
228  .false., & ! developmode
229  .true., & ! multi-record
230  .false., & ! preserve case
231  .false., & ! layered
232  .false. & ! timeseries
233  )
234 
235  type(inputparamdefinitiontype), parameter :: &
236  gwfrcha_tas6_filename = inputparamdefinitiontype &
237  ( &
238  'GWF', & ! component
239  'RCHA', & ! subcomponent
240  'OPTIONS', & ! block
241  'TAS6_FILENAME', & ! tag name
242  'TAS6_FILENAME', & ! fortran variable
243  'STRING', & ! type
244  '', & ! shape
245  'file name of time series information', & ! longname
246  .true., & ! required
247  .false., & ! developmode
248  .true., & ! multi-record
249  .true., & ! preserve case
250  .false., & ! layered
251  .false. & ! timeseries
252  )
253 
254  type(inputparamdefinitiontype), parameter :: &
255  gwfrcha_obs_filerecord = inputparamdefinitiontype &
256  ( &
257  'GWF', & ! component
258  'RCHA', & ! subcomponent
259  'OPTIONS', & ! block
260  'OBS_FILERECORD', & ! tag name
261  'OBS_FILERECORD', & ! fortran variable
262  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
263  '', & ! shape
264  '', & ! longname
265  .false., & ! required
266  .false., & ! developmode
267  .false., & ! multi-record
268  .false., & ! preserve case
269  .false., & ! layered
270  .false. & ! timeseries
271  )
272 
273  type(inputparamdefinitiontype), parameter :: &
274  gwfrcha_obs6 = inputparamdefinitiontype &
275  ( &
276  'GWF', & ! component
277  'RCHA', & ! subcomponent
278  'OPTIONS', & ! block
279  'OBS6', & ! tag name
280  'OBS6', & ! fortran variable
281  'KEYWORD', & ! type
282  '', & ! shape
283  'obs keyword', & ! longname
284  .true., & ! required
285  .false., & ! developmode
286  .true., & ! multi-record
287  .false., & ! preserve case
288  .false., & ! layered
289  .false. & ! timeseries
290  )
291 
292  type(inputparamdefinitiontype), parameter :: &
293  gwfrcha_obs6_filename = inputparamdefinitiontype &
294  ( &
295  'GWF', & ! component
296  'RCHA', & ! subcomponent
297  'OPTIONS', & ! block
298  'OBS6_FILENAME', & ! tag name
299  'OBS6_FILENAME', & ! fortran variable
300  'STRING', & ! type
301  '', & ! shape
302  'obs6 input filename', & ! longname
303  .true., & ! required
304  .false., & ! developmode
305  .true., & ! multi-record
306  .true., & ! preserve case
307  .false., & ! layered
308  .false. & ! timeseries
309  )
310 
311  type(inputparamdefinitiontype), parameter :: &
312  gwfrcha_export_nc = inputparamdefinitiontype &
313  ( &
314  'GWF', & ! component
315  'RCHA', & ! subcomponent
316  'OPTIONS', & ! block
317  'EXPORT_ARRAY_NETCDF', & ! tag name
318  'EXPORT_NC', & ! fortran variable
319  'KEYWORD', & ! type
320  '', & ! shape
321  'export array variables to netcdf output files.', & ! longname
322  .false., & ! required
323  .false., & ! developmode
324  .false., & ! multi-record
325  .false., & ! preserve case
326  .false., & ! layered
327  .false. & ! timeseries
328  )
329 
330  type(inputparamdefinitiontype), parameter :: &
331  gwfrcha_irch = inputparamdefinitiontype &
332  ( &
333  'GWF', & ! component
334  'RCHA', & ! subcomponent
335  'PERIOD', & ! block
336  'IRCH', & ! tag name
337  'IRCH', & ! fortran variable
338  'INTEGER1D', & ! type
339  'NCPL', & ! shape
340  'layer number for recharge', & ! longname
341  .false., & ! required
342  .false., & ! developmode
343  .false., & ! multi-record
344  .false., & ! preserve case
345  .false., & ! layered
346  .false. & ! timeseries
347  )
348 
349  type(inputparamdefinitiontype), parameter :: &
350  gwfrcha_recharge = inputparamdefinitiontype &
351  ( &
352  'GWF', & ! component
353  'RCHA', & ! subcomponent
354  'PERIOD', & ! block
355  'RECHARGE', & ! tag name
356  'RECHARGE', & ! fortran variable
357  'DOUBLE1D', & ! type
358  'NCPL', & ! shape
359  'recharge rate', & ! longname
360  .true., & ! required
361  .false., & ! developmode
362  .false., & ! multi-record
363  .false., & ! preserve case
364  .false., & ! layered
365  .true. & ! timeseries
366  )
367 
368  type(inputparamdefinitiontype), parameter :: &
369  gwfrcha_auxvar = inputparamdefinitiontype &
370  ( &
371  'GWF', & ! component
372  'RCHA', & ! subcomponent
373  'PERIOD', & ! block
374  'AUX', & ! tag name
375  'AUXVAR', & ! fortran variable
376  'DOUBLE2D', & ! type
377  'NAUX NCPL', & ! shape
378  'recharge auxiliary variable iaux', & ! longname
379  .false., & ! required
380  .false., & ! developmode
381  .false., & ! multi-record
382  .false., & ! preserve case
383  .false., & ! layered
384  .true. & ! timeseries
385  )
386 
387  type(inputparamdefinitiontype), parameter :: &
388  gwf_rcha_param_definitions(*) = &
389  [ &
390  gwfrcha_readasarrays, &
391  gwfrcha_fixed_cell, &
392  gwfrcha_auxiliary, &
393  gwfrcha_auxmultname, &
394  gwfrcha_iprpak, &
395  gwfrcha_iprflow, &
396  gwfrcha_ipakcb, &
397  gwfrcha_tas_filerecord, &
398  gwfrcha_tas6, &
399  gwfrcha_filein, &
400  gwfrcha_tas6_filename, &
401  gwfrcha_obs_filerecord, &
402  gwfrcha_obs6, &
403  gwfrcha_obs6_filename, &
404  gwfrcha_export_nc, &
405  gwfrcha_irch, &
406  gwfrcha_recharge, &
407  gwfrcha_auxvar &
408  ]
409 
410  type(inputparamdefinitiontype), parameter :: &
411  gwf_rcha_aggregate_definitions(*) = &
412  [ &
413  inputparamdefinitiontype &
414  ( &
415  '', & ! component
416  '', & ! subcomponent
417  '', & ! block
418  '', & ! tag name
419  '', & ! fortran variable
420  '', & ! type
421  '', & ! shape
422  '', & ! longname
423  .false., & ! required
424  .false., & ! developmode
425  .false., & ! multi-record
426  .false., & ! preserve case
427  .false., & ! layered
428  .false. & ! timeseries
429  ) &
430  ]
431 
432  type(inputblockdefinitiontype), parameter :: &
433  gwf_rcha_block_definitions(*) = &
434  [ &
435  inputblockdefinitiontype( &
436  'OPTIONS', & ! blockname
437  .true., & ! required
438  .false., & ! aggregate
439  .false. & ! block_variable
440  ), &
441  inputblockdefinitiontype( &
442  'PERIOD', & ! blockname
443  .true., & ! required
444  .false., & ! aggregate
445  .true. & ! block_variable
446  ) &
447  ]
448 
449 end module gwfrchainputmodule
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
gwfrchainputmodule::gwfrcha_tas6_filename
type(inputparamdefinitiontype), parameter gwfrcha_tas6_filename
Definition: gwf-rchaidm.f90:235
gwfrchainputmodule::gwfrcha_auxvar
type(inputparamdefinitiontype), parameter gwfrcha_auxvar
Definition: gwf-rchaidm.f90:368
gwfrchainputmodule::gwfrcha_obs6
type(inputparamdefinitiontype), parameter gwfrcha_obs6
Definition: gwf-rchaidm.f90:273
gwfrchainputmodule::gwfrcha_irch
type(inputparamdefinitiontype), parameter gwfrcha_irch
Definition: gwf-rchaidm.f90:330
gwfrchainputmodule::gwf_rcha_subpackages
character(len=16), dimension(*), parameter, public gwf_rcha_subpackages
Definition: gwf-rchaidm.f90:39
gwfrchainputmodule::gwfrcha_iprflow
type(inputparamdefinitiontype), parameter gwfrcha_iprflow
Definition: gwf-rchaidm.f90:140
gwfrchainputmodule::gwfrcha_auxmultname
type(inputparamdefinitiontype), parameter gwfrcha_auxmultname
Definition: gwf-rchaidm.f90:102
gwfrchainputmodule::gwfrcha_auxiliary
type(inputparamdefinitiontype), parameter gwfrcha_auxiliary
Definition: gwf-rchaidm.f90:83
gwfrchainputmodule::gwf_rcha_is_advanced
logical, public gwf_rcha_is_advanced
Definition: gwf-rchaidm.f90:37
gwfrchainputmodule::gwf_rcha_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_rcha_aggregate_definitions
Definition: gwf-rchaidm.f90:410
gwfrchainputmodule::gwfrcha_fixed_cell
type(inputparamdefinitiontype), parameter gwfrcha_fixed_cell
Definition: gwf-rchaidm.f90:64
gwfrchainputmodule::gwfrcha_recharge
type(inputparamdefinitiontype), parameter gwfrcha_recharge
Definition: gwf-rchaidm.f90:349
gwfrchainputmodule::gwf_rcha_multi_package
logical, public gwf_rcha_multi_package
Definition: gwf-rchaidm.f90:36
gwfrchainputmodule::gwfrcha_tas6
type(inputparamdefinitiontype), parameter gwfrcha_tas6
Definition: gwf-rchaidm.f90:197
gwfrchainputmodule::gwfrcha_obs_filerecord
type(inputparamdefinitiontype), parameter gwfrcha_obs_filerecord
Definition: gwf-rchaidm.f90:254
gwfrchainputmodule::gwfrcha_iprpak
type(inputparamdefinitiontype), parameter gwfrcha_iprpak
Definition: gwf-rchaidm.f90:121
gwfrchainputmodule::gwf_rcha_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_rcha_param_definitions
Definition: gwf-rchaidm.f90:387
gwfrchainputmodule::gwfrcha_ipakcb
type(inputparamdefinitiontype), parameter gwfrcha_ipakcb
Definition: gwf-rchaidm.f90:159
gwfrchainputmodule::gwfrcha_filein
type(inputparamdefinitiontype), parameter gwfrcha_filein
Definition: gwf-rchaidm.f90:216
gwfrchainputmodule::gwf_rcha_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_rcha_block_definitions
Definition: gwf-rchaidm.f90:432
gwfrchainputmodule::gwfrcha_export_nc
type(inputparamdefinitiontype), parameter gwfrcha_export_nc
Definition: gwf-rchaidm.f90:311
gwfrchainputmodule::gwfrcha_obs6_filename
type(inputparamdefinitiontype), parameter gwfrcha_obs6_filename
Definition: gwf-rchaidm.f90:292
gwfrchainputmodule::gwfrcha_tas_filerecord
type(inputparamdefinitiontype), parameter gwfrcha_tas_filerecord
Definition: gwf-rchaidm.f90:178
gwfrchainputmodule::gwfrcha_readasarrays
type(inputparamdefinitiontype), parameter gwfrcha_readasarrays
Definition: gwf-rchaidm.f90:45
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