MODFLOW 6  version 6.6.0.dev0
USGS Modular Hydrologic Model
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  public gwt_cnc_subpackages
13 
14  type gwtcncparamfoundtype
15  logical :: auxiliary = .false.
16  logical :: auxmultname = .false.
17  logical :: boundnames = .false.
18  logical :: iprflow = .false.
19  logical :: ipakcb = .false.
20  logical :: iprpak = .false.
21  logical :: ts_filerecord = .false.
22  logical :: ts6 = .false.
23  logical :: filein = .false.
24  logical :: ts6_filename = .false.
25  logical :: obs_filerecord = .false.
26  logical :: obs6 = .false.
27  logical :: obs6_filename = .false.
28  logical :: maxbound = .false.
29  logical :: cellid = .false.
30  logical :: tspvar = .false.
31  logical :: auxvar = .false.
32  logical :: boundname = .false.
33  end type gwtcncparamfoundtype
34 
35  logical :: gwt_cnc_multi_package = .true.
36 
37  character(len=16), parameter :: &
38  gwt_cnc_subpackages(*) = &
39  [ &
40  ' ' &
41  ]
42 
43  type(inputparamdefinitiontype), parameter :: &
44  gwtcnc_auxiliary = inputparamdefinitiontype &
45  ( &
46  'GWT', & ! component
47  'CNC', & ! subcomponent
48  'OPTIONS', & ! block
49  'AUXILIARY', & ! tag name
50  'AUXILIARY', & ! fortran variable
51  'STRING', & ! type
52  'NAUX', & ! shape
53  'keyword to specify aux variables', & ! longname
54  .false., & ! required
55  .false., & ! multi-record
56  .false., & ! preserve case
57  .false., & ! layered
58  .false. & ! timeseries
59  )
60 
61  type(inputparamdefinitiontype), parameter :: &
62  gwtcnc_auxmultname = inputparamdefinitiontype &
63  ( &
64  'GWT', & ! component
65  'CNC', & ! subcomponent
66  'OPTIONS', & ! block
67  'AUXMULTNAME', & ! tag name
68  'AUXMULTNAME', & ! fortran variable
69  'STRING', & ! type
70  '', & ! shape
71  'name of auxiliary variable for multiplier', & ! longname
72  .false., & ! required
73  .false., & ! multi-record
74  .false., & ! preserve case
75  .false., & ! layered
76  .false. & ! timeseries
77  )
78 
79  type(inputparamdefinitiontype), parameter :: &
80  gwtcnc_boundnames = inputparamdefinitiontype &
81  ( &
82  'GWT', & ! component
83  'CNC', & ! subcomponent
84  'OPTIONS', & ! block
85  'BOUNDNAMES', & ! tag name
86  'BOUNDNAMES', & ! fortran variable
87  'KEYWORD', & ! type
88  '', & ! shape
89  '', & ! longname
90  .false., & ! required
91  .false., & ! multi-record
92  .false., & ! preserve case
93  .false., & ! layered
94  .false. & ! timeseries
95  )
96 
97  type(inputparamdefinitiontype), parameter :: &
98  gwtcnc_iprflow = inputparamdefinitiontype &
99  ( &
100  'GWT', & ! component
101  'CNC', & ! subcomponent
102  'OPTIONS', & ! block
103  'PRINT_INPUT', & ! tag name
104  'IPRFLOW', & ! fortran variable
105  'KEYWORD', & ! type
106  '', & ! shape
107  'print input to listing file', & ! longname
108  .false., & ! required
109  .false., & ! multi-record
110  .false., & ! preserve case
111  .false., & ! layered
112  .false. & ! timeseries
113  )
114 
115  type(inputparamdefinitiontype), parameter :: &
116  gwtcnc_ipakcb = inputparamdefinitiontype &
117  ( &
118  'GWT', & ! component
119  'CNC', & ! subcomponent
120  'OPTIONS', & ! block
121  'PRINT_FLOWS', & ! tag name
122  'IPAKCB', & ! fortran variable
123  'KEYWORD', & ! type
124  '', & ! shape
125  'print calculated flows to listing file', & ! longname
126  .false., & ! required
127  .false., & ! multi-record
128  .false., & ! preserve case
129  .false., & ! layered
130  .false. & ! timeseries
131  )
132 
133  type(inputparamdefinitiontype), parameter :: &
134  gwtcnc_iprpak = inputparamdefinitiontype &
135  ( &
136  'GWT', & ! component
137  'CNC', & ! subcomponent
138  'OPTIONS', & ! block
139  'SAVE_FLOWS', & ! tag name
140  'IPRPAK', & ! fortran variable
141  'KEYWORD', & ! type
142  '', & ! shape
143  'save constant concentration flows to budget file', & ! longname
144  .false., & ! required
145  .false., & ! multi-record
146  .false., & ! preserve case
147  .false., & ! layered
148  .false. & ! timeseries
149  )
150 
151  type(inputparamdefinitiontype), parameter :: &
152  gwtcnc_ts_filerecord = inputparamdefinitiontype &
153  ( &
154  'GWT', & ! component
155  'CNC', & ! subcomponent
156  'OPTIONS', & ! block
157  'TS_FILERECORD', & ! tag name
158  'TS_FILERECORD', & ! fortran variable
159  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
160  '', & ! shape
161  '', & ! longname
162  .false., & ! required
163  .false., & ! multi-record
164  .false., & ! preserve case
165  .false., & ! layered
166  .false. & ! timeseries
167  )
168 
169  type(inputparamdefinitiontype), parameter :: &
170  gwtcnc_ts6 = inputparamdefinitiontype &
171  ( &
172  'GWT', & ! component
173  'CNC', & ! subcomponent
174  'OPTIONS', & ! block
175  'TS6', & ! tag name
176  'TS6', & ! fortran variable
177  'KEYWORD', & ! type
178  '', & ! shape
179  'time series keyword', & ! longname
180  .true., & ! required
181  .true., & ! multi-record
182  .false., & ! preserve case
183  .false., & ! layered
184  .false. & ! timeseries
185  )
186 
187  type(inputparamdefinitiontype), parameter :: &
188  gwtcnc_filein = inputparamdefinitiontype &
189  ( &
190  'GWT', & ! component
191  'CNC', & ! subcomponent
192  'OPTIONS', & ! block
193  'FILEIN', & ! tag name
194  'FILEIN', & ! fortran variable
195  'KEYWORD', & ! type
196  '', & ! shape
197  'file keyword', & ! longname
198  .true., & ! required
199  .true., & ! multi-record
200  .false., & ! preserve case
201  .false., & ! layered
202  .false. & ! timeseries
203  )
204 
205  type(inputparamdefinitiontype), parameter :: &
206  gwtcnc_ts6_filename = inputparamdefinitiontype &
207  ( &
208  'GWT', & ! component
209  'CNC', & ! subcomponent
210  'OPTIONS', & ! block
211  'TS6_FILENAME', & ! tag name
212  'TS6_FILENAME', & ! fortran variable
213  'STRING', & ! type
214  '', & ! shape
215  'file name of time series information', & ! longname
216  .true., & ! required
217  .true., & ! multi-record
218  .true., & ! preserve case
219  .false., & ! layered
220  .false. & ! timeseries
221  )
222 
223  type(inputparamdefinitiontype), parameter :: &
224  gwtcnc_obs_filerecord = inputparamdefinitiontype &
225  ( &
226  'GWT', & ! component
227  'CNC', & ! subcomponent
228  'OPTIONS', & ! block
229  'OBS_FILERECORD', & ! tag name
230  'OBS_FILERECORD', & ! fortran variable
231  'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
232  '', & ! shape
233  '', & ! longname
234  .false., & ! required
235  .false., & ! multi-record
236  .false., & ! preserve case
237  .false., & ! layered
238  .false. & ! timeseries
239  )
240 
241  type(inputparamdefinitiontype), parameter :: &
242  gwtcnc_obs6 = inputparamdefinitiontype &
243  ( &
244  'GWT', & ! component
245  'CNC', & ! subcomponent
246  'OPTIONS', & ! block
247  'OBS6', & ! tag name
248  'OBS6', & ! fortran variable
249  'KEYWORD', & ! type
250  '', & ! shape
251  'obs keyword', & ! longname
252  .true., & ! required
253  .true., & ! multi-record
254  .false., & ! preserve case
255  .false., & ! layered
256  .false. & ! timeseries
257  )
258 
259  type(inputparamdefinitiontype), parameter :: &
260  gwtcnc_obs6_filename = inputparamdefinitiontype &
261  ( &
262  'GWT', & ! component
263  'CNC', & ! subcomponent
264  'OPTIONS', & ! block
265  'OBS6_FILENAME', & ! tag name
266  'OBS6_FILENAME', & ! fortran variable
267  'STRING', & ! type
268  '', & ! shape
269  'obs6 input filename', & ! longname
270  .true., & ! required
271  .true., & ! multi-record
272  .true., & ! preserve case
273  .false., & ! layered
274  .false. & ! timeseries
275  )
276 
277  type(inputparamdefinitiontype), parameter :: &
278  gwtcnc_maxbound = inputparamdefinitiontype &
279  ( &
280  'GWT', & ! component
281  'CNC', & ! subcomponent
282  'DIMENSIONS', & ! block
283  'MAXBOUND', & ! tag name
284  'MAXBOUND', & ! fortran variable
285  'INTEGER', & ! type
286  '', & ! shape
287  'maximum number of constant concentrations', & ! longname
288  .true., & ! required
289  .false., & ! multi-record
290  .false., & ! preserve case
291  .false., & ! layered
292  .false. & ! timeseries
293  )
294 
295  type(inputparamdefinitiontype), parameter :: &
296  gwtcnc_cellid = inputparamdefinitiontype &
297  ( &
298  'GWT', & ! component
299  'CNC', & ! subcomponent
300  'PERIOD', & ! block
301  'CELLID', & ! tag name
302  'CELLID', & ! fortran variable
303  'INTEGER1D', & ! type
304  'NCELLDIM', & ! shape
305  'cell identifier', & ! longname
306  .true., & ! required
307  .true., & ! multi-record
308  .false., & ! preserve case
309  .false., & ! layered
310  .false. & ! timeseries
311  )
312 
313  type(inputparamdefinitiontype), parameter :: &
314  gwtcnc_tspvar = inputparamdefinitiontype &
315  ( &
316  'GWT', & ! component
317  'CNC', & ! subcomponent
318  'PERIOD', & ! block
319  'CONC', & ! tag name
320  'TSPVAR', & ! fortran variable
321  'DOUBLE', & ! type
322  '', & ! shape
323  'constant concentration value', & ! longname
324  .true., & ! required
325  .true., & ! multi-record
326  .false., & ! preserve case
327  .false., & ! layered
328  .true. & ! timeseries
329  )
330 
331  type(inputparamdefinitiontype), parameter :: &
332  gwtcnc_auxvar = inputparamdefinitiontype &
333  ( &
334  'GWT', & ! component
335  'CNC', & ! subcomponent
336  'PERIOD', & ! block
337  'AUX', & ! tag name
338  'AUXVAR', & ! fortran variable
339  'DOUBLE1D', & ! type
340  'NAUX', & ! shape
341  'auxiliary variables', & ! longname
342  .false., & ! required
343  .true., & ! multi-record
344  .false., & ! preserve case
345  .false., & ! layered
346  .true. & ! timeseries
347  )
348 
349  type(inputparamdefinitiontype), parameter :: &
350  gwtcnc_boundname = inputparamdefinitiontype &
351  ( &
352  'GWT', & ! component
353  'CNC', & ! subcomponent
354  'PERIOD', & ! block
355  'BOUNDNAME', & ! tag name
356  'BOUNDNAME', & ! fortran variable
357  'STRING', & ! type
358  '', & ! shape
359  'constant concentration name', & ! longname
360  .false., & ! required
361  .true., & ! multi-record
362  .false., & ! preserve case
363  .false., & ! layered
364  .false. & ! timeseries
365  )
366 
367  type(inputparamdefinitiontype), parameter :: &
368  gwt_cnc_param_definitions(*) = &
369  [ &
370  gwtcnc_auxiliary, &
371  gwtcnc_auxmultname, &
372  gwtcnc_boundnames, &
373  gwtcnc_iprflow, &
374  gwtcnc_ipakcb, &
375  gwtcnc_iprpak, &
376  gwtcnc_ts_filerecord, &
377  gwtcnc_ts6, &
378  gwtcnc_filein, &
379  gwtcnc_ts6_filename, &
380  gwtcnc_obs_filerecord, &
381  gwtcnc_obs6, &
382  gwtcnc_obs6_filename, &
383  gwtcnc_maxbound, &
384  gwtcnc_cellid, &
385  gwtcnc_tspvar, &
386  gwtcnc_auxvar, &
387  gwtcnc_boundname &
388  ]
389 
390  type(inputparamdefinitiontype), parameter :: &
391  gwtcnc_spd = inputparamdefinitiontype &
392  ( &
393  'GWT', & ! component
394  'CNC', & ! subcomponent
395  'PERIOD', & ! block
396  'STRESS_PERIOD_DATA', & ! tag name
397  'SPD', & ! fortran variable
398  'RECARRAY CELLID CONC AUX BOUNDNAME', & ! type
399  'MAXBOUND', & ! shape
400  '', & ! longname
401  .true., & ! required
402  .false., & ! multi-record
403  .false., & ! preserve case
404  .false., & ! layered
405  .false. & ! timeseries
406  )
407 
408  type(inputparamdefinitiontype), parameter :: &
409  gwt_cnc_aggregate_definitions(*) = &
410  [ &
411  gwtcnc_spd &
412  ]
413 
414  type(inputblockdefinitiontype), parameter :: &
415  gwt_cnc_block_definitions(*) = &
416  [ &
417  inputblockdefinitiontype( &
418  'OPTIONS', & ! blockname
419  .false., & ! required
420  .false., & ! aggregate
421  .false. & ! block_variable
422  ), &
423  inputblockdefinitiontype( &
424  'DIMENSIONS', & ! blockname
425  .true., & ! required
426  .false., & ! aggregate
427  .false. & ! block_variable
428  ), &
429  inputblockdefinitiontype( &
430  'PERIOD', & ! blockname
431  .true., & ! required
432  .true., & ! aggregate
433  .true. & ! block_variable
434  ) &
435  ]
436 
437 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:223
gwtcncinputmodule::gwtcnc_auxvar
type(inputparamdefinitiontype), parameter gwtcnc_auxvar
Definition: gwt-cncidm.f90:331
gwtcncinputmodule::gwtcnc_boundnames
type(inputparamdefinitiontype), parameter gwtcnc_boundnames
Definition: gwt-cncidm.f90:79
gwtcncinputmodule::gwt_cnc_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_cnc_param_definitions
Definition: gwt-cncidm.f90:367
gwtcncinputmodule::gwtcnc_obs6_filename
type(inputparamdefinitiontype), parameter gwtcnc_obs6_filename
Definition: gwt-cncidm.f90:259
gwtcncinputmodule::gwtcnc_obs6
type(inputparamdefinitiontype), parameter gwtcnc_obs6
Definition: gwt-cncidm.f90:241
gwtcncinputmodule::gwt_cnc_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwt_cnc_aggregate_definitions
Definition: gwt-cncidm.f90:408
gwtcncinputmodule::gwtcnc_ts_filerecord
type(inputparamdefinitiontype), parameter gwtcnc_ts_filerecord
Definition: gwt-cncidm.f90:151
gwtcncinputmodule::gwtcnc_ts6
type(inputparamdefinitiontype), parameter gwtcnc_ts6
Definition: gwt-cncidm.f90:169
gwtcncinputmodule::gwtcnc_spd
type(inputparamdefinitiontype), parameter gwtcnc_spd
Definition: gwt-cncidm.f90:390
gwtcncinputmodule::gwtcnc_iprflow
type(inputparamdefinitiontype), parameter gwtcnc_iprflow
Definition: gwt-cncidm.f90:97
gwtcncinputmodule::gwtcnc_filein
type(inputparamdefinitiontype), parameter gwtcnc_filein
Definition: gwt-cncidm.f90:187
gwtcncinputmodule::gwtcnc_iprpak
type(inputparamdefinitiontype), parameter gwtcnc_iprpak
Definition: gwt-cncidm.f90:133
gwtcncinputmodule::gwtcnc_maxbound
type(inputparamdefinitiontype), parameter gwtcnc_maxbound
Definition: gwt-cncidm.f90:277
gwtcncinputmodule::gwt_cnc_multi_package
logical, public gwt_cnc_multi_package
Definition: gwt-cncidm.f90:35
gwtcncinputmodule::gwt_cnc_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwt_cnc_block_definitions
Definition: gwt-cncidm.f90:414
gwtcncinputmodule::gwtcnc_tspvar
type(inputparamdefinitiontype), parameter gwtcnc_tspvar
Definition: gwt-cncidm.f90:313
gwtcncinputmodule::gwtcnc_auxmultname
type(inputparamdefinitiontype), parameter gwtcnc_auxmultname
Definition: gwt-cncidm.f90:61
gwtcncinputmodule::gwt_cnc_subpackages
character(len=16), dimension(*), parameter, public gwt_cnc_subpackages
Definition: gwt-cncidm.f90:37
gwtcncinputmodule::gwtcnc_ts6_filename
type(inputparamdefinitiontype), parameter gwtcnc_ts6_filename
Definition: gwt-cncidm.f90:205
gwtcncinputmodule::gwtcnc_cellid
type(inputparamdefinitiontype), parameter gwtcnc_cellid
Definition: gwt-cncidm.f90:295
gwtcncinputmodule::gwtcnc_ipakcb
type(inputparamdefinitiontype), parameter gwtcnc_ipakcb
Definition: gwt-cncidm.f90:115
gwtcncinputmodule::gwtcnc_boundname
type(inputparamdefinitiontype), parameter gwtcnc_boundname
Definition: gwt-cncidm.f90:349
gwtcncinputmodule::gwtcnc_auxiliary
type(inputparamdefinitiontype), parameter gwtcnc_auxiliary
Definition: gwt-cncidm.f90:43
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7