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