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