MODFLOW 6  version 6.7.0.dev3
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 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  gwfevta_auxiliary = inputparamdefinitiontype &
85  ( &
86  'GWF', & ! component
87  'EVTA', & ! 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  gwfevta_auxmultname = inputparamdefinitiontype &
104  ( &
105  'GWF', & ! component
106  'EVTA', & ! 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  gwfevta_iprpak = inputparamdefinitiontype &
123  ( &
124  'GWF', & ! component
125  'EVTA', & ! 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  gwfevta_iprflow = inputparamdefinitiontype &
142  ( &
143  'GWF', & ! component
144  'EVTA', & ! subcomponent
145  'OPTIONS', & ! block
146  'PRINT_FLOWS', & ! tag name
147  'IPRFLOW', & ! fortran variable
148  'KEYWORD', & ! type
149  '', & ! shape
150  'print evapotranspiration 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  gwfevta_ipakcb = inputparamdefinitiontype &
161  ( &
162  'GWF', & ! component
163  'EVTA', & ! subcomponent
164  'OPTIONS', & ! block
165  'SAVE_FLOWS', & ! tag name
166  'IPAKCB', & ! fortran variable
167  'KEYWORD', & ! type
168  '', & ! shape
169  'save CHD 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  gwfevta_tas_filerecord = inputparamdefinitiontype &
180  ( &
181  'GWF', & ! component
182  'EVTA', & ! 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  gwfevta_tas6 = inputparamdefinitiontype &
199  ( &
200  'GWF', & ! component
201  'EVTA', & ! 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  gwfevta_filein = inputparamdefinitiontype &
218  ( &
219  'GWF', & ! component
220  'EVTA', & ! 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  gwfevta_tas6_filename = inputparamdefinitiontype &
237  ( &
238  'GWF', & ! component
239  'EVTA', & ! 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  gwfevta_obs_filerecord = inputparamdefinitiontype &
256  ( &
257  'GWF', & ! component
258  'EVTA', & ! 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  gwfevta_obs6 = inputparamdefinitiontype &
275  ( &
276  'GWF', & ! component
277  'EVTA', & ! 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  gwfevta_obs6_filename = inputparamdefinitiontype &
294  ( &
295  'GWF', & ! component
296  'EVTA', & ! 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  gwfevta_export_nc = inputparamdefinitiontype &
313  ( &
314  'GWF', & ! component
315  'EVTA', & ! 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  gwfevta_ievt = inputparamdefinitiontype &
332  ( &
333  'GWF', & ! component
334  'EVTA', & ! subcomponent
335  'PERIOD', & ! block
336  'IEVT', & ! tag name
337  'IEVT', & ! fortran variable
338  'INTEGER1D', & ! type
339  'NCPL', & ! shape
340  'layer number for evapotranspiration', & ! 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  gwfevta_surface = inputparamdefinitiontype &
351  ( &
352  'GWF', & ! component
353  'EVTA', & ! subcomponent
354  'PERIOD', & ! block
355  'SURFACE', & ! tag name
356  'SURFACE', & ! fortran variable
357  'DOUBLE1D', & ! type
358  'NCPL', & ! shape
359  'evapotranspiration surface', & ! longname
360  .true., & ! required
361  .false., & ! developmode
362  .false., & ! multi-record
363  .false., & ! preserve case
364  .false., & ! layered
365  .false. & ! timeseries
366  )
367 
368  type(inputparamdefinitiontype), parameter :: &
369  gwfevta_rate = inputparamdefinitiontype &
370  ( &
371  'GWF', & ! component
372  'EVTA', & ! subcomponent
373  'PERIOD', & ! block
374  'RATE', & ! tag name
375  'RATE', & ! fortran variable
376  'DOUBLE1D', & ! type
377  'NCPL', & ! shape
378  'evapotranspiration surface', & ! longname
379  .true., & ! 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  gwfevta_depth = inputparamdefinitiontype &
389  ( &
390  'GWF', & ! component
391  'EVTA', & ! subcomponent
392  'PERIOD', & ! block
393  'DEPTH', & ! tag name
394  'DEPTH', & ! fortran variable
395  'DOUBLE1D', & ! type
396  'NCPL', & ! shape
397  'extinction depth', & ! longname
398  .true., & ! required
399  .false., & ! developmode
400  .false., & ! multi-record
401  .false., & ! preserve case
402  .false., & ! layered
403  .false. & ! timeseries
404  )
405 
406  type(inputparamdefinitiontype), parameter :: &
407  gwfevta_auxvar = inputparamdefinitiontype &
408  ( &
409  'GWF', & ! component
410  'EVTA', & ! subcomponent
411  'PERIOD', & ! block
412  'AUX', & ! tag name
413  'AUXVAR', & ! fortran variable
414  'DOUBLE2D', & ! type
415  'NAUX NCPL', & ! shape
416  'evapotranspiration auxiliary variable iaux', & ! longname
417  .true., & ! required
418  .false., & ! developmode
419  .false., & ! multi-record
420  .false., & ! preserve case
421  .false., & ! layered
422  .true. & ! timeseries
423  )
424 
425  type(inputparamdefinitiontype), parameter :: &
426  gwf_evta_param_definitions(*) = &
427  [ &
428  gwfevta_readasarrays, &
429  gwfevta_fixed_cell, &
430  gwfevta_auxiliary, &
431  gwfevta_auxmultname, &
432  gwfevta_iprpak, &
433  gwfevta_iprflow, &
434  gwfevta_ipakcb, &
435  gwfevta_tas_filerecord, &
436  gwfevta_tas6, &
437  gwfevta_filein, &
438  gwfevta_tas6_filename, &
439  gwfevta_obs_filerecord, &
440  gwfevta_obs6, &
441  gwfevta_obs6_filename, &
442  gwfevta_export_nc, &
443  gwfevta_ievt, &
444  gwfevta_surface, &
445  gwfevta_rate, &
446  gwfevta_depth, &
447  gwfevta_auxvar &
448  ]
449 
450  type(inputparamdefinitiontype), parameter :: &
451  gwf_evta_aggregate_definitions(*) = &
452  [ &
453  inputparamdefinitiontype &
454  ( &
455  '', & ! component
456  '', & ! subcomponent
457  '', & ! block
458  '', & ! tag name
459  '', & ! fortran variable
460  '', & ! type
461  '', & ! shape
462  '', & ! longname
463  .false., & ! required
464  .false., & ! developmode
465  .false., & ! multi-record
466  .false., & ! preserve case
467  .false., & ! layered
468  .false. & ! timeseries
469  ) &
470  ]
471 
472  type(inputblockdefinitiontype), parameter :: &
473  gwf_evta_block_definitions(*) = &
474  [ &
475  inputblockdefinitiontype( &
476  'OPTIONS', & ! blockname
477  .true., & ! required
478  .false., & ! aggregate
479  .false. & ! block_variable
480  ), &
481  inputblockdefinitiontype( &
482  'PERIOD', & ! blockname
483  .true., & ! required
484  .false., & ! aggregate
485  .true. & ! block_variable
486  ) &
487  ]
488 
489 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:368
gwfevtainputmodule::gwfevta_obs6
type(inputparamdefinitiontype), parameter gwfevta_obs6
Definition: gwf-evtaidm.f90:273
gwfevtainputmodule::gwfevta_auxiliary
type(inputparamdefinitiontype), parameter gwfevta_auxiliary
Definition: gwf-evtaidm.f90:83
gwfevtainputmodule::gwfevta_obs6_filename
type(inputparamdefinitiontype), parameter gwfevta_obs6_filename
Definition: gwf-evtaidm.f90:292
gwfevtainputmodule::gwfevta_tas_filerecord
type(inputparamdefinitiontype), parameter gwfevta_tas_filerecord
Definition: gwf-evtaidm.f90:178
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:254
gwfevtainputmodule::gwfevta_ipakcb
type(inputparamdefinitiontype), parameter gwfevta_ipakcb
Definition: gwf-evtaidm.f90:159
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:197
gwfevtainputmodule::gwfevta_filein
type(inputparamdefinitiontype), parameter gwfevta_filein
Definition: gwf-evtaidm.f90:216
gwfevtainputmodule::gwfevta_iprpak
type(inputparamdefinitiontype), parameter gwfevta_iprpak
Definition: gwf-evtaidm.f90:121
gwfevtainputmodule::gwf_evta_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_evta_param_definitions
Definition: gwf-evtaidm.f90:425
gwfevtainputmodule::gwf_evta_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_evta_aggregate_definitions
Definition: gwf-evtaidm.f90:450
gwfevtainputmodule::gwfevta_auxmultname
type(inputparamdefinitiontype), parameter gwfevta_auxmultname
Definition: gwf-evtaidm.f90:102
gwfevtainputmodule::gwfevta_surface
type(inputparamdefinitiontype), parameter gwfevta_surface
Definition: gwf-evtaidm.f90:349
gwfevtainputmodule::gwf_evta_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_evta_block_definitions
Definition: gwf-evtaidm.f90:472
gwfevtainputmodule::gwfevta_depth
type(inputparamdefinitiontype), parameter gwfevta_depth
Definition: gwf-evtaidm.f90:387
gwfevtainputmodule::gwfevta_ievt
type(inputparamdefinitiontype), parameter gwfevta_ievt
Definition: gwf-evtaidm.f90:330
gwfevtainputmodule::gwfevta_export_nc
type(inputparamdefinitiontype), parameter gwfevta_export_nc
Definition: gwf-evtaidm.f90:311
gwfevtainputmodule::gwfevta_auxvar
type(inputparamdefinitiontype), parameter gwfevta_auxvar
Definition: gwf-evtaidm.f90:406
gwfevtainputmodule::gwfevta_iprflow
type(inputparamdefinitiontype), parameter gwfevta_iprflow
Definition: gwf-evtaidm.f90:140
gwfevtainputmodule::gwfevta_tas6_filename
type(inputparamdefinitiontype), parameter gwfevta_tas6_filename
Definition: gwf-evtaidm.f90:235
gwfevtainputmodule::gwf_evta_multi_package
logical, public gwf_evta_multi_package
Definition: gwf-evtaidm.f90:37
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7