MODFLOW 6  version 6.7.0.dev3
USGS Modular Hydrologic Model
swf-evpidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module swfevpinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public swf_evp_param_definitions
8  public swf_evp_aggregate_definitions
9  public swf_evp_block_definitions
10  public swfevpparamfoundtype
11  public swf_evp_multi_package
12  public swf_evp_subpackages
13 
14  type swfevpparamfoundtype
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 :: maxbound = .false.
29  logical :: cellid = .false.
30  logical :: evaporation = .false.
31  logical :: auxvar = .false.
32  logical :: boundname = .false.
33  end type swfevpparamfoundtype
34 
35  logical :: swf_evp_multi_package = .true.
36 
37  character(len=16), parameter :: &
38  swf_evp_subpackages(*) = &
39  [ &
40  ' ' &
41  ]
42 
43  type(inputparamdefinitiontype), parameter :: &
44  swfevp_auxiliary = inputparamdefinitiontype &
45  ( &
46  'SWF', & ! component
47  'EVP', & ! subcomponent
48  'OPTIONS', & ! block
49  'AUXILIARY', & ! tag name
50  'AUXILIARY', & ! fortran variable
51  'STRING', & ! type
52  'NAUX', & ! shape
53  'keyword to specify aux variables', & ! longname
54  .false., & ! required
55  .false., & ! prerelease
56  .false., & ! multi-record
57  .false., & ! preserve case
58  .false., & ! layered
59  .false. & ! timeseries
60  )
61 
62  type(inputparamdefinitiontype), parameter :: &
63  swfevp_auxmultname = inputparamdefinitiontype &
64  ( &
65  'SWF', & ! component
66  'EVP', & ! subcomponent
67  'OPTIONS', & ! block
68  'AUXMULTNAME', & ! tag name
69  'AUXMULTNAME', & ! fortran variable
70  'STRING', & ! type
71  '', & ! shape
72  'name of auxiliary variable for multiplier', & ! longname
73  .false., & ! required
74  .false., & ! prerelease
75  .false., & ! multi-record
76  .false., & ! preserve case
77  .false., & ! layered
78  .false. & ! timeseries
79  )
80 
81  type(inputparamdefinitiontype), parameter :: &
82  swfevp_boundnames = inputparamdefinitiontype &
83  ( &
84  'SWF', & ! component
85  'EVP', & ! subcomponent
86  'OPTIONS', & ! block
87  'BOUNDNAMES', & ! tag name
88  'BOUNDNAMES', & ! fortran variable
89  'KEYWORD', & ! type
90  '', & ! shape
91  '', & ! longname
92  .false., & ! required
93  .false., & ! prerelease
94  .false., & ! multi-record
95  .false., & ! preserve case
96  .false., & ! layered
97  .false. & ! timeseries
98  )
99 
100  type(inputparamdefinitiontype), parameter :: &
101  swfevp_iprpak = inputparamdefinitiontype &
102  ( &
103  'SWF', & ! component
104  'EVP', & ! subcomponent
105  'OPTIONS', & ! block
106  'PRINT_INPUT', & ! tag name
107  'IPRPAK', & ! fortran variable
108  'KEYWORD', & ! type
109  '', & ! shape
110  'print input to listing file', & ! longname
111  .false., & ! required
112  .false., & ! prerelease
113  .false., & ! multi-record
114  .false., & ! preserve case
115  .false., & ! layered
116  .false. & ! timeseries
117  )
118 
119  type(inputparamdefinitiontype), parameter :: &
120  swfevp_iprflow = inputparamdefinitiontype &
121  ( &
122  'SWF', & ! component
123  'EVP', & ! subcomponent
124  'OPTIONS', & ! block
125  'PRINT_FLOWS', & ! tag name
126  'IPRFLOW', & ! fortran variable
127  'KEYWORD', & ! type
128  '', & ! shape
129  'print evaporation rates to listing file', & ! longname
130  .false., & ! required
131  .false., & ! prerelease
132  .false., & ! multi-record
133  .false., & ! preserve case
134  .false., & ! layered
135  .false. & ! timeseries
136  )
137 
138  type(inputparamdefinitiontype), parameter :: &
139  swfevp_ipakcb = inputparamdefinitiontype &
140  ( &
141  'SWF', & ! component
142  'EVP', & ! subcomponent
143  'OPTIONS', & ! block
144  'SAVE_FLOWS', & ! tag name
145  'IPAKCB', & ! fortran variable
146  'KEYWORD', & ! type
147  '', & ! shape
148  'save evaporation to budget file', & ! longname
149  .false., & ! required
150  .false., & ! prerelease
151  .false., & ! multi-record
152  .false., & ! preserve case
153  .false., & ! layered
154  .false. & ! timeseries
155  )
156 
157  type(inputparamdefinitiontype), parameter :: &
158  swfevp_ts_filerecord = inputparamdefinitiontype &
159  ( &
160  'SWF', & ! component
161  'EVP', & ! subcomponent
162  'OPTIONS', & ! block
163  'TS_FILERECORD', & ! tag name
164  'TS_FILERECORD', & ! fortran variable
165  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
166  '', & ! shape
167  '', & ! longname
168  .false., & ! required
169  .false., & ! prerelease
170  .false., & ! multi-record
171  .false., & ! preserve case
172  .false., & ! layered
173  .false. & ! timeseries
174  )
175 
176  type(inputparamdefinitiontype), parameter :: &
177  swfevp_ts6 = inputparamdefinitiontype &
178  ( &
179  'SWF', & ! component
180  'EVP', & ! subcomponent
181  'OPTIONS', & ! block
182  'TS6', & ! tag name
183  'TS6', & ! fortran variable
184  'KEYWORD', & ! type
185  '', & ! shape
186  'head keyword', & ! longname
187  .true., & ! required
188  .false., & ! prerelease
189  .true., & ! multi-record
190  .false., & ! preserve case
191  .false., & ! layered
192  .false. & ! timeseries
193  )
194 
195  type(inputparamdefinitiontype), parameter :: &
196  swfevp_filein = inputparamdefinitiontype &
197  ( &
198  'SWF', & ! component
199  'EVP', & ! subcomponent
200  'OPTIONS', & ! block
201  'FILEIN', & ! tag name
202  'FILEIN', & ! fortran variable
203  'KEYWORD', & ! type
204  '', & ! shape
205  'file keyword', & ! longname
206  .true., & ! required
207  .false., & ! prerelease
208  .true., & ! multi-record
209  .false., & ! preserve case
210  .false., & ! layered
211  .false. & ! timeseries
212  )
213 
214  type(inputparamdefinitiontype), parameter :: &
215  swfevp_ts6_filename = inputparamdefinitiontype &
216  ( &
217  'SWF', & ! component
218  'EVP', & ! subcomponent
219  'OPTIONS', & ! block
220  'TS6_FILENAME', & ! tag name
221  'TS6_FILENAME', & ! fortran variable
222  'STRING', & ! type
223  '', & ! shape
224  'file name of time series information', & ! longname
225  .true., & ! required
226  .false., & ! prerelease
227  .true., & ! multi-record
228  .true., & ! preserve case
229  .false., & ! layered
230  .false. & ! timeseries
231  )
232 
233  type(inputparamdefinitiontype), parameter :: &
234  swfevp_obs_filerecord = inputparamdefinitiontype &
235  ( &
236  'SWF', & ! component
237  'EVP', & ! subcomponent
238  'OPTIONS', & ! block
239  'OBS_FILERECORD', & ! tag name
240  'OBS_FILERECORD', & ! fortran variable
241  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
242  '', & ! shape
243  '', & ! longname
244  .false., & ! required
245  .false., & ! prerelease
246  .false., & ! multi-record
247  .false., & ! preserve case
248  .false., & ! layered
249  .false. & ! timeseries
250  )
251 
252  type(inputparamdefinitiontype), parameter :: &
253  swfevp_obs6 = inputparamdefinitiontype &
254  ( &
255  'SWF', & ! component
256  'EVP', & ! subcomponent
257  'OPTIONS', & ! block
258  'OBS6', & ! tag name
259  'OBS6', & ! fortran variable
260  'KEYWORD', & ! type
261  '', & ! shape
262  'obs keyword', & ! longname
263  .true., & ! required
264  .false., & ! prerelease
265  .true., & ! multi-record
266  .false., & ! preserve case
267  .false., & ! layered
268  .false. & ! timeseries
269  )
270 
271  type(inputparamdefinitiontype), parameter :: &
272  swfevp_obs6_filename = inputparamdefinitiontype &
273  ( &
274  'SWF', & ! component
275  'EVP', & ! subcomponent
276  'OPTIONS', & ! block
277  'OBS6_FILENAME', & ! tag name
278  'OBS6_FILENAME', & ! fortran variable
279  'STRING', & ! type
280  '', & ! shape
281  'obs6 input filename', & ! longname
282  .true., & ! required
283  .false., & ! prerelease
284  .true., & ! multi-record
285  .true., & ! preserve case
286  .false., & ! layered
287  .false. & ! timeseries
288  )
289 
290  type(inputparamdefinitiontype), parameter :: &
291  swfevp_maxbound = inputparamdefinitiontype &
292  ( &
293  'SWF', & ! component
294  'EVP', & ! subcomponent
295  'DIMENSIONS', & ! block
296  'MAXBOUND', & ! tag name
297  'MAXBOUND', & ! fortran variable
298  'INTEGER', & ! type
299  '', & ! shape
300  'maximum number of evaporation cells', & ! longname
301  .true., & ! required
302  .false., & ! prerelease
303  .false., & ! multi-record
304  .false., & ! preserve case
305  .false., & ! layered
306  .false. & ! timeseries
307  )
308 
309  type(inputparamdefinitiontype), parameter :: &
310  swfevp_cellid = inputparamdefinitiontype &
311  ( &
312  'SWF', & ! component
313  'EVP', & ! subcomponent
314  'PERIOD', & ! block
315  'CELLID', & ! tag name
316  'CELLID', & ! fortran variable
317  'INTEGER1D', & ! type
318  'NCELLDIM', & ! shape
319  'cell identifier', & ! longname
320  .true., & ! required
321  .false., & ! prerelease
322  .true., & ! multi-record
323  .false., & ! preserve case
324  .false., & ! layered
325  .false. & ! timeseries
326  )
327 
328  type(inputparamdefinitiontype), parameter :: &
329  swfevp_evaporation = inputparamdefinitiontype &
330  ( &
331  'SWF', & ! component
332  'EVP', & ! subcomponent
333  'PERIOD', & ! block
334  'EVAPORATION', & ! tag name
335  'EVAPORATION', & ! fortran variable
336  'DOUBLE', & ! type
337  '', & ! shape
338  'evaporation rate', & ! longname
339  .true., & ! required
340  .false., & ! prerelease
341  .true., & ! multi-record
342  .false., & ! preserve case
343  .false., & ! layered
344  .true. & ! timeseries
345  )
346 
347  type(inputparamdefinitiontype), parameter :: &
348  swfevp_auxvar = inputparamdefinitiontype &
349  ( &
350  'SWF', & ! component
351  'EVP', & ! subcomponent
352  'PERIOD', & ! block
353  'AUX', & ! tag name
354  'AUXVAR', & ! fortran variable
355  'DOUBLE1D', & ! type
356  'NAUX', & ! shape
357  'auxiliary variables', & ! longname
358  .false., & ! required
359  .false., & ! prerelease
360  .true., & ! multi-record
361  .false., & ! preserve case
362  .false., & ! layered
363  .true. & ! timeseries
364  )
365 
366  type(inputparamdefinitiontype), parameter :: &
367  swfevp_boundname = inputparamdefinitiontype &
368  ( &
369  'SWF', & ! component
370  'EVP', & ! subcomponent
371  'PERIOD', & ! block
372  'BOUNDNAME', & ! tag name
373  'BOUNDNAME', & ! fortran variable
374  'STRING', & ! type
375  '', & ! shape
376  'evaporation name', & ! longname
377  .false., & ! required
378  .false., & ! prerelease
379  .true., & ! multi-record
380  .false., & ! preserve case
381  .false., & ! layered
382  .false. & ! timeseries
383  )
384 
385  type(inputparamdefinitiontype), parameter :: &
386  swf_evp_param_definitions(*) = &
387  [ &
388  swfevp_auxiliary, &
389  swfevp_auxmultname, &
390  swfevp_boundnames, &
391  swfevp_iprpak, &
392  swfevp_iprflow, &
393  swfevp_ipakcb, &
394  swfevp_ts_filerecord, &
395  swfevp_ts6, &
396  swfevp_filein, &
397  swfevp_ts6_filename, &
398  swfevp_obs_filerecord, &
399  swfevp_obs6, &
400  swfevp_obs6_filename, &
401  swfevp_maxbound, &
402  swfevp_cellid, &
403  swfevp_evaporation, &
404  swfevp_auxvar, &
405  swfevp_boundname &
406  ]
407 
408  type(inputparamdefinitiontype), parameter :: &
409  swfevp_spd = inputparamdefinitiontype &
410  ( &
411  'SWF', & ! component
412  'EVP', & ! subcomponent
413  'PERIOD', & ! block
414  'STRESS_PERIOD_DATA', & ! tag name
415  'SPD', & ! fortran variable
416  'RECARRAY CELLID EVAPORATION AUX BOUNDNAME', & ! type
417  'MAXBOUND', & ! shape
418  '', & ! longname
419  .true., & ! required
420  .false., & ! prerelease
421  .false., & ! multi-record
422  .false., & ! preserve case
423  .false., & ! layered
424  .false. & ! timeseries
425  )
426 
427  type(inputparamdefinitiontype), parameter :: &
428  swf_evp_aggregate_definitions(*) = &
429  [ &
430  swfevp_spd &
431  ]
432 
433  type(inputblockdefinitiontype), parameter :: &
434  swf_evp_block_definitions(*) = &
435  [ &
436  inputblockdefinitiontype( &
437  'OPTIONS', & ! blockname
438  .false., & ! required
439  .false., & ! aggregate
440  .false. & ! block_variable
441  ), &
442  inputblockdefinitiontype( &
443  'DIMENSIONS', & ! blockname
444  .true., & ! required
445  .false., & ! aggregate
446  .false. & ! block_variable
447  ), &
448  inputblockdefinitiontype( &
449  'PERIOD', & ! blockname
450  .true., & ! required
451  .true., & ! aggregate
452  .true. & ! block_variable
453  ) &
454  ]
455 
456 end module swfevpinputmodule
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
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7
swfevpinputmodule::swfevp_boundname
type(inputparamdefinitiontype), parameter swfevp_boundname
Definition: swf-evpidm.f90:366
swfevpinputmodule::swfevp_obs6_filename
type(inputparamdefinitiontype), parameter swfevp_obs6_filename
Definition: swf-evpidm.f90:271
swfevpinputmodule::swfevp_evaporation
type(inputparamdefinitiontype), parameter swfevp_evaporation
Definition: swf-evpidm.f90:328
swfevpinputmodule::swf_evp_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_evp_param_definitions
Definition: swf-evpidm.f90:385
swfevpinputmodule::swfevp_iprflow
type(inputparamdefinitiontype), parameter swfevp_iprflow
Definition: swf-evpidm.f90:119
swfevpinputmodule::swfevp_boundnames
type(inputparamdefinitiontype), parameter swfevp_boundnames
Definition: swf-evpidm.f90:81
swfevpinputmodule::swf_evp_subpackages
character(len=16), dimension(*), parameter, public swf_evp_subpackages
Definition: swf-evpidm.f90:37
swfevpinputmodule::swfevp_auxmultname
type(inputparamdefinitiontype), parameter swfevp_auxmultname
Definition: swf-evpidm.f90:62
swfevpinputmodule::swfevp_iprpak
type(inputparamdefinitiontype), parameter swfevp_iprpak
Definition: swf-evpidm.f90:100
swfevpinputmodule::swfevp_obs6
type(inputparamdefinitiontype), parameter swfevp_obs6
Definition: swf-evpidm.f90:252
swfevpinputmodule::swf_evp_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public swf_evp_block_definitions
Definition: swf-evpidm.f90:433
swfevpinputmodule::swfevp_spd
type(inputparamdefinitiontype), parameter swfevp_spd
Definition: swf-evpidm.f90:408
swfevpinputmodule::swfevp_maxbound
type(inputparamdefinitiontype), parameter swfevp_maxbound
Definition: swf-evpidm.f90:290
swfevpinputmodule::swfevp_filein
type(inputparamdefinitiontype), parameter swfevp_filein
Definition: swf-evpidm.f90:195
swfevpinputmodule::swf_evp_multi_package
logical, public swf_evp_multi_package
Definition: swf-evpidm.f90:35
swfevpinputmodule::swfevp_ts6
type(inputparamdefinitiontype), parameter swfevp_ts6
Definition: swf-evpidm.f90:176
swfevpinputmodule::swf_evp_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_evp_aggregate_definitions
Definition: swf-evpidm.f90:427
swfevpinputmodule::swfevp_obs_filerecord
type(inputparamdefinitiontype), parameter swfevp_obs_filerecord
Definition: swf-evpidm.f90:233
swfevpinputmodule::swfevp_ipakcb
type(inputparamdefinitiontype), parameter swfevp_ipakcb
Definition: swf-evpidm.f90:138
swfevpinputmodule::swfevp_ts6_filename
type(inputparamdefinitiontype), parameter swfevp_ts6_filename
Definition: swf-evpidm.f90:214
swfevpinputmodule::swfevp_cellid
type(inputparamdefinitiontype), parameter swfevp_cellid
Definition: swf-evpidm.f90:309
swfevpinputmodule::swfevp_ts_filerecord
type(inputparamdefinitiontype), parameter swfevp_ts_filerecord
Definition: swf-evpidm.f90:157
swfevpinputmodule::swfevp_auxiliary
type(inputparamdefinitiontype), parameter swfevp_auxiliary
Definition: swf-evpidm.f90:43
swfevpinputmodule::swfevp_auxvar
type(inputparamdefinitiontype), parameter swfevp_auxvar
Definition: swf-evpidm.f90:347