MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
swf-zdgidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module swfzdginputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public swf_zdg_param_definitions
8  public swf_zdg_aggregate_definitions
9  public swf_zdg_block_definitions
10  public swfzdgparamfoundtype
11  public swf_zdg_multi_package
12 
13  type swfzdgparamfoundtype
14  logical :: auxiliary = .false.
15  logical :: boundnames = .false.
16  logical :: iprpak = .false.
17  logical :: iprflow = .false.
18  logical :: ipakcb = .false.
19  logical :: ts_filerecord = .false.
20  logical :: ts6 = .false.
21  logical :: filein = .false.
22  logical :: ts6_filename = .false.
23  logical :: obs_filerecord = .false.
24  logical :: obs6 = .false.
25  logical :: obs6_filename = .false.
26  logical :: maxbound = .false.
27  logical :: cellid = .false.
28  logical :: idcxs = .false.
29  logical :: width = .false.
30  logical :: slope = .false.
31  logical :: rough = .false.
32  logical :: auxvar = .false.
33  logical :: boundname = .false.
34  end type swfzdgparamfoundtype
35 
36  logical :: swf_zdg_multi_package = .true.
37 
38  type(inputparamdefinitiontype), parameter :: &
39  swfzdg_auxiliary = inputparamdefinitiontype &
40  ( &
41  'SWF', & ! component
42  'ZDG', & ! subcomponent
43  'OPTIONS', & ! block
44  'AUXILIARY', & ! tag name
45  'AUXILIARY', & ! fortran variable
46  'STRING', & ! type
47  'NAUX', & ! shape
48  .false., & ! required
49  .false., & ! multi-record
50  .false., & ! preserve case
51  .false., & ! layered
52  .false. & ! timeseries
53  )
54 
55  type(inputparamdefinitiontype), parameter :: &
56  swfzdg_boundnames = inputparamdefinitiontype &
57  ( &
58  'SWF', & ! component
59  'ZDG', & ! subcomponent
60  'OPTIONS', & ! block
61  'BOUNDNAMES', & ! tag name
62  'BOUNDNAMES', & ! fortran variable
63  'KEYWORD', & ! type
64  '', & ! shape
65  .false., & ! required
66  .false., & ! multi-record
67  .false., & ! preserve case
68  .false., & ! layered
69  .false. & ! timeseries
70  )
71 
72  type(inputparamdefinitiontype), parameter :: &
73  swfzdg_iprpak = inputparamdefinitiontype &
74  ( &
75  'SWF', & ! component
76  'ZDG', & ! subcomponent
77  'OPTIONS', & ! block
78  'PRINT_INPUT', & ! tag name
79  'IPRPAK', & ! fortran variable
80  'KEYWORD', & ! type
81  '', & ! shape
82  .false., & ! required
83  .false., & ! multi-record
84  .false., & ! preserve case
85  .false., & ! layered
86  .false. & ! timeseries
87  )
88 
89  type(inputparamdefinitiontype), parameter :: &
90  swfzdg_iprflow = inputparamdefinitiontype &
91  ( &
92  'SWF', & ! component
93  'ZDG', & ! subcomponent
94  'OPTIONS', & ! block
95  'PRINT_FLOWS', & ! tag name
96  'IPRFLOW', & ! fortran variable
97  'KEYWORD', & ! type
98  '', & ! shape
99  .false., & ! required
100  .false., & ! multi-record
101  .false., & ! preserve case
102  .false., & ! layered
103  .false. & ! timeseries
104  )
105 
106  type(inputparamdefinitiontype), parameter :: &
107  swfzdg_ipakcb = inputparamdefinitiontype &
108  ( &
109  'SWF', & ! component
110  'ZDG', & ! subcomponent
111  'OPTIONS', & ! block
112  'SAVE_FLOWS', & ! tag name
113  'IPAKCB', & ! fortran variable
114  'KEYWORD', & ! type
115  '', & ! shape
116  .false., & ! required
117  .false., & ! multi-record
118  .false., & ! preserve case
119  .false., & ! layered
120  .false. & ! timeseries
121  )
122 
123  type(inputparamdefinitiontype), parameter :: &
124  swfzdg_ts_filerecord = inputparamdefinitiontype &
125  ( &
126  'SWF', & ! component
127  'ZDG', & ! subcomponent
128  'OPTIONS', & ! block
129  'TS_FILERECORD', & ! tag name
130  'TS_FILERECORD', & ! fortran variable
131  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
132  '', & ! shape
133  .false., & ! required
134  .false., & ! multi-record
135  .false., & ! preserve case
136  .false., & ! layered
137  .false. & ! timeseries
138  )
139 
140  type(inputparamdefinitiontype), parameter :: &
141  swfzdg_ts6 = inputparamdefinitiontype &
142  ( &
143  'SWF', & ! component
144  'ZDG', & ! subcomponent
145  'OPTIONS', & ! block
146  'TS6', & ! tag name
147  'TS6', & ! fortran variable
148  'KEYWORD', & ! type
149  '', & ! shape
150  .true., & ! required
151  .true., & ! multi-record
152  .false., & ! preserve case
153  .false., & ! layered
154  .false. & ! timeseries
155  )
156 
157  type(inputparamdefinitiontype), parameter :: &
158  swfzdg_filein = inputparamdefinitiontype &
159  ( &
160  'SWF', & ! component
161  'ZDG', & ! subcomponent
162  'OPTIONS', & ! block
163  'FILEIN', & ! tag name
164  'FILEIN', & ! fortran variable
165  'KEYWORD', & ! type
166  '', & ! shape
167  .true., & ! required
168  .true., & ! multi-record
169  .false., & ! preserve case
170  .false., & ! layered
171  .false. & ! timeseries
172  )
173 
174  type(inputparamdefinitiontype), parameter :: &
175  swfzdg_ts6_filename = inputparamdefinitiontype &
176  ( &
177  'SWF', & ! component
178  'ZDG', & ! subcomponent
179  'OPTIONS', & ! block
180  'TS6_FILENAME', & ! tag name
181  'TS6_FILENAME', & ! fortran variable
182  'STRING', & ! type
183  '', & ! shape
184  .true., & ! required
185  .true., & ! multi-record
186  .true., & ! preserve case
187  .false., & ! layered
188  .false. & ! timeseries
189  )
190 
191  type(inputparamdefinitiontype), parameter :: &
192  swfzdg_obs_filerecord = inputparamdefinitiontype &
193  ( &
194  'SWF', & ! component
195  'ZDG', & ! subcomponent
196  'OPTIONS', & ! block
197  'OBS_FILERECORD', & ! tag name
198  'OBS_FILERECORD', & ! fortran variable
199  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
200  '', & ! shape
201  .false., & ! required
202  .false., & ! multi-record
203  .false., & ! preserve case
204  .false., & ! layered
205  .false. & ! timeseries
206  )
207 
208  type(inputparamdefinitiontype), parameter :: &
209  swfzdg_obs6 = inputparamdefinitiontype &
210  ( &
211  'SWF', & ! component
212  'ZDG', & ! subcomponent
213  'OPTIONS', & ! block
214  'OBS6', & ! tag name
215  'OBS6', & ! fortran variable
216  'KEYWORD', & ! type
217  '', & ! shape
218  .true., & ! required
219  .true., & ! multi-record
220  .false., & ! preserve case
221  .false., & ! layered
222  .false. & ! timeseries
223  )
224 
225  type(inputparamdefinitiontype), parameter :: &
226  swfzdg_obs6_filename = inputparamdefinitiontype &
227  ( &
228  'SWF', & ! component
229  'ZDG', & ! subcomponent
230  'OPTIONS', & ! block
231  'OBS6_FILENAME', & ! tag name
232  'OBS6_FILENAME', & ! fortran variable
233  'STRING', & ! type
234  '', & ! shape
235  .true., & ! required
236  .true., & ! multi-record
237  .true., & ! preserve case
238  .false., & ! layered
239  .false. & ! timeseries
240  )
241 
242  type(inputparamdefinitiontype), parameter :: &
243  swfzdg_maxbound = inputparamdefinitiontype &
244  ( &
245  'SWF', & ! component
246  'ZDG', & ! subcomponent
247  'DIMENSIONS', & ! block
248  'MAXBOUND', & ! tag name
249  'MAXBOUND', & ! fortran variable
250  'INTEGER', & ! type
251  '', & ! shape
252  .true., & ! required
253  .false., & ! multi-record
254  .false., & ! preserve case
255  .false., & ! layered
256  .false. & ! timeseries
257  )
258 
259  type(inputparamdefinitiontype), parameter :: &
260  swfzdg_cellid = inputparamdefinitiontype &
261  ( &
262  'SWF', & ! component
263  'ZDG', & ! subcomponent
264  'PERIOD', & ! block
265  'CELLID', & ! tag name
266  'CELLID', & ! fortran variable
267  'INTEGER1D', & ! type
268  'NCELLDIM', & ! shape
269  .true., & ! required
270  .true., & ! multi-record
271  .false., & ! preserve case
272  .false., & ! layered
273  .false. & ! timeseries
274  )
275 
276  type(inputparamdefinitiontype), parameter :: &
277  swfzdg_idcxs = inputparamdefinitiontype &
278  ( &
279  'SWF', & ! component
280  'ZDG', & ! subcomponent
281  'PERIOD', & ! block
282  'IDCXS', & ! tag name
283  'IDCXS', & ! fortran variable
284  'INTEGER', & ! type
285  '', & ! shape
286  .true., & ! required
287  .true., & ! multi-record
288  .false., & ! preserve case
289  .false., & ! layered
290  .false. & ! timeseries
291  )
292 
293  type(inputparamdefinitiontype), parameter :: &
294  swfzdg_width = inputparamdefinitiontype &
295  ( &
296  'SWF', & ! component
297  'ZDG', & ! subcomponent
298  'PERIOD', & ! block
299  'WIDTH', & ! tag name
300  'WIDTH', & ! fortran variable
301  'DOUBLE', & ! type
302  '', & ! shape
303  .true., & ! required
304  .true., & ! multi-record
305  .false., & ! preserve case
306  .false., & ! layered
307  .true. & ! timeseries
308  )
309 
310  type(inputparamdefinitiontype), parameter :: &
311  swfzdg_slope = inputparamdefinitiontype &
312  ( &
313  'SWF', & ! component
314  'ZDG', & ! subcomponent
315  'PERIOD', & ! block
316  'SLOPE', & ! tag name
317  'SLOPE', & ! fortran variable
318  'DOUBLE', & ! type
319  '', & ! shape
320  .true., & ! required
321  .true., & ! multi-record
322  .false., & ! preserve case
323  .false., & ! layered
324  .true. & ! timeseries
325  )
326 
327  type(inputparamdefinitiontype), parameter :: &
328  swfzdg_rough = inputparamdefinitiontype &
329  ( &
330  'SWF', & ! component
331  'ZDG', & ! subcomponent
332  'PERIOD', & ! block
333  'ROUGH', & ! tag name
334  'ROUGH', & ! fortran variable
335  'DOUBLE', & ! type
336  '', & ! shape
337  .true., & ! required
338  .true., & ! multi-record
339  .false., & ! preserve case
340  .false., & ! layered
341  .true. & ! timeseries
342  )
343 
344  type(inputparamdefinitiontype), parameter :: &
345  swfzdg_auxvar = inputparamdefinitiontype &
346  ( &
347  'SWF', & ! component
348  'ZDG', & ! subcomponent
349  'PERIOD', & ! block
350  'AUX', & ! tag name
351  'AUXVAR', & ! fortran variable
352  'DOUBLE1D', & ! type
353  'NAUX', & ! shape
354  .false., & ! required
355  .true., & ! multi-record
356  .false., & ! preserve case
357  .false., & ! layered
358  .true. & ! timeseries
359  )
360 
361  type(inputparamdefinitiontype), parameter :: &
362  swfzdg_boundname = inputparamdefinitiontype &
363  ( &
364  'SWF', & ! component
365  'ZDG', & ! subcomponent
366  'PERIOD', & ! block
367  'BOUNDNAME', & ! tag name
368  'BOUNDNAME', & ! fortran variable
369  'STRING', & ! type
370  '', & ! shape
371  .false., & ! required
372  .true., & ! multi-record
373  .false., & ! preserve case
374  .false., & ! layered
375  .false. & ! timeseries
376  )
377 
378  type(inputparamdefinitiontype), parameter :: &
379  swf_zdg_param_definitions(*) = &
380  [ &
381  swfzdg_auxiliary, &
382  swfzdg_boundnames, &
383  swfzdg_iprpak, &
384  swfzdg_iprflow, &
385  swfzdg_ipakcb, &
386  swfzdg_ts_filerecord, &
387  swfzdg_ts6, &
388  swfzdg_filein, &
389  swfzdg_ts6_filename, &
390  swfzdg_obs_filerecord, &
391  swfzdg_obs6, &
392  swfzdg_obs6_filename, &
393  swfzdg_maxbound, &
394  swfzdg_cellid, &
395  swfzdg_idcxs, &
396  swfzdg_width, &
397  swfzdg_slope, &
398  swfzdg_rough, &
399  swfzdg_auxvar, &
400  swfzdg_boundname &
401  ]
402 
403  type(inputparamdefinitiontype), parameter :: &
404  swfzdg_spd = inputparamdefinitiontype &
405  ( &
406  'SWF', & ! component
407  'ZDG', & ! subcomponent
408  'PERIOD', & ! block
409  'STRESS_PERIOD_DATA', & ! tag name
410  'SPD', & ! fortran variable
411  'RECARRAY CELLID IDCXS WIDTH SLOPE ROUGH AUX BOUNDNAME', & ! type
412  'MAXBOUND', & ! shape
413  .true., & ! required
414  .false., & ! multi-record
415  .false., & ! preserve case
416  .false., & ! layered
417  .false. & ! timeseries
418  )
419 
420  type(inputparamdefinitiontype), parameter :: &
421  swf_zdg_aggregate_definitions(*) = &
422  [ &
423  swfzdg_spd &
424  ]
425 
426  type(inputblockdefinitiontype), parameter :: &
427  swf_zdg_block_definitions(*) = &
428  [ &
429  inputblockdefinitiontype( &
430  'OPTIONS', & ! blockname
431  .false., & ! required
432  .false., & ! aggregate
433  .false. & ! block_variable
434  ), &
435  inputblockdefinitiontype( &
436  'DIMENSIONS', & ! blockname
437  .true., & ! required
438  .false., & ! aggregate
439  .false. & ! block_variable
440  ), &
441  inputblockdefinitiontype( &
442  'PERIOD', & ! blockname
443  .true., & ! required
444  .true., & ! aggregate
445  .true. & ! block_variable
446  ) &
447  ]
448 
449 end module swfzdginputmodule
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
swfzdginputmodule::swfzdg_ts6
type(inputparamdefinitiontype), parameter swfzdg_ts6
Definition: swf-zdgidm.f90:140
swfzdginputmodule::swfzdg_slope
type(inputparamdefinitiontype), parameter swfzdg_slope
Definition: swf-zdgidm.f90:310
swfzdginputmodule::swf_zdg_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public swf_zdg_block_definitions
Definition: swf-zdgidm.f90:426
swfzdginputmodule::swfzdg_rough
type(inputparamdefinitiontype), parameter swfzdg_rough
Definition: swf-zdgidm.f90:327
swfzdginputmodule::swfzdg_ipakcb
type(inputparamdefinitiontype), parameter swfzdg_ipakcb
Definition: swf-zdgidm.f90:106
swfzdginputmodule::swfzdg_obs6
type(inputparamdefinitiontype), parameter swfzdg_obs6
Definition: swf-zdgidm.f90:208
swfzdginputmodule::swfzdg_auxiliary
type(inputparamdefinitiontype), parameter swfzdg_auxiliary
Definition: swf-zdgidm.f90:38
swfzdginputmodule::swf_zdg_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_zdg_param_definitions
Definition: swf-zdgidm.f90:378
swfzdginputmodule::swfzdg_maxbound
type(inputparamdefinitiontype), parameter swfzdg_maxbound
Definition: swf-zdgidm.f90:242
swfzdginputmodule::swfzdg_obs6_filename
type(inputparamdefinitiontype), parameter swfzdg_obs6_filename
Definition: swf-zdgidm.f90:225
swfzdginputmodule::swfzdg_filein
type(inputparamdefinitiontype), parameter swfzdg_filein
Definition: swf-zdgidm.f90:157
swfzdginputmodule::swfzdg_idcxs
type(inputparamdefinitiontype), parameter swfzdg_idcxs
Definition: swf-zdgidm.f90:276
swfzdginputmodule::swfzdg_ts_filerecord
type(inputparamdefinitiontype), parameter swfzdg_ts_filerecord
Definition: swf-zdgidm.f90:123
swfzdginputmodule::swfzdg_iprpak
type(inputparamdefinitiontype), parameter swfzdg_iprpak
Definition: swf-zdgidm.f90:72
swfzdginputmodule::swfzdg_obs_filerecord
type(inputparamdefinitiontype), parameter swfzdg_obs_filerecord
Definition: swf-zdgidm.f90:191
swfzdginputmodule::swfzdg_width
type(inputparamdefinitiontype), parameter swfzdg_width
Definition: swf-zdgidm.f90:293
swfzdginputmodule::swfzdg_cellid
type(inputparamdefinitiontype), parameter swfzdg_cellid
Definition: swf-zdgidm.f90:259
swfzdginputmodule::swf_zdg_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_zdg_aggregate_definitions
Definition: swf-zdgidm.f90:420
swfzdginputmodule::swfzdg_ts6_filename
type(inputparamdefinitiontype), parameter swfzdg_ts6_filename
Definition: swf-zdgidm.f90:174
swfzdginputmodule::swfzdg_iprflow
type(inputparamdefinitiontype), parameter swfzdg_iprflow
Definition: swf-zdgidm.f90:89
swfzdginputmodule::swfzdg_boundname
type(inputparamdefinitiontype), parameter swfzdg_boundname
Definition: swf-zdgidm.f90:361
swfzdginputmodule::swf_zdg_multi_package
logical, public swf_zdg_multi_package
Definition: swf-zdgidm.f90:36
swfzdginputmodule::swfzdg_auxvar
type(inputparamdefinitiontype), parameter swfzdg_auxvar
Definition: swf-zdgidm.f90:344
swfzdginputmodule::swfzdg_spd
type(inputparamdefinitiontype), parameter swfzdg_spd
Definition: swf-zdgidm.f90:403
swfzdginputmodule::swfzdg_boundnames
type(inputparamdefinitiontype), parameter swfzdg_boundnames
Definition: swf-zdgidm.f90:55