MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
gwt-cncidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwtcncinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwt_cnc_param_definitions
8  public gwt_cnc_aggregate_definitions
9  public gwt_cnc_block_definitions
10  public gwtcncparamfoundtype
11  public gwt_cnc_multi_package
12 
13  type gwtcncparamfoundtype
14  logical :: auxiliary = .false.
15  logical :: auxmultname = .false.
16  logical :: boundnames = .false.
17  logical :: iprflow = .false.
18  logical :: ipakcb = .false.
19  logical :: iprpak = .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 :: tspvar = .false.
30  logical :: auxvar = .false.
31  logical :: boundname = .false.
32  end type gwtcncparamfoundtype
33 
34  logical :: gwt_cnc_multi_package = .true.
35 
36  type(inputparamdefinitiontype), parameter :: &
37  gwtcnc_auxiliary = inputparamdefinitiontype &
38  ( &
39  'GWT', & ! component
40  'CNC', & ! 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  gwtcnc_auxmultname = inputparamdefinitiontype &
55  ( &
56  'GWT', & ! component
57  'CNC', & ! 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  gwtcnc_boundnames = inputparamdefinitiontype &
72  ( &
73  'GWT', & ! component
74  'CNC', & ! 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  gwtcnc_iprflow = inputparamdefinitiontype &
89  ( &
90  'GWT', & ! component
91  'CNC', & ! subcomponent
92  'OPTIONS', & ! block
93  'PRINT_INPUT', & ! tag name
94  'IPRFLOW', & ! 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  gwtcnc_ipakcb = inputparamdefinitiontype &
106  ( &
107  'GWT', & ! component
108  'CNC', & ! subcomponent
109  'OPTIONS', & ! block
110  'PRINT_FLOWS', & ! tag name
111  'IPAKCB', & ! 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  gwtcnc_iprpak = inputparamdefinitiontype &
123  ( &
124  'GWT', & ! component
125  'CNC', & ! subcomponent
126  'OPTIONS', & ! block
127  'SAVE_FLOWS', & ! tag name
128  'IPRPAK', & ! 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  gwtcnc_ts_filerecord = inputparamdefinitiontype &
140  ( &
141  'GWT', & ! component
142  'CNC', & ! 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  gwtcnc_ts6 = inputparamdefinitiontype &
157  ( &
158  'GWT', & ! component
159  'CNC', & ! 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  gwtcnc_filein = inputparamdefinitiontype &
174  ( &
175  'GWT', & ! component
176  'CNC', & ! 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  gwtcnc_ts6_filename = inputparamdefinitiontype &
191  ( &
192  'GWT', & ! component
193  'CNC', & ! 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  gwtcnc_obs_filerecord = inputparamdefinitiontype &
208  ( &
209  'GWT', & ! component
210  'CNC', & ! 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  gwtcnc_obs6 = inputparamdefinitiontype &
225  ( &
226  'GWT', & ! component
227  'CNC', & ! 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  gwtcnc_obs6_filename = inputparamdefinitiontype &
242  ( &
243  'GWT', & ! component
244  'CNC', & ! 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  gwtcnc_maxbound = inputparamdefinitiontype &
259  ( &
260  'GWT', & ! component
261  'CNC', & ! 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  gwtcnc_cellid = inputparamdefinitiontype &
276  ( &
277  'GWT', & ! component
278  'CNC', & ! 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  gwtcnc_tspvar = inputparamdefinitiontype &
293  ( &
294  'GWT', & ! component
295  'CNC', & ! subcomponent
296  'PERIOD', & ! block
297  'CONC', & ! tag name
298  'TSPVAR', & ! 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  gwtcnc_auxvar = inputparamdefinitiontype &
310  ( &
311  'GWT', & ! component
312  'CNC', & ! subcomponent
313  'PERIOD', & ! block
314  'AUX', & ! tag name
315  'AUXVAR', & ! 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  gwtcnc_boundname = inputparamdefinitiontype &
327  ( &
328  'GWT', & ! component
329  'CNC', & ! 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  gwt_cnc_param_definitions(*) = &
344  [ &
345  gwtcnc_auxiliary, &
346  gwtcnc_auxmultname, &
347  gwtcnc_boundnames, &
348  gwtcnc_iprflow, &
349  gwtcnc_ipakcb, &
350  gwtcnc_iprpak, &
351  gwtcnc_ts_filerecord, &
352  gwtcnc_ts6, &
353  gwtcnc_filein, &
354  gwtcnc_ts6_filename, &
355  gwtcnc_obs_filerecord, &
356  gwtcnc_obs6, &
357  gwtcnc_obs6_filename, &
358  gwtcnc_maxbound, &
359  gwtcnc_cellid, &
360  gwtcnc_tspvar, &
361  gwtcnc_auxvar, &
362  gwtcnc_boundname &
363  ]
364 
365  type(inputparamdefinitiontype), parameter :: &
366  gwtcnc_spd = inputparamdefinitiontype &
367  ( &
368  'GWT', & ! component
369  'CNC', & ! subcomponent
370  'PERIOD', & ! block
371  'STRESS_PERIOD_DATA', & ! tag name
372  'SPD', & ! fortran variable
373  'RECARRAY CELLID CONC 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  gwt_cnc_aggregate_definitions(*) = &
384  [ &
385  gwtcnc_spd &
386  ]
387 
388  type(inputblockdefinitiontype), parameter :: &
389  gwt_cnc_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 gwtcncinputmodule
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
gwtcncinputmodule::gwtcnc_obs_filerecord
type(inputparamdefinitiontype), parameter gwtcnc_obs_filerecord
Definition: gwt-cncidm.f90:206
gwtcncinputmodule::gwtcnc_auxvar
type(inputparamdefinitiontype), parameter gwtcnc_auxvar
Definition: gwt-cncidm.f90:308
gwtcncinputmodule::gwtcnc_boundnames
type(inputparamdefinitiontype), parameter gwtcnc_boundnames
Definition: gwt-cncidm.f90:70
gwtcncinputmodule::gwt_cnc_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_cnc_param_definitions
Definition: gwt-cncidm.f90:342
gwtcncinputmodule::gwtcnc_obs6_filename
type(inputparamdefinitiontype), parameter gwtcnc_obs6_filename
Definition: gwt-cncidm.f90:240
gwtcncinputmodule::gwtcnc_obs6
type(inputparamdefinitiontype), parameter gwtcnc_obs6
Definition: gwt-cncidm.f90:223
gwtcncinputmodule::gwt_cnc_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_cnc_aggregate_definitions
Definition: gwt-cncidm.f90:382
gwtcncinputmodule::gwtcnc_ts_filerecord
type(inputparamdefinitiontype), parameter gwtcnc_ts_filerecord
Definition: gwt-cncidm.f90:138
gwtcncinputmodule::gwtcnc_ts6
type(inputparamdefinitiontype), parameter gwtcnc_ts6
Definition: gwt-cncidm.f90:155
gwtcncinputmodule::gwtcnc_spd
type(inputparamdefinitiontype), parameter gwtcnc_spd
Definition: gwt-cncidm.f90:365
gwtcncinputmodule::gwtcnc_iprflow
type(inputparamdefinitiontype), parameter gwtcnc_iprflow
Definition: gwt-cncidm.f90:87
gwtcncinputmodule::gwtcnc_filein
type(inputparamdefinitiontype), parameter gwtcnc_filein
Definition: gwt-cncidm.f90:172
gwtcncinputmodule::gwtcnc_iprpak
type(inputparamdefinitiontype), parameter gwtcnc_iprpak
Definition: gwt-cncidm.f90:121
gwtcncinputmodule::gwtcnc_maxbound
type(inputparamdefinitiontype), parameter gwtcnc_maxbound
Definition: gwt-cncidm.f90:257
gwtcncinputmodule::gwt_cnc_multi_package
logical, public gwt_cnc_multi_package
Definition: gwt-cncidm.f90:34
gwtcncinputmodule::gwt_cnc_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwt_cnc_block_definitions
Definition: gwt-cncidm.f90:388
gwtcncinputmodule::gwtcnc_tspvar
type(inputparamdefinitiontype), parameter gwtcnc_tspvar
Definition: gwt-cncidm.f90:291
gwtcncinputmodule::gwtcnc_auxmultname
type(inputparamdefinitiontype), parameter gwtcnc_auxmultname
Definition: gwt-cncidm.f90:53
gwtcncinputmodule::gwtcnc_ts6_filename
type(inputparamdefinitiontype), parameter gwtcnc_ts6_filename
Definition: gwt-cncidm.f90:189
gwtcncinputmodule::gwtcnc_cellid
type(inputparamdefinitiontype), parameter gwtcnc_cellid
Definition: gwt-cncidm.f90:274
gwtcncinputmodule::gwtcnc_ipakcb
type(inputparamdefinitiontype), parameter gwtcnc_ipakcb
Definition: gwt-cncidm.f90:104
gwtcncinputmodule::gwtcnc_boundname
type(inputparamdefinitiontype), parameter gwtcnc_boundname
Definition: gwt-cncidm.f90:325
gwtcncinputmodule::gwtcnc_auxiliary
type(inputparamdefinitiontype), parameter gwtcnc_auxiliary
Definition: gwt-cncidm.f90:36
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7