MODFLOW 6  version 6.8.0.dev0
USGS Modular Hydrologic Model
gwf-evtidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
3  use constantsmodule, only: lenvarname
6  private
12  public gwf_evt_subpackages
13 
15  logical :: fixed_cell = .false.
16  logical :: auxiliary = .false.
17  logical :: auxmultname = .false.
18  logical :: boundnames = .false.
19  logical :: iprpak = .false.
20  logical :: iprflow = .false.
21  logical :: ipakcb = .false.
22  logical :: ts_filerecord = .false.
23  logical :: ts6 = .false.
24  logical :: filein = .false.
25  logical :: ts6_filename = .false.
26  logical :: obs_filerecord = .false.
27  logical :: obs6 = .false.
28  logical :: obs6_filename = .false.
29  logical :: surfratespec = .false.
30  logical :: maxbound = .false.
31  logical :: nseg = .false.
32  logical :: cellid = .false.
33  logical :: surface = .false.
34  logical :: rate = .false.
35  logical :: depth = .false.
36  logical :: pxdp = .false.
37  logical :: petm = .false.
38  logical :: petm0 = .false.
39  logical :: auxvar = .false.
40  logical :: boundname = .false.
41  end type gwfevtparamfoundtype
42 
43  logical :: gwf_evt_multi_package = .true.
44 
45  character(len=16), parameter :: &
46  gwf_evt_subpackages(*) = &
47  [ &
48  ' ' &
49  ]
50 
51  type(inputparamdefinitiontype), parameter :: &
53  ( &
54  'GWF', & ! component
55  'EVT', & ! subcomponent
56  'OPTIONS', & ! block
57  'FIXED_CELL', & ! tag name
58  'FIXED_CELL', & ! fortran variable
59  'KEYWORD', & ! type
60  '', & ! shape
61  'if cell is dry do not apply evapotranspiration to underlying '// &
62  'cell', & ! longname
63  .false., & ! required
64  .false., & ! developmode
65  .false., & ! multi-record
66  .false., & ! preserve case
67  .false., & ! layered
68  .false. & ! timeseries
69  )
70 
71  type(inputparamdefinitiontype), parameter :: &
73  ( &
74  'GWF', & ! component
75  'EVT', & ! subcomponent
76  'OPTIONS', & ! block
77  'AUXILIARY', & ! tag name
78  'AUXILIARY', & ! fortran variable
79  'STRING', & ! type
80  'NAUX', & ! shape
81  'keyword to specify aux variables', & ! longname
82  .false., & ! required
83  .false., & ! developmode
84  .false., & ! multi-record
85  .false., & ! preserve case
86  .false., & ! layered
87  .false. & ! timeseries
88  )
89 
90  type(inputparamdefinitiontype), parameter :: &
92  ( &
93  'GWF', & ! component
94  'EVT', & ! subcomponent
95  'OPTIONS', & ! block
96  'AUXMULTNAME', & ! tag name
97  'AUXMULTNAME', & ! fortran variable
98  'STRING', & ! type
99  '', & ! shape
100  'name of auxiliary variable for multiplier', & ! longname
101  .false., & ! required
102  .false., & ! developmode
103  .false., & ! multi-record
104  .false., & ! preserve case
105  .false., & ! layered
106  .false. & ! timeseries
107  )
108 
109  type(inputparamdefinitiontype), parameter :: &
111  ( &
112  'GWF', & ! component
113  'EVT', & ! subcomponent
114  'OPTIONS', & ! block
115  'BOUNDNAMES', & ! tag name
116  'BOUNDNAMES', & ! fortran variable
117  'KEYWORD', & ! type
118  '', & ! shape
119  '', & ! longname
120  .false., & ! required
121  .false., & ! developmode
122  .false., & ! multi-record
123  .false., & ! preserve case
124  .false., & ! layered
125  .false. & ! timeseries
126  )
127 
128  type(inputparamdefinitiontype), parameter :: &
130  ( &
131  'GWF', & ! component
132  'EVT', & ! subcomponent
133  'OPTIONS', & ! block
134  'PRINT_INPUT', & ! tag name
135  'IPRPAK', & ! fortran variable
136  'KEYWORD', & ! type
137  '', & ! shape
138  'print input to listing file', & ! longname
139  .false., & ! required
140  .false., & ! developmode
141  .false., & ! multi-record
142  .false., & ! preserve case
143  .false., & ! layered
144  .false. & ! timeseries
145  )
146 
147  type(inputparamdefinitiontype), parameter :: &
149  ( &
150  'GWF', & ! component
151  'EVT', & ! subcomponent
152  'OPTIONS', & ! block
153  'PRINT_FLOWS', & ! tag name
154  'IPRFLOW', & ! fortran variable
155  'KEYWORD', & ! type
156  '', & ! shape
157  'print evapotranspiration rates to listing file', & ! longname
158  .false., & ! required
159  .false., & ! developmode
160  .false., & ! multi-record
161  .false., & ! preserve case
162  .false., & ! layered
163  .false. & ! timeseries
164  )
165 
166  type(inputparamdefinitiontype), parameter :: &
168  ( &
169  'GWF', & ! component
170  'EVT', & ! subcomponent
171  'OPTIONS', & ! block
172  'SAVE_FLOWS', & ! tag name
173  'IPAKCB', & ! fortran variable
174  'KEYWORD', & ! type
175  '', & ! shape
176  'save evapotranspiration rates to budget file', & ! longname
177  .false., & ! required
178  .false., & ! developmode
179  .false., & ! multi-record
180  .false., & ! preserve case
181  .false., & ! layered
182  .false. & ! timeseries
183  )
184 
185  type(inputparamdefinitiontype), parameter :: &
187  ( &
188  'GWF', & ! component
189  'EVT', & ! subcomponent
190  'OPTIONS', & ! block
191  'TS_FILERECORD', & ! tag name
192  'TS_FILERECORD', & ! fortran variable
193  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
194  '', & ! shape
195  '', & ! longname
196  .false., & ! required
197  .false., & ! developmode
198  .false., & ! multi-record
199  .false., & ! preserve case
200  .false., & ! layered
201  .false. & ! timeseries
202  )
203 
204  type(inputparamdefinitiontype), parameter :: &
206  ( &
207  'GWF', & ! component
208  'EVT', & ! subcomponent
209  'OPTIONS', & ! block
210  'TS6', & ! tag name
211  'TS6', & ! fortran variable
212  'KEYWORD', & ! type
213  '', & ! shape
214  'head keyword', & ! longname
215  .true., & ! required
216  .false., & ! developmode
217  .true., & ! multi-record
218  .false., & ! preserve case
219  .false., & ! layered
220  .false. & ! timeseries
221  )
222 
223  type(inputparamdefinitiontype), parameter :: &
225  ( &
226  'GWF', & ! component
227  'EVT', & ! subcomponent
228  'OPTIONS', & ! block
229  'FILEIN', & ! tag name
230  'FILEIN', & ! fortran variable
231  'KEYWORD', & ! type
232  '', & ! shape
233  'file keyword', & ! longname
234  .true., & ! required
235  .false., & ! developmode
236  .true., & ! multi-record
237  .false., & ! preserve case
238  .false., & ! layered
239  .false. & ! timeseries
240  )
241 
242  type(inputparamdefinitiontype), parameter :: &
244  ( &
245  'GWF', & ! component
246  'EVT', & ! subcomponent
247  'OPTIONS', & ! block
248  'TS6_FILENAME', & ! tag name
249  'TS6_FILENAME', & ! fortran variable
250  'STRING', & ! type
251  '', & ! shape
252  'file name of time series information', & ! longname
253  .true., & ! required
254  .false., & ! developmode
255  .true., & ! multi-record
256  .true., & ! preserve case
257  .false., & ! layered
258  .false. & ! timeseries
259  )
260 
261  type(inputparamdefinitiontype), parameter :: &
263  ( &
264  'GWF', & ! component
265  'EVT', & ! subcomponent
266  'OPTIONS', & ! block
267  'OBS_FILERECORD', & ! tag name
268  'OBS_FILERECORD', & ! fortran variable
269  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
270  '', & ! shape
271  '', & ! longname
272  .false., & ! required
273  .false., & ! developmode
274  .false., & ! multi-record
275  .false., & ! preserve case
276  .false., & ! layered
277  .false. & ! timeseries
278  )
279 
280  type(inputparamdefinitiontype), parameter :: &
282  ( &
283  'GWF', & ! component
284  'EVT', & ! subcomponent
285  'OPTIONS', & ! block
286  'OBS6', & ! tag name
287  'OBS6', & ! fortran variable
288  'KEYWORD', & ! type
289  '', & ! shape
290  'obs keyword', & ! longname
291  .true., & ! required
292  .false., & ! developmode
293  .true., & ! multi-record
294  .false., & ! preserve case
295  .false., & ! layered
296  .false. & ! timeseries
297  )
298 
299  type(inputparamdefinitiontype), parameter :: &
301  ( &
302  'GWF', & ! component
303  'EVT', & ! subcomponent
304  'OPTIONS', & ! block
305  'OBS6_FILENAME', & ! tag name
306  'OBS6_FILENAME', & ! fortran variable
307  'STRING', & ! type
308  '', & ! shape
309  'obs6 input filename', & ! longname
310  .true., & ! required
311  .false., & ! developmode
312  .true., & ! multi-record
313  .true., & ! preserve case
314  .false., & ! layered
315  .false. & ! timeseries
316  )
317 
318  type(inputparamdefinitiontype), parameter :: &
320  ( &
321  'GWF', & ! component
322  'EVT', & ! subcomponent
323  'OPTIONS', & ! block
324  'SURF_RATE_SPECIFIED', & ! tag name
325  'SURFRATESPEC', & ! fortran variable
326  'KEYWORD', & ! type
327  '', & ! shape
328  'specify proportion of evapotranspiration rate at ET surface', & ! longname
329  .false., & ! required
330  .false., & ! developmode
331  .false., & ! multi-record
332  .false., & ! preserve case
333  .false., & ! layered
334  .false. & ! timeseries
335  )
336 
337  type(inputparamdefinitiontype), parameter :: &
339  ( &
340  'GWF', & ! component
341  'EVT', & ! subcomponent
342  'DIMENSIONS', & ! block
343  'MAXBOUND', & ! tag name
344  'MAXBOUND', & ! fortran variable
345  'INTEGER', & ! type
346  '', & ! shape
347  'maximum number of evapotranspiration cells', & ! longname
348  .true., & ! required
349  .false., & ! developmode
350  .false., & ! multi-record
351  .false., & ! preserve case
352  .false., & ! layered
353  .false. & ! timeseries
354  )
355 
356  type(inputparamdefinitiontype), parameter :: &
358  ( &
359  'GWF', & ! component
360  'EVT', & ! subcomponent
361  'DIMENSIONS', & ! block
362  'NSEG', & ! tag name
363  'NSEG', & ! fortran variable
364  'INTEGER', & ! type
365  '', & ! shape
366  'number of ET segments', & ! longname
367  .true., & ! required
368  .false., & ! developmode
369  .false., & ! multi-record
370  .false., & ! preserve case
371  .false., & ! layered
372  .false. & ! timeseries
373  )
374 
375  type(inputparamdefinitiontype), parameter :: &
377  ( &
378  'GWF', & ! component
379  'EVT', & ! subcomponent
380  'PERIOD', & ! block
381  'CELLID', & ! tag name
382  'CELLID', & ! fortran variable
383  'INTEGER1D', & ! type
384  'NCELLDIM', & ! shape
385  'cell identifier', & ! longname
386  .true., & ! required
387  .false., & ! developmode
388  .true., & ! multi-record
389  .false., & ! preserve case
390  .false., & ! layered
391  .false. & ! timeseries
392  )
393 
394  type(inputparamdefinitiontype), parameter :: &
396  ( &
397  'GWF', & ! component
398  'EVT', & ! subcomponent
399  'PERIOD', & ! block
400  'SURFACE', & ! tag name
401  'SURFACE', & ! fortran variable
402  'DOUBLE', & ! type
403  '', & ! shape
404  'ET surface', & ! longname
405  .true., & ! required
406  .false., & ! developmode
407  .true., & ! multi-record
408  .false., & ! preserve case
409  .false., & ! layered
410  .true. & ! timeseries
411  )
412 
413  type(inputparamdefinitiontype), parameter :: &
415  ( &
416  'GWF', & ! component
417  'EVT', & ! subcomponent
418  'PERIOD', & ! block
419  'RATE', & ! tag name
420  'RATE', & ! fortran variable
421  'DOUBLE', & ! type
422  '', & ! shape
423  'maximum ET rate', & ! longname
424  .true., & ! required
425  .false., & ! developmode
426  .true., & ! multi-record
427  .false., & ! preserve case
428  .false., & ! layered
429  .true. & ! timeseries
430  )
431 
432  type(inputparamdefinitiontype), parameter :: &
434  ( &
435  'GWF', & ! component
436  'EVT', & ! subcomponent
437  'PERIOD', & ! block
438  'DEPTH', & ! tag name
439  'DEPTH', & ! fortran variable
440  'DOUBLE', & ! type
441  '', & ! shape
442  'ET extinction depth', & ! longname
443  .true., & ! required
444  .false., & ! developmode
445  .true., & ! multi-record
446  .false., & ! preserve case
447  .false., & ! layered
448  .true. & ! timeseries
449  )
450 
451  type(inputparamdefinitiontype), parameter :: &
453  ( &
454  'GWF', & ! component
455  'EVT', & ! subcomponent
456  'PERIOD', & ! block
457  'PXDP', & ! tag name
458  'PXDP', & ! fortran variable
459  'DOUBLE1D', & ! type
460  'NSEG-1', & ! shape
461  'proportion of ET extinction depth', & ! longname
462  .false., & ! required
463  .false., & ! developmode
464  .true., & ! multi-record
465  .false., & ! preserve case
466  .false., & ! layered
467  .true. & ! timeseries
468  )
469 
470  type(inputparamdefinitiontype), parameter :: &
472  ( &
473  'GWF', & ! component
474  'EVT', & ! subcomponent
475  'PERIOD', & ! block
476  'PETM', & ! tag name
477  'PETM', & ! fortran variable
478  'DOUBLE1D', & ! type
479  'NSEG-1', & ! shape
480  'proportion of maximum ET rate', & ! longname
481  .false., & ! required
482  .false., & ! developmode
483  .true., & ! multi-record
484  .false., & ! preserve case
485  .false., & ! layered
486  .true. & ! timeseries
487  )
488 
489  type(inputparamdefinitiontype), parameter :: &
491  ( &
492  'GWF', & ! component
493  'EVT', & ! subcomponent
494  'PERIOD', & ! block
495  'PETM0', & ! tag name
496  'PETM0', & ! fortran variable
497  'DOUBLE', & ! type
498  '', & ! shape
499  'proportion of maximum ET rate at ET surface', & ! longname
500  .false., & ! required
501  .false., & ! developmode
502  .true., & ! multi-record
503  .false., & ! preserve case
504  .false., & ! layered
505  .true. & ! timeseries
506  )
507 
508  type(inputparamdefinitiontype), parameter :: &
510  ( &
511  'GWF', & ! component
512  'EVT', & ! subcomponent
513  'PERIOD', & ! block
514  'AUX', & ! tag name
515  'AUXVAR', & ! fortran variable
516  'DOUBLE1D', & ! type
517  'NAUX', & ! shape
518  'auxiliary variables', & ! longname
519  .false., & ! required
520  .false., & ! developmode
521  .true., & ! multi-record
522  .false., & ! preserve case
523  .false., & ! layered
524  .true. & ! timeseries
525  )
526 
527  type(inputparamdefinitiontype), parameter :: &
529  ( &
530  'GWF', & ! component
531  'EVT', & ! subcomponent
532  'PERIOD', & ! block
533  'BOUNDNAME', & ! tag name
534  'BOUNDNAME', & ! fortran variable
535  'STRING', & ! type
536  '', & ! shape
537  'evapotranspiration name', & ! longname
538  .false., & ! required
539  .false., & ! developmode
540  .true., & ! multi-record
541  .false., & ! preserve case
542  .false., & ! layered
543  .false. & ! timeseries
544  )
545 
546  type(inputparamdefinitiontype), parameter :: &
548  [ &
553  gwfevt_iprpak, &
554  gwfevt_iprflow, &
555  gwfevt_ipakcb, &
557  gwfevt_ts6, &
558  gwfevt_filein, &
561  gwfevt_obs6, &
564  gwfevt_maxbound, &
565  gwfevt_nseg, &
566  gwfevt_cellid, &
567  gwfevt_surface, &
568  gwfevt_rate, &
569  gwfevt_depth, &
570  gwfevt_pxdp, &
571  gwfevt_petm, &
572  gwfevt_petm0, &
573  gwfevt_auxvar, &
575  ]
576 
577  type(inputparamdefinitiontype), parameter :: &
579  ( &
580  'GWF', & ! component
581  'EVT', & ! subcomponent
582  'PERIOD', & ! block
583  'STRESS_PERIOD_DATA', & ! tag name
584  'SPD', & ! fortran variable
585  'RECARRAY CELLID SURFACE RATE DEPTH PXDP PETM PETM0 AUX '// &
586  'BOUNDNAME', & ! type
587  'MAXBOUND', & ! shape
588  '', & ! longname
589  .true., & ! required
590  .false., & ! developmode
591  .false., & ! multi-record
592  .false., & ! preserve case
593  .false., & ! layered
594  .false. & ! timeseries
595  )
596 
597  type(inputparamdefinitiontype), parameter :: &
599  [ &
600  gwfevt_spd &
601  ]
602 
603  type(inputblockdefinitiontype), parameter :: &
605  [ &
607  'OPTIONS', & ! blockname
608  .false., & ! required
609  .false., & ! aggregate
610  .false. & ! block_variable
611  ), &
613  'DIMENSIONS', & ! blockname
614  .true., & ! required
615  .false., & ! aggregate
616  .false. & ! block_variable
617  ), &
619  'PERIOD', & ! blockname
620  .true., & ! required
621  .true., & ! aggregate
622  .true. & ! block_variable
623  ) &
624  ]
625 
626 end module gwfevtinputmodule
This module contains simulation constants.
Definition: Constants.f90:9
integer(i4b), parameter lenvarname
maximum length of a variable name
Definition: Constants.f90:17
type(inputparamdefinitiontype), parameter gwfevt_ts_filerecord
Definition: gwf-evtidm.f90:185
type(inputparamdefinitiontype), parameter gwfevt_nseg
Definition: gwf-evtidm.f90:356
type(inputparamdefinitiontype), parameter gwfevt_iprflow
Definition: gwf-evtidm.f90:147
type(inputparamdefinitiontype), parameter gwfevt_auxmultname
Definition: gwf-evtidm.f90:90
type(inputparamdefinitiontype), parameter gwfevt_filein
Definition: gwf-evtidm.f90:223
type(inputparamdefinitiontype), parameter gwfevt_boundnames
Definition: gwf-evtidm.f90:109
type(inputparamdefinitiontype), parameter gwfevt_surface
Definition: gwf-evtidm.f90:394
type(inputparamdefinitiontype), parameter gwfevt_boundname
Definition: gwf-evtidm.f90:527
type(inputparamdefinitiontype), parameter gwfevt_cellid
Definition: gwf-evtidm.f90:375
character(len=16), dimension(*), parameter, public gwf_evt_subpackages
Definition: gwf-evtidm.f90:45
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_evt_param_definitions
Definition: gwf-evtidm.f90:546
type(inputparamdefinitiontype), parameter gwfevt_rate
Definition: gwf-evtidm.f90:413
type(inputparamdefinitiontype), parameter gwfevt_petm0
Definition: gwf-evtidm.f90:489
type(inputparamdefinitiontype), parameter gwfevt_ts6_filename
Definition: gwf-evtidm.f90:242
type(inputparamdefinitiontype), parameter gwfevt_depth
Definition: gwf-evtidm.f90:432
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_evt_block_definitions
Definition: gwf-evtidm.f90:603
type(inputparamdefinitiontype), parameter gwfevt_auxiliary
Definition: gwf-evtidm.f90:71
type(inputparamdefinitiontype), parameter gwfevt_spd
Definition: gwf-evtidm.f90:577
type(inputparamdefinitiontype), parameter gwfevt_auxvar
Definition: gwf-evtidm.f90:508
type(inputparamdefinitiontype), parameter gwfevt_ipakcb
Definition: gwf-evtidm.f90:166
type(inputparamdefinitiontype), parameter gwfevt_ts6
Definition: gwf-evtidm.f90:204
type(inputparamdefinitiontype), parameter gwfevt_obs6_filename
Definition: gwf-evtidm.f90:299
type(inputparamdefinitiontype), parameter gwfevt_fixed_cell
Definition: gwf-evtidm.f90:51
type(inputparamdefinitiontype), parameter gwfevt_maxbound
Definition: gwf-evtidm.f90:337
type(inputparamdefinitiontype), parameter gwfevt_obs_filerecord
Definition: gwf-evtidm.f90:261
type(inputparamdefinitiontype), parameter gwfevt_pxdp
Definition: gwf-evtidm.f90:451
type(inputparamdefinitiontype), parameter gwfevt_petm
Definition: gwf-evtidm.f90:470
type(inputparamdefinitiontype), parameter gwfevt_surfratespec
Definition: gwf-evtidm.f90:318
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_evt_aggregate_definitions
Definition: gwf-evtidm.f90:597
logical, public gwf_evt_multi_package
Definition: gwf-evtidm.f90:43
type(inputparamdefinitiontype), parameter gwfevt_obs6
Definition: gwf-evtidm.f90:280
type(inputparamdefinitiontype), parameter gwfevt_iprpak
Definition: gwf-evtidm.f90:128
Input definition module.
Input block definition. Describes an input block.
Input parameter definition. Describes an input parameter.