MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
gwf-evtaidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfevtainputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_evta_param_definitions
8  public gwf_evta_aggregate_definitions
9  public gwf_evta_block_definitions
10  public gwfevtaparamfoundtype
11  public gwf_evta_multi_package
12  public gwf_evta_is_advanced
13  public gwf_evta_subpackages
14 
15  type gwfevtaparamfoundtype
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 :: ievt = .false.
32  logical :: surface = .false.
33  logical :: rate = .false.
34  logical :: depth = .false.
35  logical :: auxvar = .false.
36  end type gwfevtaparamfoundtype
37 
38  logical :: gwf_evta_multi_package = .true.
39  logical :: gwf_evta_is_advanced = .false.
40 
41  character(len=16), parameter :: &
42  gwf_evta_subpackages(*) = &
43  [ &
44  ' ' &
45  ]
46 
47  type(inputparamdefinitiontype), parameter :: &
48  gwfevta_readasarrays = inputparamdefinitiontype &
49  ( &
50  'GWF', & ! component
51  'EVTA', & ! subcomponent
52  'OPTIONS', & ! block
53  'READASARRAYS', & ! tag name
54  'READASARRAYS', & ! fortran variable
55  'KEYWORD', & ! type
56  '', & ! shape
57  'use array-based input', & ! longname
58  .true., & ! required
59  .false., & ! developmode
60  .false., & ! multi-record
61  .false., & ! preserve case
62  .false., & ! layered
63  .false. & ! timeseries
64  )
65 
66  type(inputparamdefinitiontype), parameter :: &
67  gwfevta_fixed_cell = inputparamdefinitiontype &
68  ( &
69  'GWF', & ! component
70  'EVTA', & ! subcomponent
71  'OPTIONS', & ! block
72  'FIXED_CELL', & ! tag name
73  'FIXED_CELL', & ! fortran variable
74  'KEYWORD', & ! type
75  '', & ! shape
76  'if cell is dry do not apply evapotranspiration to underlying '// &
77  'cell', & ! 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  gwfevta_auxiliary = inputparamdefinitiontype &
88  ( &
89  'GWF', & ! component
90  'EVTA', & ! subcomponent
91  'OPTIONS', & ! block
92  'AUXILIARY', & ! tag name
93  'AUXILIARY', & ! fortran variable
94  'STRING', & ! type
95  'NAUX', & ! shape
96  'keyword to specify aux variables', & ! 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  gwfevta_auxmultname = inputparamdefinitiontype &
107  ( &
108  'GWF', & ! component
109  'EVTA', & ! subcomponent
110  'OPTIONS', & ! block
111  'AUXMULTNAME', & ! tag name
112  'AUXMULTNAME', & ! fortran variable
113  'STRING', & ! type
114  '', & ! shape
115  'name of auxiliary variable for multiplier', & ! 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  gwfevta_iprpak = inputparamdefinitiontype &
126  ( &
127  'GWF', & ! component
128  'EVTA', & ! subcomponent
129  'OPTIONS', & ! block
130  'PRINT_INPUT', & ! tag name
131  'IPRPAK', & ! fortran variable
132  'KEYWORD', & ! type
133  '', & ! shape
134  'print input 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  gwfevta_iprflow = inputparamdefinitiontype &
145  ( &
146  'GWF', & ! component
147  'EVTA', & ! subcomponent
148  'OPTIONS', & ! block
149  'PRINT_FLOWS', & ! tag name
150  'IPRFLOW', & ! fortran variable
151  'KEYWORD', & ! type
152  '', & ! shape
153  'print evapotranspiration rates to listing 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  gwfevta_ipakcb = inputparamdefinitiontype &
164  ( &
165  'GWF', & ! component
166  'EVTA', & ! subcomponent
167  'OPTIONS', & ! block
168  'SAVE_FLOWS', & ! tag name
169  'IPAKCB', & ! fortran variable
170  'KEYWORD', & ! type
171  '', & ! shape
172  'save EVTA flows to budget file', & ! 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  gwfevta_tas_filerecord = inputparamdefinitiontype &
183  ( &
184  'GWF', & ! component
185  'EVTA', & ! subcomponent
186  'OPTIONS', & ! block
187  'TAS_FILERECORD', & ! tag name
188  'TAS_FILERECORD', & ! fortran variable
189  'RECORD TAS6 FILEIN TAS6_FILENAME', & ! type
190  '', & ! shape
191  '', & ! longname
192  .false., & ! required
193  .false., & ! developmode
194  .false., & ! multi-record
195  .false., & ! preserve case
196  .false., & ! layered
197  .false. & ! timeseries
198  )
199 
200  type(inputparamdefinitiontype), parameter :: &
201  gwfevta_tas6 = inputparamdefinitiontype &
202  ( &
203  'GWF', & ! component
204  'EVTA', & ! subcomponent
205  'OPTIONS', & ! block
206  'TAS6', & ! tag name
207  'TAS6', & ! fortran variable
208  'KEYWORD', & ! type
209  '', & ! shape
210  'head 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  gwfevta_filein = inputparamdefinitiontype &
221  ( &
222  'GWF', & ! component
223  'EVTA', & ! subcomponent
224  'OPTIONS', & ! block
225  'FILEIN', & ! tag name
226  'FILEIN', & ! fortran variable
227  'KEYWORD', & ! type
228  '', & ! shape
229  'file keyword', & ! longname
230  .true., & ! required
231  .false., & ! developmode
232  .true., & ! multi-record
233  .false., & ! preserve case
234  .false., & ! layered
235  .false. & ! timeseries
236  )
237 
238  type(inputparamdefinitiontype), parameter :: &
239  gwfevta_tas6_filename = inputparamdefinitiontype &
240  ( &
241  'GWF', & ! component
242  'EVTA', & ! subcomponent
243  'OPTIONS', & ! block
244  'TAS6_FILENAME', & ! tag name
245  'TAS6_FILENAME', & ! fortran variable
246  'STRING', & ! type
247  '', & ! shape
248  'file name of time series information', & ! longname
249  .true., & ! required
250  .false., & ! developmode
251  .true., & ! multi-record
252  .true., & ! preserve case
253  .false., & ! layered
254  .false. & ! timeseries
255  )
256 
257  type(inputparamdefinitiontype), parameter :: &
258  gwfevta_obs_filerecord = inputparamdefinitiontype &
259  ( &
260  'GWF', & ! component
261  'EVTA', & ! subcomponent
262  'OPTIONS', & ! block
263  'OBS_FILERECORD', & ! tag name
264  'OBS_FILERECORD', & ! fortran variable
265  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
266  '', & ! shape
267  '', & ! longname
268  .false., & ! required
269  .false., & ! developmode
270  .false., & ! multi-record
271  .false., & ! preserve case
272  .false., & ! layered
273  .false. & ! timeseries
274  )
275 
276  type(inputparamdefinitiontype), parameter :: &
277  gwfevta_obs6 = inputparamdefinitiontype &
278  ( &
279  'GWF', & ! component
280  'EVTA', & ! subcomponent
281  'OPTIONS', & ! block
282  'OBS6', & ! tag name
283  'OBS6', & ! fortran variable
284  'KEYWORD', & ! type
285  '', & ! shape
286  'obs keyword', & ! longname
287  .true., & ! required
288  .false., & ! developmode
289  .true., & ! multi-record
290  .false., & ! preserve case
291  .false., & ! layered
292  .false. & ! timeseries
293  )
294 
295  type(inputparamdefinitiontype), parameter :: &
296  gwfevta_obs6_filename = inputparamdefinitiontype &
297  ( &
298  'GWF', & ! component
299  'EVTA', & ! subcomponent
300  'OPTIONS', & ! block
301  'OBS6_FILENAME', & ! tag name
302  'OBS6_FILENAME', & ! fortran variable
303  'STRING', & ! type
304  '', & ! shape
305  'obs6 input filename', & ! longname
306  .true., & ! required
307  .false., & ! developmode
308  .true., & ! multi-record
309  .true., & ! preserve case
310  .false., & ! layered
311  .false. & ! timeseries
312  )
313 
314  type(inputparamdefinitiontype), parameter :: &
315  gwfevta_export_nc = inputparamdefinitiontype &
316  ( &
317  'GWF', & ! component
318  'EVTA', & ! subcomponent
319  'OPTIONS', & ! block
320  'EXPORT_ARRAY_NETCDF', & ! tag name
321  'EXPORT_NC', & ! fortran variable
322  'KEYWORD', & ! type
323  '', & ! shape
324  'export array variables to netcdf output files.', & ! longname
325  .false., & ! 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  gwfevta_ievt = inputparamdefinitiontype &
335  ( &
336  'GWF', & ! component
337  'EVTA', & ! subcomponent
338  'PERIOD', & ! block
339  'IEVT', & ! tag name
340  'IEVT', & ! fortran variable
341  'INTEGER1D', & ! type
342  'NCPL', & ! shape
343  'layer number for evapotranspiration', & ! longname
344  .false., & ! required
345  .false., & ! developmode
346  .false., & ! multi-record
347  .false., & ! preserve case
348  .false., & ! layered
349  .false. & ! timeseries
350  )
351 
352  type(inputparamdefinitiontype), parameter :: &
353  gwfevta_surface = inputparamdefinitiontype &
354  ( &
355  'GWF', & ! component
356  'EVTA', & ! subcomponent
357  'PERIOD', & ! block
358  'SURFACE', & ! tag name
359  'SURFACE', & ! fortran variable
360  'DOUBLE1D', & ! type
361  'NCPL', & ! shape
362  'evapotranspiration surface', & ! longname
363  .true., & ! required
364  .false., & ! developmode
365  .false., & ! multi-record
366  .false., & ! preserve case
367  .false., & ! layered
368  .false. & ! timeseries
369  )
370 
371  type(inputparamdefinitiontype), parameter :: &
372  gwfevta_rate = inputparamdefinitiontype &
373  ( &
374  'GWF', & ! component
375  'EVTA', & ! subcomponent
376  'PERIOD', & ! block
377  'RATE', & ! tag name
378  'RATE', & ! fortran variable
379  'DOUBLE1D', & ! type
380  'NCPL', & ! shape
381  'evapotranspiration rate', & ! longname
382  .true., & ! required
383  .false., & ! developmode
384  .false., & ! multi-record
385  .false., & ! preserve case
386  .false., & ! layered
387  .true. & ! timeseries
388  )
389 
390  type(inputparamdefinitiontype), parameter :: &
391  gwfevta_depth = inputparamdefinitiontype &
392  ( &
393  'GWF', & ! component
394  'EVTA', & ! subcomponent
395  'PERIOD', & ! block
396  'DEPTH', & ! tag name
397  'DEPTH', & ! fortran variable
398  'DOUBLE1D', & ! type
399  'NCPL', & ! shape
400  'extinction depth', & ! longname
401  .true., & ! required
402  .false., & ! developmode
403  .false., & ! multi-record
404  .false., & ! preserve case
405  .false., & ! layered
406  .false. & ! timeseries
407  )
408 
409  type(inputparamdefinitiontype), parameter :: &
410  gwfevta_auxvar = inputparamdefinitiontype &
411  ( &
412  'GWF', & ! component
413  'EVTA', & ! subcomponent
414  'PERIOD', & ! block
415  'AUX', & ! tag name
416  'AUXVAR', & ! fortran variable
417  'DOUBLE2D', & ! type
418  'NAUX NCPL', & ! shape
419  'evapotranspiration auxiliary variable iaux', & ! longname
420  .true., & ! required
421  .false., & ! developmode
422  .false., & ! multi-record
423  .false., & ! preserve case
424  .false., & ! layered
425  .true. & ! timeseries
426  )
427 
428  type(inputparamdefinitiontype), parameter :: &
429  gwf_evta_param_definitions(*) = &
430  [ &
431  gwfevta_readasarrays, &
432  gwfevta_fixed_cell, &
433  gwfevta_auxiliary, &
434  gwfevta_auxmultname, &
435  gwfevta_iprpak, &
436  gwfevta_iprflow, &
437  gwfevta_ipakcb, &
438  gwfevta_tas_filerecord, &
439  gwfevta_tas6, &
440  gwfevta_filein, &
441  gwfevta_tas6_filename, &
442  gwfevta_obs_filerecord, &
443  gwfevta_obs6, &
444  gwfevta_obs6_filename, &
445  gwfevta_export_nc, &
446  gwfevta_ievt, &
447  gwfevta_surface, &
448  gwfevta_rate, &
449  gwfevta_depth, &
450  gwfevta_auxvar &
451  ]
452 
453  type(inputparamdefinitiontype), parameter :: &
454  gwf_evta_aggregate_definitions(*) = &
455  [ &
456  inputparamdefinitiontype &
457  ( &
458  '', & ! component
459  '', & ! subcomponent
460  '', & ! block
461  '', & ! tag name
462  '', & ! fortran variable
463  '', & ! type
464  '', & ! shape
465  '', & ! longname
466  .false., & ! required
467  .false., & ! developmode
468  .false., & ! multi-record
469  .false., & ! preserve case
470  .false., & ! layered
471  .false. & ! timeseries
472  ) &
473  ]
474 
475  type(inputblockdefinitiontype), parameter :: &
476  gwf_evta_block_definitions(*) = &
477  [ &
478  inputblockdefinitiontype( &
479  'OPTIONS', & ! blockname
480  .true., & ! required
481  .false., & ! aggregate
482  .false. & ! block_variable
483  ), &
484  inputblockdefinitiontype( &
485  'PERIOD', & ! blockname
486  .true., & ! required
487  .false., & ! aggregate
488  .true. & ! block_variable
489  ) &
490  ]
491 
492 end module gwfevtainputmodule
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
gwfevtainputmodule::gwfevta_rate
type(inputparamdefinitiontype), parameter gwfevta_rate
Definition: gwf-evtaidm.f90:371
gwfevtainputmodule::gwfevta_obs6
type(inputparamdefinitiontype), parameter gwfevta_obs6
Definition: gwf-evtaidm.f90:276
gwfevtainputmodule::gwfevta_auxiliary
type(inputparamdefinitiontype), parameter gwfevta_auxiliary
Definition: gwf-evtaidm.f90:86
gwfevtainputmodule::gwfevta_obs6_filename
type(inputparamdefinitiontype), parameter gwfevta_obs6_filename
Definition: gwf-evtaidm.f90:295
gwfevtainputmodule::gwf_evta_is_advanced
logical, public gwf_evta_is_advanced
Definition: gwf-evtaidm.f90:39
gwfevtainputmodule::gwfevta_tas_filerecord
type(inputparamdefinitiontype), parameter gwfevta_tas_filerecord
Definition: gwf-evtaidm.f90:181
gwfevtainputmodule::gwf_evta_subpackages
character(len=16), dimension(*), parameter, public gwf_evta_subpackages
Definition: gwf-evtaidm.f90:41
gwfevtainputmodule::gwfevta_readasarrays
type(inputparamdefinitiontype), parameter gwfevta_readasarrays
Definition: gwf-evtaidm.f90:47
gwfevtainputmodule::gwfevta_obs_filerecord
type(inputparamdefinitiontype), parameter gwfevta_obs_filerecord
Definition: gwf-evtaidm.f90:257
gwfevtainputmodule::gwfevta_ipakcb
type(inputparamdefinitiontype), parameter gwfevta_ipakcb
Definition: gwf-evtaidm.f90:162
gwfevtainputmodule::gwfevta_fixed_cell
type(inputparamdefinitiontype), parameter gwfevta_fixed_cell
Definition: gwf-evtaidm.f90:66
gwfevtainputmodule::gwfevta_tas6
type(inputparamdefinitiontype), parameter gwfevta_tas6
Definition: gwf-evtaidm.f90:200
gwfevtainputmodule::gwfevta_filein
type(inputparamdefinitiontype), parameter gwfevta_filein
Definition: gwf-evtaidm.f90:219
gwfevtainputmodule::gwfevta_iprpak
type(inputparamdefinitiontype), parameter gwfevta_iprpak
Definition: gwf-evtaidm.f90:124
gwfevtainputmodule::gwf_evta_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_evta_param_definitions
Definition: gwf-evtaidm.f90:428
gwfevtainputmodule::gwf_evta_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_evta_aggregate_definitions
Definition: gwf-evtaidm.f90:453
gwfevtainputmodule::gwfevta_auxmultname
type(inputparamdefinitiontype), parameter gwfevta_auxmultname
Definition: gwf-evtaidm.f90:105
gwfevtainputmodule::gwfevta_surface
type(inputparamdefinitiontype), parameter gwfevta_surface
Definition: gwf-evtaidm.f90:352
gwfevtainputmodule::gwf_evta_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_evta_block_definitions
Definition: gwf-evtaidm.f90:475
gwfevtainputmodule::gwfevta_depth
type(inputparamdefinitiontype), parameter gwfevta_depth
Definition: gwf-evtaidm.f90:390
gwfevtainputmodule::gwfevta_ievt
type(inputparamdefinitiontype), parameter gwfevta_ievt
Definition: gwf-evtaidm.f90:333
gwfevtainputmodule::gwfevta_export_nc
type(inputparamdefinitiontype), parameter gwfevta_export_nc
Definition: gwf-evtaidm.f90:314
gwfevtainputmodule::gwfevta_auxvar
type(inputparamdefinitiontype), parameter gwfevta_auxvar
Definition: gwf-evtaidm.f90:409
gwfevtainputmodule::gwfevta_iprflow
type(inputparamdefinitiontype), parameter gwfevta_iprflow
Definition: gwf-evtaidm.f90:143
gwfevtainputmodule::gwfevta_tas6_filename
type(inputparamdefinitiontype), parameter gwfevta_tas6_filename
Definition: gwf-evtaidm.f90:238
gwfevtainputmodule::gwf_evta_multi_package
logical, public gwf_evta_multi_package
Definition: gwf-evtaidm.f90:38
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