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