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