MODFLOW 6  version 6.7.0.dev3
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 cell', & ! longname
62  .false., & ! required
63  .false., & ! prerelease
64  .false., & ! multi-record
65  .false., & ! preserve case
66  .false., & ! layered
67  .false. & ! timeseries
68  )
69 
70  type(inputparamdefinitiontype), parameter :: &
72  ( &
73  'GWF', & ! component
74  'EVT', & ! subcomponent
75  'OPTIONS', & ! block
76  'AUXILIARY', & ! tag name
77  'AUXILIARY', & ! fortran variable
78  'STRING', & ! type
79  'NAUX', & ! shape
80  'keyword to specify aux variables', & ! longname
81  .false., & ! required
82  .false., & ! prerelease
83  .false., & ! multi-record
84  .false., & ! preserve case
85  .false., & ! layered
86  .false. & ! timeseries
87  )
88 
89  type(inputparamdefinitiontype), parameter :: &
91  ( &
92  'GWF', & ! component
93  'EVT', & ! subcomponent
94  'OPTIONS', & ! block
95  'AUXMULTNAME', & ! tag name
96  'AUXMULTNAME', & ! fortran variable
97  'STRING', & ! type
98  '', & ! shape
99  'name of auxiliary variable for multiplier', & ! longname
100  .false., & ! required
101  .false., & ! prerelease
102  .false., & ! multi-record
103  .false., & ! preserve case
104  .false., & ! layered
105  .false. & ! timeseries
106  )
107 
108  type(inputparamdefinitiontype), parameter :: &
110  ( &
111  'GWF', & ! component
112  'EVT', & ! subcomponent
113  'OPTIONS', & ! block
114  'BOUNDNAMES', & ! tag name
115  'BOUNDNAMES', & ! fortran variable
116  'KEYWORD', & ! type
117  '', & ! shape
118  '', & ! longname
119  .false., & ! required
120  .false., & ! prerelease
121  .false., & ! multi-record
122  .false., & ! preserve case
123  .false., & ! layered
124  .false. & ! timeseries
125  )
126 
127  type(inputparamdefinitiontype), parameter :: &
129  ( &
130  'GWF', & ! component
131  'EVT', & ! subcomponent
132  'OPTIONS', & ! block
133  'PRINT_INPUT', & ! tag name
134  'IPRPAK', & ! fortran variable
135  'KEYWORD', & ! type
136  '', & ! shape
137  'print input to listing file', & ! longname
138  .false., & ! required
139  .false., & ! prerelease
140  .false., & ! multi-record
141  .false., & ! preserve case
142  .false., & ! layered
143  .false. & ! timeseries
144  )
145 
146  type(inputparamdefinitiontype), parameter :: &
148  ( &
149  'GWF', & ! component
150  'EVT', & ! subcomponent
151  'OPTIONS', & ! block
152  'PRINT_FLOWS', & ! tag name
153  'IPRFLOW', & ! fortran variable
154  'KEYWORD', & ! type
155  '', & ! shape
156  'print evapotranspiration rates to listing file', & ! longname
157  .false., & ! required
158  .false., & ! prerelease
159  .false., & ! multi-record
160  .false., & ! preserve case
161  .false., & ! layered
162  .false. & ! timeseries
163  )
164 
165  type(inputparamdefinitiontype), parameter :: &
167  ( &
168  'GWF', & ! component
169  'EVT', & ! subcomponent
170  'OPTIONS', & ! block
171  'SAVE_FLOWS', & ! tag name
172  'IPAKCB', & ! fortran variable
173  'KEYWORD', & ! type
174  '', & ! shape
175  'save evapotranspiration rates to budget file', & ! longname
176  .false., & ! required
177  .false., & ! prerelease
178  .false., & ! multi-record
179  .false., & ! preserve case
180  .false., & ! layered
181  .false. & ! timeseries
182  )
183 
184  type(inputparamdefinitiontype), parameter :: &
186  ( &
187  'GWF', & ! component
188  'EVT', & ! subcomponent
189  'OPTIONS', & ! block
190  'TS_FILERECORD', & ! tag name
191  'TS_FILERECORD', & ! fortran variable
192  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
193  '', & ! shape
194  '', & ! longname
195  .false., & ! required
196  .false., & ! prerelease
197  .false., & ! multi-record
198  .false., & ! preserve case
199  .false., & ! layered
200  .false. & ! timeseries
201  )
202 
203  type(inputparamdefinitiontype), parameter :: &
205  ( &
206  'GWF', & ! component
207  'EVT', & ! subcomponent
208  'OPTIONS', & ! block
209  'TS6', & ! tag name
210  'TS6', & ! fortran variable
211  'KEYWORD', & ! type
212  '', & ! shape
213  'head keyword', & ! longname
214  .true., & ! required
215  .false., & ! prerelease
216  .true., & ! multi-record
217  .false., & ! preserve case
218  .false., & ! layered
219  .false. & ! timeseries
220  )
221 
222  type(inputparamdefinitiontype), parameter :: &
224  ( &
225  'GWF', & ! component
226  'EVT', & ! subcomponent
227  'OPTIONS', & ! block
228  'FILEIN', & ! tag name
229  'FILEIN', & ! fortran variable
230  'KEYWORD', & ! type
231  '', & ! shape
232  'file keyword', & ! longname
233  .true., & ! required
234  .false., & ! prerelease
235  .true., & ! multi-record
236  .false., & ! preserve case
237  .false., & ! layered
238  .false. & ! timeseries
239  )
240 
241  type(inputparamdefinitiontype), parameter :: &
243  ( &
244  'GWF', & ! component
245  'EVT', & ! subcomponent
246  'OPTIONS', & ! block
247  'TS6_FILENAME', & ! tag name
248  'TS6_FILENAME', & ! fortran variable
249  'STRING', & ! type
250  '', & ! shape
251  'file name of time series information', & ! longname
252  .true., & ! required
253  .false., & ! prerelease
254  .true., & ! multi-record
255  .true., & ! preserve case
256  .false., & ! layered
257  .false. & ! timeseries
258  )
259 
260  type(inputparamdefinitiontype), parameter :: &
262  ( &
263  'GWF', & ! component
264  'EVT', & ! subcomponent
265  'OPTIONS', & ! block
266  'OBS_FILERECORD', & ! tag name
267  'OBS_FILERECORD', & ! fortran variable
268  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
269  '', & ! shape
270  '', & ! longname
271  .false., & ! required
272  .false., & ! prerelease
273  .false., & ! multi-record
274  .false., & ! preserve case
275  .false., & ! layered
276  .false. & ! timeseries
277  )
278 
279  type(inputparamdefinitiontype), parameter :: &
281  ( &
282  'GWF', & ! component
283  'EVT', & ! subcomponent
284  'OPTIONS', & ! block
285  'OBS6', & ! tag name
286  'OBS6', & ! fortran variable
287  'KEYWORD', & ! type
288  '', & ! shape
289  'obs keyword', & ! longname
290  .true., & ! required
291  .false., & ! prerelease
292  .true., & ! multi-record
293  .false., & ! preserve case
294  .false., & ! layered
295  .false. & ! timeseries
296  )
297 
298  type(inputparamdefinitiontype), parameter :: &
300  ( &
301  'GWF', & ! component
302  'EVT', & ! subcomponent
303  'OPTIONS', & ! block
304  'OBS6_FILENAME', & ! tag name
305  'OBS6_FILENAME', & ! fortran variable
306  'STRING', & ! type
307  '', & ! shape
308  'obs6 input filename', & ! longname
309  .true., & ! required
310  .false., & ! prerelease
311  .true., & ! multi-record
312  .true., & ! preserve case
313  .false., & ! layered
314  .false. & ! timeseries
315  )
316 
317  type(inputparamdefinitiontype), parameter :: &
319  ( &
320  'GWF', & ! component
321  'EVT', & ! subcomponent
322  'OPTIONS', & ! block
323  'SURF_RATE_SPECIFIED', & ! tag name
324  'SURFRATESPEC', & ! fortran variable
325  'KEYWORD', & ! type
326  '', & ! shape
327  'specify proportion of evapotranspiration rate at ET surface', & ! longname
328  .false., & ! required
329  .false., & ! prerelease
330  .false., & ! multi-record
331  .false., & ! preserve case
332  .false., & ! layered
333  .false. & ! timeseries
334  )
335 
336  type(inputparamdefinitiontype), parameter :: &
338  ( &
339  'GWF', & ! component
340  'EVT', & ! subcomponent
341  'DIMENSIONS', & ! block
342  'MAXBOUND', & ! tag name
343  'MAXBOUND', & ! fortran variable
344  'INTEGER', & ! type
345  '', & ! shape
346  'maximum number of evapotranspiration cells', & ! longname
347  .true., & ! required
348  .false., & ! prerelease
349  .false., & ! multi-record
350  .false., & ! preserve case
351  .false., & ! layered
352  .false. & ! timeseries
353  )
354 
355  type(inputparamdefinitiontype), parameter :: &
357  ( &
358  'GWF', & ! component
359  'EVT', & ! subcomponent
360  'DIMENSIONS', & ! block
361  'NSEG', & ! tag name
362  'NSEG', & ! fortran variable
363  'INTEGER', & ! type
364  '', & ! shape
365  'number of ET segments', & ! longname
366  .true., & ! required
367  .false., & ! prerelease
368  .false., & ! multi-record
369  .false., & ! preserve case
370  .false., & ! layered
371  .false. & ! timeseries
372  )
373 
374  type(inputparamdefinitiontype), parameter :: &
376  ( &
377  'GWF', & ! component
378  'EVT', & ! subcomponent
379  'PERIOD', & ! block
380  'CELLID', & ! tag name
381  'CELLID', & ! fortran variable
382  'INTEGER1D', & ! type
383  'NCELLDIM', & ! shape
384  'cell identifier', & ! longname
385  .true., & ! required
386  .false., & ! prerelease
387  .true., & ! multi-record
388  .false., & ! preserve case
389  .false., & ! layered
390  .false. & ! timeseries
391  )
392 
393  type(inputparamdefinitiontype), parameter :: &
395  ( &
396  'GWF', & ! component
397  'EVT', & ! subcomponent
398  'PERIOD', & ! block
399  'SURFACE', & ! tag name
400  'SURFACE', & ! fortran variable
401  'DOUBLE', & ! type
402  '', & ! shape
403  'ET surface', & ! longname
404  .true., & ! required
405  .false., & ! prerelease
406  .true., & ! multi-record
407  .false., & ! preserve case
408  .false., & ! layered
409  .true. & ! timeseries
410  )
411 
412  type(inputparamdefinitiontype), parameter :: &
414  ( &
415  'GWF', & ! component
416  'EVT', & ! subcomponent
417  'PERIOD', & ! block
418  'RATE', & ! tag name
419  'RATE', & ! fortran variable
420  'DOUBLE', & ! type
421  '', & ! shape
422  'maximum ET rate', & ! longname
423  .true., & ! required
424  .false., & ! prerelease
425  .true., & ! multi-record
426  .false., & ! preserve case
427  .false., & ! layered
428  .true. & ! timeseries
429  )
430 
431  type(inputparamdefinitiontype), parameter :: &
433  ( &
434  'GWF', & ! component
435  'EVT', & ! subcomponent
436  'PERIOD', & ! block
437  'DEPTH', & ! tag name
438  'DEPTH', & ! fortran variable
439  'DOUBLE', & ! type
440  '', & ! shape
441  'ET extinction depth', & ! longname
442  .true., & ! required
443  .false., & ! prerelease
444  .true., & ! multi-record
445  .false., & ! preserve case
446  .false., & ! layered
447  .true. & ! timeseries
448  )
449 
450  type(inputparamdefinitiontype), parameter :: &
452  ( &
453  'GWF', & ! component
454  'EVT', & ! subcomponent
455  'PERIOD', & ! block
456  'PXDP', & ! tag name
457  'PXDP', & ! fortran variable
458  'DOUBLE1D', & ! type
459  'NSEG-1', & ! shape
460  'proportion of ET extinction depth', & ! longname
461  .false., & ! required
462  .false., & ! prerelease
463  .true., & ! multi-record
464  .false., & ! preserve case
465  .false., & ! layered
466  .true. & ! timeseries
467  )
468 
469  type(inputparamdefinitiontype), parameter :: &
471  ( &
472  'GWF', & ! component
473  'EVT', & ! subcomponent
474  'PERIOD', & ! block
475  'PETM', & ! tag name
476  'PETM', & ! fortran variable
477  'DOUBLE1D', & ! type
478  'NSEG-1', & ! shape
479  'proportion of maximum ET rate', & ! longname
480  .false., & ! required
481  .false., & ! prerelease
482  .true., & ! multi-record
483  .false., & ! preserve case
484  .false., & ! layered
485  .true. & ! timeseries
486  )
487 
488  type(inputparamdefinitiontype), parameter :: &
490  ( &
491  'GWF', & ! component
492  'EVT', & ! subcomponent
493  'PERIOD', & ! block
494  'PETM0', & ! tag name
495  'PETM0', & ! fortran variable
496  'DOUBLE', & ! type
497  '', & ! shape
498  'proportion of maximum ET rate at ET surface', & ! longname
499  .false., & ! required
500  .false., & ! prerelease
501  .true., & ! multi-record
502  .false., & ! preserve case
503  .false., & ! layered
504  .true. & ! timeseries
505  )
506 
507  type(inputparamdefinitiontype), parameter :: &
509  ( &
510  'GWF', & ! component
511  'EVT', & ! subcomponent
512  'PERIOD', & ! block
513  'AUX', & ! tag name
514  'AUXVAR', & ! fortran variable
515  'DOUBLE1D', & ! type
516  'NAUX', & ! shape
517  'auxiliary variables', & ! longname
518  .false., & ! required
519  .false., & ! prerelease
520  .true., & ! multi-record
521  .false., & ! preserve case
522  .false., & ! layered
523  .true. & ! timeseries
524  )
525 
526  type(inputparamdefinitiontype), parameter :: &
528  ( &
529  'GWF', & ! component
530  'EVT', & ! subcomponent
531  'PERIOD', & ! block
532  'BOUNDNAME', & ! tag name
533  'BOUNDNAME', & ! fortran variable
534  'STRING', & ! type
535  '', & ! shape
536  'evapotranspiration name', & ! longname
537  .false., & ! required
538  .false., & ! prerelease
539  .true., & ! multi-record
540  .false., & ! preserve case
541  .false., & ! layered
542  .false. & ! timeseries
543  )
544 
545  type(inputparamdefinitiontype), parameter :: &
547  [ &
552  gwfevt_iprpak, &
553  gwfevt_iprflow, &
554  gwfevt_ipakcb, &
556  gwfevt_ts6, &
557  gwfevt_filein, &
560  gwfevt_obs6, &
563  gwfevt_maxbound, &
564  gwfevt_nseg, &
565  gwfevt_cellid, &
566  gwfevt_surface, &
567  gwfevt_rate, &
568  gwfevt_depth, &
569  gwfevt_pxdp, &
570  gwfevt_petm, &
571  gwfevt_petm0, &
572  gwfevt_auxvar, &
574  ]
575 
576  type(inputparamdefinitiontype), parameter :: &
578  ( &
579  'GWF', & ! component
580  'EVT', & ! subcomponent
581  'PERIOD', & ! block
582  'STRESS_PERIOD_DATA', & ! tag name
583  'SPD', & ! fortran variable
584  'RECARRAY CELLID SURFACE RATE DEPTH PXDP PETM PETM0 AUX BOUNDNAME', & ! type
585  'MAXBOUND', & ! shape
586  '', & ! longname
587  .true., & ! required
588  .false., & ! prerelease
589  .false., & ! multi-record
590  .false., & ! preserve case
591  .false., & ! layered
592  .false. & ! timeseries
593  )
594 
595  type(inputparamdefinitiontype), parameter :: &
597  [ &
598  gwfevt_spd &
599  ]
600 
601  type(inputblockdefinitiontype), parameter :: &
603  [ &
605  'OPTIONS', & ! blockname
606  .false., & ! required
607  .false., & ! aggregate
608  .false. & ! block_variable
609  ), &
611  'DIMENSIONS', & ! blockname
612  .true., & ! required
613  .false., & ! aggregate
614  .false. & ! block_variable
615  ), &
617  'PERIOD', & ! blockname
618  .true., & ! required
619  .true., & ! aggregate
620  .true. & ! block_variable
621  ) &
622  ]
623 
624 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:184
type(inputparamdefinitiontype), parameter gwfevt_nseg
Definition: gwf-evtidm.f90:355
type(inputparamdefinitiontype), parameter gwfevt_iprflow
Definition: gwf-evtidm.f90:146
type(inputparamdefinitiontype), parameter gwfevt_auxmultname
Definition: gwf-evtidm.f90:89
type(inputparamdefinitiontype), parameter gwfevt_filein
Definition: gwf-evtidm.f90:222
type(inputparamdefinitiontype), parameter gwfevt_boundnames
Definition: gwf-evtidm.f90:108
type(inputparamdefinitiontype), parameter gwfevt_surface
Definition: gwf-evtidm.f90:393
type(inputparamdefinitiontype), parameter gwfevt_boundname
Definition: gwf-evtidm.f90:526
type(inputparamdefinitiontype), parameter gwfevt_cellid
Definition: gwf-evtidm.f90:374
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:545
type(inputparamdefinitiontype), parameter gwfevt_rate
Definition: gwf-evtidm.f90:412
type(inputparamdefinitiontype), parameter gwfevt_petm0
Definition: gwf-evtidm.f90:488
type(inputparamdefinitiontype), parameter gwfevt_ts6_filename
Definition: gwf-evtidm.f90:241
type(inputparamdefinitiontype), parameter gwfevt_depth
Definition: gwf-evtidm.f90:431
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_evt_block_definitions
Definition: gwf-evtidm.f90:601
type(inputparamdefinitiontype), parameter gwfevt_auxiliary
Definition: gwf-evtidm.f90:70
type(inputparamdefinitiontype), parameter gwfevt_spd
Definition: gwf-evtidm.f90:576
type(inputparamdefinitiontype), parameter gwfevt_auxvar
Definition: gwf-evtidm.f90:507
type(inputparamdefinitiontype), parameter gwfevt_ipakcb
Definition: gwf-evtidm.f90:165
type(inputparamdefinitiontype), parameter gwfevt_ts6
Definition: gwf-evtidm.f90:203
type(inputparamdefinitiontype), parameter gwfevt_obs6_filename
Definition: gwf-evtidm.f90:298
type(inputparamdefinitiontype), parameter gwfevt_fixed_cell
Definition: gwf-evtidm.f90:51
type(inputparamdefinitiontype), parameter gwfevt_maxbound
Definition: gwf-evtidm.f90:336
type(inputparamdefinitiontype), parameter gwfevt_obs_filerecord
Definition: gwf-evtidm.f90:260
type(inputparamdefinitiontype), parameter gwfevt_pxdp
Definition: gwf-evtidm.f90:450
type(inputparamdefinitiontype), parameter gwfevt_petm
Definition: gwf-evtidm.f90:469
type(inputparamdefinitiontype), parameter gwfevt_surfratespec
Definition: gwf-evtidm.f90:317
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_evt_aggregate_definitions
Definition: gwf-evtidm.f90:595
logical, public gwf_evt_multi_package
Definition: gwf-evtidm.f90:43
type(inputparamdefinitiontype), parameter gwfevt_obs6
Definition: gwf-evtidm.f90:279
type(inputparamdefinitiontype), parameter gwfevt_iprpak
Definition: gwf-evtidm.f90:127
This module contains the InputDefinitionModule.