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