MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
swf-cdbidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module swfcdbinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public swf_cdb_param_definitions
8  public swf_cdb_aggregate_definitions
9  public swf_cdb_block_definitions
10  public swfcdbparamfoundtype
11  public swf_cdb_multi_package
12 
13  type swfcdbparamfoundtype
14  logical :: auxiliary = .false.
15  logical :: boundnames = .false.
16  logical :: iprpak = .false.
17  logical :: iprflow = .false.
18  logical :: ipakcb = .false.
19  logical :: filein = .false.
20  logical :: obs_filerecord = .false.
21  logical :: obs6 = .false.
22  logical :: obs6_filename = .false.
23  logical :: maxbound = .false.
24  logical :: cellid = .false.
25  logical :: idcxs = .false.
26  logical :: width = .false.
27  logical :: auxvar = .false.
28  logical :: boundname = .false.
29  end type swfcdbparamfoundtype
30 
31  logical :: swf_cdb_multi_package = .true.
32 
33  type(inputparamdefinitiontype), parameter :: &
34  swfcdb_auxiliary = inputparamdefinitiontype &
35  ( &
36  'SWF', & ! component
37  'CDB', & ! subcomponent
38  'OPTIONS', & ! block
39  'AUXILIARY', & ! tag name
40  'AUXILIARY', & ! fortran variable
41  'STRING', & ! type
42  'NAUX', & ! shape
43  .false., & ! required
44  .false., & ! multi-record
45  .false., & ! preserve case
46  .false., & ! layered
47  .false. & ! timeseries
48  )
49 
50  type(inputparamdefinitiontype), parameter :: &
51  swfcdb_boundnames = inputparamdefinitiontype &
52  ( &
53  'SWF', & ! component
54  'CDB', & ! subcomponent
55  'OPTIONS', & ! block
56  'BOUNDNAMES', & ! tag name
57  'BOUNDNAMES', & ! fortran variable
58  'KEYWORD', & ! type
59  '', & ! shape
60  .false., & ! required
61  .false., & ! multi-record
62  .false., & ! preserve case
63  .false., & ! layered
64  .false. & ! timeseries
65  )
66 
67  type(inputparamdefinitiontype), parameter :: &
68  swfcdb_iprpak = inputparamdefinitiontype &
69  ( &
70  'SWF', & ! component
71  'CDB', & ! subcomponent
72  'OPTIONS', & ! block
73  'PRINT_INPUT', & ! tag name
74  'IPRPAK', & ! fortran variable
75  'KEYWORD', & ! type
76  '', & ! shape
77  .false., & ! required
78  .false., & ! multi-record
79  .false., & ! preserve case
80  .false., & ! layered
81  .false. & ! timeseries
82  )
83 
84  type(inputparamdefinitiontype), parameter :: &
85  swfcdb_iprflow = inputparamdefinitiontype &
86  ( &
87  'SWF', & ! component
88  'CDB', & ! subcomponent
89  'OPTIONS', & ! block
90  'PRINT_FLOWS', & ! tag name
91  'IPRFLOW', & ! fortran variable
92  'KEYWORD', & ! type
93  '', & ! shape
94  .false., & ! required
95  .false., & ! multi-record
96  .false., & ! preserve case
97  .false., & ! layered
98  .false. & ! timeseries
99  )
100 
101  type(inputparamdefinitiontype), parameter :: &
102  swfcdb_ipakcb = inputparamdefinitiontype &
103  ( &
104  'SWF', & ! component
105  'CDB', & ! subcomponent
106  'OPTIONS', & ! block
107  'SAVE_FLOWS', & ! tag name
108  'IPAKCB', & ! fortran variable
109  'KEYWORD', & ! type
110  '', & ! shape
111  .false., & ! required
112  .false., & ! multi-record
113  .false., & ! preserve case
114  .false., & ! layered
115  .false. & ! timeseries
116  )
117 
118  type(inputparamdefinitiontype), parameter :: &
119  swfcdb_filein = inputparamdefinitiontype &
120  ( &
121  'SWF', & ! component
122  'CDB', & ! subcomponent
123  'OPTIONS', & ! block
124  'FILEIN', & ! tag name
125  'FILEIN', & ! fortran variable
126  'KEYWORD', & ! type
127  '', & ! shape
128  .true., & ! required
129  .true., & ! multi-record
130  .false., & ! preserve case
131  .false., & ! layered
132  .false. & ! timeseries
133  )
134 
135  type(inputparamdefinitiontype), parameter :: &
136  swfcdb_obs_filerecord = inputparamdefinitiontype &
137  ( &
138  'SWF', & ! component
139  'CDB', & ! subcomponent
140  'OPTIONS', & ! block
141  'OBS_FILERECORD', & ! tag name
142  'OBS_FILERECORD', & ! fortran variable
143  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
144  '', & ! shape
145  .false., & ! required
146  .false., & ! multi-record
147  .false., & ! preserve case
148  .false., & ! layered
149  .false. & ! timeseries
150  )
151 
152  type(inputparamdefinitiontype), parameter :: &
153  swfcdb_obs6 = inputparamdefinitiontype &
154  ( &
155  'SWF', & ! component
156  'CDB', & ! subcomponent
157  'OPTIONS', & ! block
158  'OBS6', & ! tag name
159  'OBS6', & ! fortran variable
160  'KEYWORD', & ! type
161  '', & ! shape
162  .true., & ! required
163  .true., & ! multi-record
164  .false., & ! preserve case
165  .false., & ! layered
166  .false. & ! timeseries
167  )
168 
169  type(inputparamdefinitiontype), parameter :: &
170  swfcdb_obs6_filename = inputparamdefinitiontype &
171  ( &
172  'SWF', & ! component
173  'CDB', & ! subcomponent
174  'OPTIONS', & ! block
175  'OBS6_FILENAME', & ! tag name
176  'OBS6_FILENAME', & ! fortran variable
177  'STRING', & ! type
178  '', & ! shape
179  .true., & ! required
180  .true., & ! multi-record
181  .true., & ! preserve case
182  .false., & ! layered
183  .false. & ! timeseries
184  )
185 
186  type(inputparamdefinitiontype), parameter :: &
187  swfcdb_maxbound = inputparamdefinitiontype &
188  ( &
189  'SWF', & ! component
190  'CDB', & ! subcomponent
191  'DIMENSIONS', & ! block
192  'MAXBOUND', & ! tag name
193  'MAXBOUND', & ! fortran variable
194  'INTEGER', & ! type
195  '', & ! shape
196  .true., & ! required
197  .false., & ! multi-record
198  .false., & ! preserve case
199  .false., & ! layered
200  .false. & ! timeseries
201  )
202 
203  type(inputparamdefinitiontype), parameter :: &
204  swfcdb_cellid = inputparamdefinitiontype &
205  ( &
206  'SWF', & ! component
207  'CDB', & ! subcomponent
208  'PERIOD', & ! block
209  'CELLID', & ! tag name
210  'CELLID', & ! fortran variable
211  'INTEGER1D', & ! type
212  'NCELLDIM', & ! shape
213  .true., & ! required
214  .true., & ! multi-record
215  .false., & ! preserve case
216  .false., & ! layered
217  .false. & ! timeseries
218  )
219 
220  type(inputparamdefinitiontype), parameter :: &
221  swfcdb_idcxs = inputparamdefinitiontype &
222  ( &
223  'SWF', & ! component
224  'CDB', & ! subcomponent
225  'PERIOD', & ! block
226  'IDCXS', & ! tag name
227  'IDCXS', & ! fortran variable
228  'INTEGER', & ! type
229  '', & ! shape
230  .true., & ! required
231  .true., & ! multi-record
232  .false., & ! preserve case
233  .false., & ! layered
234  .false. & ! timeseries
235  )
236 
237  type(inputparamdefinitiontype), parameter :: &
238  swfcdb_width = inputparamdefinitiontype &
239  ( &
240  'SWF', & ! component
241  'CDB', & ! subcomponent
242  'PERIOD', & ! block
243  'WIDTH', & ! tag name
244  'WIDTH', & ! fortran variable
245  'DOUBLE', & ! type
246  '', & ! shape
247  .true., & ! required
248  .true., & ! multi-record
249  .false., & ! preserve case
250  .false., & ! layered
251  .true. & ! timeseries
252  )
253 
254  type(inputparamdefinitiontype), parameter :: &
255  swfcdb_auxvar = inputparamdefinitiontype &
256  ( &
257  'SWF', & ! component
258  'CDB', & ! subcomponent
259  'PERIOD', & ! block
260  'AUX', & ! tag name
261  'AUXVAR', & ! fortran variable
262  'DOUBLE1D', & ! type
263  'NAUX', & ! shape
264  .false., & ! required
265  .true., & ! multi-record
266  .false., & ! preserve case
267  .false., & ! layered
268  .true. & ! timeseries
269  )
270 
271  type(inputparamdefinitiontype), parameter :: &
272  swfcdb_boundname = inputparamdefinitiontype &
273  ( &
274  'SWF', & ! component
275  'CDB', & ! subcomponent
276  'PERIOD', & ! block
277  'BOUNDNAME', & ! tag name
278  'BOUNDNAME', & ! fortran variable
279  'STRING', & ! type
280  '', & ! shape
281  .false., & ! required
282  .true., & ! multi-record
283  .false., & ! preserve case
284  .false., & ! layered
285  .false. & ! timeseries
286  )
287 
288  type(inputparamdefinitiontype), parameter :: &
289  swf_cdb_param_definitions(*) = &
290  [ &
291  swfcdb_auxiliary, &
292  swfcdb_boundnames, &
293  swfcdb_iprpak, &
294  swfcdb_iprflow, &
295  swfcdb_ipakcb, &
296  swfcdb_filein, &
297  swfcdb_obs_filerecord, &
298  swfcdb_obs6, &
299  swfcdb_obs6_filename, &
300  swfcdb_maxbound, &
301  swfcdb_cellid, &
302  swfcdb_idcxs, &
303  swfcdb_width, &
304  swfcdb_auxvar, &
305  swfcdb_boundname &
306  ]
307 
308  type(inputparamdefinitiontype), parameter :: &
309  swfcdb_spd = inputparamdefinitiontype &
310  ( &
311  'SWF', & ! component
312  'CDB', & ! subcomponent
313  'PERIOD', & ! block
314  'STRESS_PERIOD_DATA', & ! tag name
315  'SPD', & ! fortran variable
316  'RECARRAY CELLID IDCXS WIDTH AUX BOUNDNAME', & ! type
317  'MAXBOUND', & ! shape
318  .true., & ! required
319  .false., & ! multi-record
320  .false., & ! preserve case
321  .false., & ! layered
322  .false. & ! timeseries
323  )
324 
325  type(inputparamdefinitiontype), parameter :: &
326  swf_cdb_aggregate_definitions(*) = &
327  [ &
328  swfcdb_spd &
329  ]
330 
331  type(inputblockdefinitiontype), parameter :: &
332  swf_cdb_block_definitions(*) = &
333  [ &
334  inputblockdefinitiontype( &
335  'OPTIONS', & ! blockname
336  .false., & ! required
337  .false., & ! aggregate
338  .false. & ! block_variable
339  ), &
340  inputblockdefinitiontype( &
341  'DIMENSIONS', & ! blockname
342  .true., & ! required
343  .false., & ! aggregate
344  .false. & ! block_variable
345  ), &
346  inputblockdefinitiontype( &
347  'PERIOD', & ! blockname
348  .true., & ! required
349  .true., & ! aggregate
350  .true. & ! block_variable
351  ) &
352  ]
353 
354 end module swfcdbinputmodule
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
swfcdbinputmodule::swf_cdb_multi_package
logical, public swf_cdb_multi_package
Definition: swf-cdbidm.f90:31
swfcdbinputmodule::swfcdb_auxvar
type(inputparamdefinitiontype), parameter swfcdb_auxvar
Definition: swf-cdbidm.f90:254
swfcdbinputmodule::swf_cdb_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_cdb_param_definitions
Definition: swf-cdbidm.f90:288
swfcdbinputmodule::swfcdb_ipakcb
type(inputparamdefinitiontype), parameter swfcdb_ipakcb
Definition: swf-cdbidm.f90:101
swfcdbinputmodule::swfcdb_auxiliary
type(inputparamdefinitiontype), parameter swfcdb_auxiliary
Definition: swf-cdbidm.f90:33
swfcdbinputmodule::swfcdb_obs6_filename
type(inputparamdefinitiontype), parameter swfcdb_obs6_filename
Definition: swf-cdbidm.f90:169
swfcdbinputmodule::swfcdb_iprpak
type(inputparamdefinitiontype), parameter swfcdb_iprpak
Definition: swf-cdbidm.f90:67
swfcdbinputmodule::swfcdb_cellid
type(inputparamdefinitiontype), parameter swfcdb_cellid
Definition: swf-cdbidm.f90:203
swfcdbinputmodule::swfcdb_maxbound
type(inputparamdefinitiontype), parameter swfcdb_maxbound
Definition: swf-cdbidm.f90:186
swfcdbinputmodule::swfcdb_width
type(inputparamdefinitiontype), parameter swfcdb_width
Definition: swf-cdbidm.f90:237
swfcdbinputmodule::swfcdb_filein
type(inputparamdefinitiontype), parameter swfcdb_filein
Definition: swf-cdbidm.f90:118
swfcdbinputmodule::swfcdb_idcxs
type(inputparamdefinitiontype), parameter swfcdb_idcxs
Definition: swf-cdbidm.f90:220
swfcdbinputmodule::swfcdb_obs_filerecord
type(inputparamdefinitiontype), parameter swfcdb_obs_filerecord
Definition: swf-cdbidm.f90:135
swfcdbinputmodule::swfcdb_spd
type(inputparamdefinitiontype), parameter swfcdb_spd
Definition: swf-cdbidm.f90:308
swfcdbinputmodule::swf_cdb_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_cdb_aggregate_definitions
Definition: swf-cdbidm.f90:325
swfcdbinputmodule::swfcdb_iprflow
type(inputparamdefinitiontype), parameter swfcdb_iprflow
Definition: swf-cdbidm.f90:84
swfcdbinputmodule::swf_cdb_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public swf_cdb_block_definitions
Definition: swf-cdbidm.f90:331
swfcdbinputmodule::swfcdb_boundnames
type(inputparamdefinitiontype), parameter swfcdb_boundnames
Definition: swf-cdbidm.f90:50
swfcdbinputmodule::swfcdb_obs6
type(inputparamdefinitiontype), parameter swfcdb_obs6
Definition: swf-cdbidm.f90:152
swfcdbinputmodule::swfcdb_boundname
type(inputparamdefinitiontype), parameter swfcdb_boundname
Definition: swf-cdbidm.f90:271