MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
swf-disidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module swfdisinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public swf_dis_param_definitions
8  public swf_dis_aggregate_definitions
9  public swf_dis_block_definitions
10  public swfdisparamfoundtype
11  public swf_dis_multi_package
12 
13  type swfdisparamfoundtype
14  logical :: length_units = .false.
15  logical :: nogrb = .false.
16  logical :: xorigin = .false.
17  logical :: yorigin = .false.
18  logical :: angrot = .false.
19  logical :: export_ascii = .false.
20  logical :: nlay = .false.
21  logical :: nrow = .false.
22  logical :: ncol = .false.
23  logical :: delr = .false.
24  logical :: delc = .false.
25  logical :: top = .false.
26  logical :: botm = .false.
27  logical :: idomain = .false.
28  end type swfdisparamfoundtype
29 
30  logical :: swf_dis_multi_package = .false.
31 
32  type(inputparamdefinitiontype), parameter :: &
33  swfdis_length_units = inputparamdefinitiontype &
34  ( &
35  'SWF', & ! component
36  'DIS', & ! subcomponent
37  'OPTIONS', & ! block
38  'LENGTH_UNITS', & ! tag name
39  'LENGTH_UNITS', & ! fortran variable
40  'STRING', & ! type
41  '', & ! shape
42  .false., & ! required
43  .false., & ! multi-record
44  .false., & ! preserve case
45  .false., & ! layered
46  .false. & ! timeseries
47  )
48 
49  type(inputparamdefinitiontype), parameter :: &
50  swfdis_nogrb = inputparamdefinitiontype &
51  ( &
52  'SWF', & ! component
53  'DIS', & ! subcomponent
54  'OPTIONS', & ! block
55  'NOGRB', & ! tag name
56  'NOGRB', & ! fortran variable
57  'KEYWORD', & ! type
58  '', & ! shape
59  .false., & ! required
60  .false., & ! multi-record
61  .false., & ! preserve case
62  .false., & ! layered
63  .false. & ! timeseries
64  )
65 
66  type(inputparamdefinitiontype), parameter :: &
67  swfdis_xorigin = inputparamdefinitiontype &
68  ( &
69  'SWF', & ! component
70  'DIS', & ! subcomponent
71  'OPTIONS', & ! block
72  'XORIGIN', & ! tag name
73  'XORIGIN', & ! fortran variable
74  'DOUBLE', & ! type
75  '', & ! shape
76  .false., & ! required
77  .false., & ! multi-record
78  .false., & ! preserve case
79  .false., & ! layered
80  .false. & ! timeseries
81  )
82 
83  type(inputparamdefinitiontype), parameter :: &
84  swfdis_yorigin = inputparamdefinitiontype &
85  ( &
86  'SWF', & ! component
87  'DIS', & ! subcomponent
88  'OPTIONS', & ! block
89  'YORIGIN', & ! tag name
90  'YORIGIN', & ! fortran variable
91  'DOUBLE', & ! type
92  '', & ! shape
93  .false., & ! required
94  .false., & ! multi-record
95  .false., & ! preserve case
96  .false., & ! layered
97  .false. & ! timeseries
98  )
99 
100  type(inputparamdefinitiontype), parameter :: &
101  swfdis_angrot = inputparamdefinitiontype &
102  ( &
103  'SWF', & ! component
104  'DIS', & ! subcomponent
105  'OPTIONS', & ! block
106  'ANGROT', & ! tag name
107  'ANGROT', & ! fortran variable
108  'DOUBLE', & ! type
109  '', & ! shape
110  .false., & ! required
111  .false., & ! multi-record
112  .false., & ! preserve case
113  .false., & ! layered
114  .false. & ! timeseries
115  )
116 
117  type(inputparamdefinitiontype), parameter :: &
118  swfdis_export_ascii = inputparamdefinitiontype &
119  ( &
120  'SWF', & ! component
121  'DIS', & ! subcomponent
122  'OPTIONS', & ! block
123  'EXPORT_ARRAY_ASCII', & ! tag name
124  'EXPORT_ASCII', & ! fortran variable
125  'KEYWORD', & ! type
126  '', & ! shape
127  .false., & ! required
128  .false., & ! multi-record
129  .false., & ! preserve case
130  .false., & ! layered
131  .false. & ! timeseries
132  )
133 
134  type(inputparamdefinitiontype), parameter :: &
135  swfdis_nlay = inputparamdefinitiontype &
136  ( &
137  'SWF', & ! component
138  'DIS', & ! subcomponent
139  'DIMENSIONS', & ! block
140  'NLAY', & ! tag name
141  'NLAY', & ! fortran variable
142  'INTEGER', & ! type
143  '', & ! shape
144  .true., & ! required
145  .false., & ! multi-record
146  .false., & ! preserve case
147  .false., & ! layered
148  .false. & ! timeseries
149  )
150 
151  type(inputparamdefinitiontype), parameter :: &
152  swfdis_nrow = inputparamdefinitiontype &
153  ( &
154  'SWF', & ! component
155  'DIS', & ! subcomponent
156  'DIMENSIONS', & ! block
157  'NROW', & ! tag name
158  'NROW', & ! fortran variable
159  'INTEGER', & ! type
160  '', & ! shape
161  .true., & ! required
162  .false., & ! multi-record
163  .false., & ! preserve case
164  .false., & ! layered
165  .false. & ! timeseries
166  )
167 
168  type(inputparamdefinitiontype), parameter :: &
169  swfdis_ncol = inputparamdefinitiontype &
170  ( &
171  'SWF', & ! component
172  'DIS', & ! subcomponent
173  'DIMENSIONS', & ! block
174  'NCOL', & ! tag name
175  'NCOL', & ! fortran variable
176  'INTEGER', & ! type
177  '', & ! shape
178  .true., & ! required
179  .false., & ! multi-record
180  .false., & ! preserve case
181  .false., & ! layered
182  .false. & ! timeseries
183  )
184 
185  type(inputparamdefinitiontype), parameter :: &
186  swfdis_delr = inputparamdefinitiontype &
187  ( &
188  'SWF', & ! component
189  'DIS', & ! subcomponent
190  'GRIDDATA', & ! block
191  'DELR', & ! tag name
192  'DELR', & ! fortran variable
193  'DOUBLE1D', & ! type
194  'NCOL', & ! shape
195  .true., & ! required
196  .false., & ! multi-record
197  .false., & ! preserve case
198  .false., & ! layered
199  .false. & ! timeseries
200  )
201 
202  type(inputparamdefinitiontype), parameter :: &
203  swfdis_delc = inputparamdefinitiontype &
204  ( &
205  'SWF', & ! component
206  'DIS', & ! subcomponent
207  'GRIDDATA', & ! block
208  'DELC', & ! tag name
209  'DELC', & ! fortran variable
210  'DOUBLE1D', & ! type
211  'NROW', & ! shape
212  .true., & ! required
213  .false., & ! multi-record
214  .false., & ! preserve case
215  .false., & ! layered
216  .false. & ! timeseries
217  )
218 
219  type(inputparamdefinitiontype), parameter :: &
220  swfdis_top = inputparamdefinitiontype &
221  ( &
222  'SWF', & ! component
223  'DIS', & ! subcomponent
224  'GRIDDATA', & ! block
225  'TOP', & ! tag name
226  'TOP', & ! fortran variable
227  'DOUBLE2D', & ! type
228  'NCOL NROW', & ! shape
229  .true., & ! required
230  .false., & ! multi-record
231  .false., & ! preserve case
232  .false., & ! layered
233  .false. & ! timeseries
234  )
235 
236  type(inputparamdefinitiontype), parameter :: &
237  swfdis_botm = inputparamdefinitiontype &
238  ( &
239  'SWF', & ! component
240  'DIS', & ! subcomponent
241  'GRIDDATA', & ! block
242  'BOTM', & ! tag name
243  'BOTM', & ! fortran variable
244  'DOUBLE3D', & ! type
245  'NCOL NROW NLAY', & ! shape
246  .true., & ! required
247  .false., & ! multi-record
248  .false., & ! preserve case
249  .true., & ! layered
250  .false. & ! timeseries
251  )
252 
253  type(inputparamdefinitiontype), parameter :: &
254  swfdis_idomain = inputparamdefinitiontype &
255  ( &
256  'SWF', & ! component
257  'DIS', & ! subcomponent
258  'GRIDDATA', & ! block
259  'IDOMAIN', & ! tag name
260  'IDOMAIN', & ! fortran variable
261  'INTEGER3D', & ! type
262  'NCOL NROW NLAY', & ! shape
263  .false., & ! required
264  .false., & ! multi-record
265  .false., & ! preserve case
266  .true., & ! layered
267  .false. & ! timeseries
268  )
269 
270  type(inputparamdefinitiontype), parameter :: &
271  swf_dis_param_definitions(*) = &
272  [ &
273  swfdis_length_units, &
274  swfdis_nogrb, &
275  swfdis_xorigin, &
276  swfdis_yorigin, &
277  swfdis_angrot, &
278  swfdis_export_ascii, &
279  swfdis_nlay, &
280  swfdis_nrow, &
281  swfdis_ncol, &
282  swfdis_delr, &
283  swfdis_delc, &
284  swfdis_top, &
285  swfdis_botm, &
286  swfdis_idomain &
287  ]
288 
289  type(inputparamdefinitiontype), parameter :: &
290  swf_dis_aggregate_definitions(*) = &
291  [ &
292  inputparamdefinitiontype &
293  ( &
294  '', & ! component
295  '', & ! subcomponent
296  '', & ! block
297  '', & ! tag name
298  '', & ! fortran variable
299  '', & ! type
300  '', & ! shape
301  .false., & ! required
302  .false., & ! multi-record
303  .false., & ! preserve case
304  .false., & ! layered
305  .false. & ! timeseries
306  ) &
307  ]
308 
309  type(inputblockdefinitiontype), parameter :: &
310  swf_dis_block_definitions(*) = &
311  [ &
312  inputblockdefinitiontype( &
313  'OPTIONS', & ! blockname
314  .false., & ! required
315  .false., & ! aggregate
316  .false. & ! block_variable
317  ), &
318  inputblockdefinitiontype( &
319  'DIMENSIONS', & ! blockname
320  .true., & ! required
321  .false., & ! aggregate
322  .false. & ! block_variable
323  ), &
324  inputblockdefinitiontype( &
325  'GRIDDATA', & ! blockname
326  .true., & ! required
327  .false., & ! aggregate
328  .false. & ! block_variable
329  ) &
330  ]
331 
332 end module swfdisinputmodule
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
swfdisinputmodule::swfdis_export_ascii
type(inputparamdefinitiontype), parameter swfdis_export_ascii
Definition: swf-disidm.f90:117
swfdisinputmodule::swfdis_delr
type(inputparamdefinitiontype), parameter swfdis_delr
Definition: swf-disidm.f90:185
swfdisinputmodule::swfdis_nrow
type(inputparamdefinitiontype), parameter swfdis_nrow
Definition: swf-disidm.f90:151
swfdisinputmodule::swfdis_idomain
type(inputparamdefinitiontype), parameter swfdis_idomain
Definition: swf-disidm.f90:253
swfdisinputmodule::swf_dis_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public swf_dis_block_definitions
Definition: swf-disidm.f90:309
swfdisinputmodule::swfdis_length_units
type(inputparamdefinitiontype), parameter swfdis_length_units
Definition: swf-disidm.f90:32
swfdisinputmodule::swfdis_ncol
type(inputparamdefinitiontype), parameter swfdis_ncol
Definition: swf-disidm.f90:168
swfdisinputmodule::swfdis_nlay
type(inputparamdefinitiontype), parameter swfdis_nlay
Definition: swf-disidm.f90:134
swfdisinputmodule::swfdis_yorigin
type(inputparamdefinitiontype), parameter swfdis_yorigin
Definition: swf-disidm.f90:83
swfdisinputmodule::swfdis_angrot
type(inputparamdefinitiontype), parameter swfdis_angrot
Definition: swf-disidm.f90:100
swfdisinputmodule::swfdis_xorigin
type(inputparamdefinitiontype), parameter swfdis_xorigin
Definition: swf-disidm.f90:66
swfdisinputmodule::swfdis_delc
type(inputparamdefinitiontype), parameter swfdis_delc
Definition: swf-disidm.f90:202
swfdisinputmodule::swfdis_botm
type(inputparamdefinitiontype), parameter swfdis_botm
Definition: swf-disidm.f90:236
swfdisinputmodule::swf_dis_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_dis_aggregate_definitions
Definition: swf-disidm.f90:289
swfdisinputmodule::swf_dis_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public swf_dis_param_definitions
Definition: swf-disidm.f90:270
swfdisinputmodule::swfdis_nogrb
type(inputparamdefinitiontype), parameter swfdis_nogrb
Definition: swf-disidm.f90:49
swfdisinputmodule::swf_dis_multi_package
logical, public swf_dis_multi_package
Definition: swf-disidm.f90:30
swfdisinputmodule::swfdis_top
type(inputparamdefinitiontype), parameter swfdis_top
Definition: swf-disidm.f90:219