MODFLOW 6  version 6.7.0.dev3
USGS Modular Hydrologic Model
gwf-vscidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module gwfvscinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public gwf_vsc_param_definitions
8  public gwf_vsc_aggregate_definitions
9  public gwf_vsc_block_definitions
10  public gwfvscparamfoundtype
11  public gwf_vsc_multi_package
12  public gwf_vsc_subpackages
13 
14  type gwfvscparamfoundtype
15  logical :: viscref = .false.
16  logical :: temp_specname = .false.
17  logical :: thermal_form = .false.
18  logical :: thermal_a2 = .false.
19  logical :: thermal_a3 = .false.
20  logical :: thermal_a4 = .false.
21  logical :: viscosity_fr = .false.
22  logical :: viscosity = .false.
23  logical :: fileout = .false.
24  logical :: viscosityfile = .false.
25  logical :: nviscspecies = .false.
26  logical :: iviscspec = .false.
27  logical :: dviscdc = .false.
28  logical :: cviscref = .false.
29  logical :: modelname = .false.
30  logical :: auxspeciesname = .false.
31  end type gwfvscparamfoundtype
32 
33  logical :: gwf_vsc_multi_package = .false.
34 
35  character(len=16), parameter :: &
36  gwf_vsc_subpackages(*) = &
37  [ &
38  ' ' &
39  ]
40 
41  type(inputparamdefinitiontype), parameter :: &
42  gwfvsc_viscref = inputparamdefinitiontype &
43  ( &
44  'GWF', & ! component
45  'VSC', & ! subcomponent
46  'OPTIONS', & ! block
47  'VISCREF', & ! tag name
48  'VISCREF', & ! fortran variable
49  'DOUBLE', & ! type
50  '', & ! shape
51  'reference viscosity', & ! longname
52  .false., & ! required
53  .false., & ! prerelease
54  .false., & ! multi-record
55  .false., & ! preserve case
56  .false., & ! layered
57  .false. & ! timeseries
58  )
59 
60  type(inputparamdefinitiontype), parameter :: &
61  gwfvsc_temp_specname = inputparamdefinitiontype &
62  ( &
63  'GWF', & ! component
64  'VSC', & ! subcomponent
65  'OPTIONS', & ! block
66  'TEMPERATURE_SPECIES_NAME', & ! tag name
67  'TEMP_SPECNAME', & ! fortran variable
68  'STRING', & ! type
69  '', & ! shape
70  'auxspeciesname that corresponds to temperature', & ! longname
71  .false., & ! required
72  .false., & ! prerelease
73  .false., & ! multi-record
74  .false., & ! preserve case
75  .false., & ! layered
76  .false. & ! timeseries
77  )
78 
79  type(inputparamdefinitiontype), parameter :: &
80  gwfvsc_thermal_form = inputparamdefinitiontype &
81  ( &
82  'GWF', & ! component
83  'VSC', & ! subcomponent
84  'OPTIONS', & ! block
85  'THERMAL_FORMULATION', & ! tag name
86  'THERMAL_FORM', & ! fortran variable
87  'STRING', & ! type
88  '', & ! shape
89  'keyword to specify viscosity formulation for the temperature species', & ! longname
90  .false., & ! required
91  .false., & ! prerelease
92  .false., & ! multi-record
93  .false., & ! preserve case
94  .false., & ! layered
95  .false. & ! timeseries
96  )
97 
98  type(inputparamdefinitiontype), parameter :: &
99  gwfvsc_thermal_a2 = inputparamdefinitiontype &
100  ( &
101  'GWF', & ! component
102  'VSC', & ! subcomponent
103  'OPTIONS', & ! block
104  'THERMAL_A2', & ! tag name
105  'THERMAL_A2', & ! fortran variable
106  'DOUBLE', & ! type
107  '', & ! shape
108  'coefficient used in nonlinear viscosity function', & ! longname
109  .false., & ! required
110  .false., & ! prerelease
111  .false., & ! multi-record
112  .false., & ! preserve case
113  .false., & ! layered
114  .false. & ! timeseries
115  )
116 
117  type(inputparamdefinitiontype), parameter :: &
118  gwfvsc_thermal_a3 = inputparamdefinitiontype &
119  ( &
120  'GWF', & ! component
121  'VSC', & ! subcomponent
122  'OPTIONS', & ! block
123  'THERMAL_A3', & ! tag name
124  'THERMAL_A3', & ! fortran variable
125  'DOUBLE', & ! type
126  '', & ! shape
127  'coefficient used in nonlinear viscosity function', & ! longname
128  .false., & ! required
129  .false., & ! prerelease
130  .false., & ! multi-record
131  .false., & ! preserve case
132  .false., & ! layered
133  .false. & ! timeseries
134  )
135 
136  type(inputparamdefinitiontype), parameter :: &
137  gwfvsc_thermal_a4 = inputparamdefinitiontype &
138  ( &
139  'GWF', & ! component
140  'VSC', & ! subcomponent
141  'OPTIONS', & ! block
142  'THERMAL_A4', & ! tag name
143  'THERMAL_A4', & ! fortran variable
144  'DOUBLE', & ! type
145  '', & ! shape
146  'coefficient used in nonlinear viscosity function', & ! longname
147  .false., & ! required
148  .false., & ! prerelease
149  .false., & ! multi-record
150  .false., & ! preserve case
151  .false., & ! layered
152  .false. & ! timeseries
153  )
154 
155  type(inputparamdefinitiontype), parameter :: &
156  gwfvsc_viscosity_fr = inputparamdefinitiontype &
157  ( &
158  'GWF', & ! component
159  'VSC', & ! subcomponent
160  'OPTIONS', & ! block
161  'VISCOSITY_FILERECORD', & ! tag name
162  'VISCOSITY_FR', & ! fortran variable
163  'RECORD VISCOSITY FILEOUT VISCOSITYFILE', & ! type
164  '', & ! shape
165  '', & ! longname
166  .false., & ! required
167  .false., & ! prerelease
168  .false., & ! multi-record
169  .false., & ! preserve case
170  .false., & ! layered
171  .false. & ! timeseries
172  )
173 
174  type(inputparamdefinitiontype), parameter :: &
175  gwfvsc_viscosity = inputparamdefinitiontype &
176  ( &
177  'GWF', & ! component
178  'VSC', & ! subcomponent
179  'OPTIONS', & ! block
180  'VISCOSITY', & ! tag name
181  'VISCOSITY', & ! fortran variable
182  'KEYWORD', & ! type
183  '', & ! shape
184  'viscosity keyword', & ! longname
185  .true., & ! required
186  .false., & ! prerelease
187  .true., & ! multi-record
188  .false., & ! preserve case
189  .false., & ! layered
190  .false. & ! timeseries
191  )
192 
193  type(inputparamdefinitiontype), parameter :: &
194  gwfvsc_fileout = inputparamdefinitiontype &
195  ( &
196  'GWF', & ! component
197  'VSC', & ! subcomponent
198  'OPTIONS', & ! block
199  'FILEOUT', & ! tag name
200  'FILEOUT', & ! fortran variable
201  'KEYWORD', & ! type
202  '', & ! shape
203  'file keyword', & ! longname
204  .true., & ! required
205  .false., & ! prerelease
206  .true., & ! multi-record
207  .false., & ! preserve case
208  .false., & ! layered
209  .false. & ! timeseries
210  )
211 
212  type(inputparamdefinitiontype), parameter :: &
213  gwfvsc_viscosityfile = inputparamdefinitiontype &
214  ( &
215  'GWF', & ! component
216  'VSC', & ! subcomponent
217  'OPTIONS', & ! block
218  'VISCOSITYFILE', & ! tag name
219  'VISCOSITYFILE', & ! fortran variable
220  'STRING', & ! type
221  '', & ! shape
222  'file keyword', & ! longname
223  .true., & ! required
224  .false., & ! prerelease
225  .true., & ! multi-record
226  .true., & ! preserve case
227  .false., & ! layered
228  .false. & ! timeseries
229  )
230 
231  type(inputparamdefinitiontype), parameter :: &
232  gwfvsc_nviscspecies = inputparamdefinitiontype &
233  ( &
234  'GWF', & ! component
235  'VSC', & ! subcomponent
236  'DIMENSIONS', & ! block
237  'NVISCSPECIES', & ! tag name
238  'NVISCSPECIES', & ! fortran variable
239  'INTEGER', & ! type
240  '', & ! shape
241  'number of species used in viscosity equation of state', & ! longname
242  .true., & ! required
243  .false., & ! prerelease
244  .false., & ! multi-record
245  .false., & ! preserve case
246  .false., & ! layered
247  .false. & ! timeseries
248  )
249 
250  type(inputparamdefinitiontype), parameter :: &
251  gwfvsc_iviscspec = inputparamdefinitiontype &
252  ( &
253  'GWF', & ! component
254  'VSC', & ! subcomponent
255  'PACKAGEDATA', & ! block
256  'IVISCSPEC', & ! tag name
257  'IVISCSPEC', & ! fortran variable
258  'INTEGER', & ! type
259  '', & ! shape
260  'species number for this entry', & ! longname
261  .true., & ! required
262  .false., & ! prerelease
263  .true., & ! multi-record
264  .false., & ! preserve case
265  .false., & ! layered
266  .false. & ! timeseries
267  )
268 
269  type(inputparamdefinitiontype), parameter :: &
270  gwfvsc_dviscdc = inputparamdefinitiontype &
271  ( &
272  'GWF', & ! component
273  'VSC', & ! subcomponent
274  'PACKAGEDATA', & ! block
275  'DVISCDC', & ! tag name
276  'DVISCDC', & ! fortran variable
277  'DOUBLE', & ! type
278  '', & ! shape
279  'slope of the line that defines the linear relationship between&
280  & viscosity and temperature or between viscosity and concentration,&
281  & depending on the type of species entered on each line.', & ! longname
282  .true., & ! required
283  .false., & ! prerelease
284  .true., & ! multi-record
285  .false., & ! preserve case
286  .false., & ! layered
287  .false. & ! timeseries
288  )
289 
290  type(inputparamdefinitiontype), parameter :: &
291  gwfvsc_cviscref = inputparamdefinitiontype &
292  ( &
293  'GWF', & ! component
294  'VSC', & ! subcomponent
295  'PACKAGEDATA', & ! block
296  'CVISCREF', & ! tag name
297  'CVISCREF', & ! fortran variable
298  'DOUBLE', & ! type
299  '', & ! shape
300  'reference temperature value or reference concentration value', & ! longname
301  .true., & ! required
302  .false., & ! prerelease
303  .true., & ! multi-record
304  .false., & ! preserve case
305  .false., & ! layered
306  .false. & ! timeseries
307  )
308 
309  type(inputparamdefinitiontype), parameter :: &
310  gwfvsc_modelname = inputparamdefinitiontype &
311  ( &
312  'GWF', & ! component
313  'VSC', & ! subcomponent
314  'PACKAGEDATA', & ! block
315  'MODELNAME', & ! tag name
316  'MODELNAME', & ! fortran variable
317  'STRING', & ! type
318  '', & ! shape
319  'modelname', & ! longname
320  .true., & ! required
321  .false., & ! prerelease
322  .true., & ! multi-record
323  .false., & ! preserve case
324  .false., & ! layered
325  .false. & ! timeseries
326  )
327 
328  type(inputparamdefinitiontype), parameter :: &
329  gwfvsc_auxspeciesname = inputparamdefinitiontype &
330  ( &
331  'GWF', & ! component
332  'VSC', & ! subcomponent
333  'PACKAGEDATA', & ! block
334  'AUXSPECIESNAME', & ! tag name
335  'AUXSPECIESNAME', & ! fortran variable
336  'STRING', & ! type
337  '', & ! shape
338  'auxspeciesname', & ! longname
339  .true., & ! required
340  .false., & ! prerelease
341  .true., & ! multi-record
342  .false., & ! preserve case
343  .false., & ! layered
344  .false. & ! timeseries
345  )
346 
347  type(inputparamdefinitiontype), parameter :: &
348  gwf_vsc_param_definitions(*) = &
349  [ &
350  gwfvsc_viscref, &
351  gwfvsc_temp_specname, &
352  gwfvsc_thermal_form, &
353  gwfvsc_thermal_a2, &
354  gwfvsc_thermal_a3, &
355  gwfvsc_thermal_a4, &
356  gwfvsc_viscosity_fr, &
357  gwfvsc_viscosity, &
358  gwfvsc_fileout, &
359  gwfvsc_viscosityfile, &
360  gwfvsc_nviscspecies, &
361  gwfvsc_iviscspec, &
362  gwfvsc_dviscdc, &
363  gwfvsc_cviscref, &
364  gwfvsc_modelname, &
365  gwfvsc_auxspeciesname &
366  ]
367 
368  type(inputparamdefinitiontype), parameter :: &
369  gwfvsc_packagedata = inputparamdefinitiontype &
370  ( &
371  'GWF', & ! component
372  'VSC', & ! subcomponent
373  'PACKAGEDATA', & ! block
374  'PACKAGEDATA', & ! tag name
375  'PACKAGEDATA', & ! fortran variable
376  'RECARRAY IVISCSPEC DVISCDC CVISCREF MODELNAME AUXSPECIESNAME', & ! type
377  'NVISCSPECIES', & ! shape
378  '', & ! longname
379  .true., & ! required
380  .false., & ! prerelease
381  .false., & ! multi-record
382  .false., & ! preserve case
383  .false., & ! layered
384  .false. & ! timeseries
385  )
386 
387  type(inputparamdefinitiontype), parameter :: &
388  gwf_vsc_aggregate_definitions(*) = &
389  [ &
390  gwfvsc_packagedata &
391  ]
392 
393  type(inputblockdefinitiontype), parameter :: &
394  gwf_vsc_block_definitions(*) = &
395  [ &
396  inputblockdefinitiontype( &
397  'OPTIONS', & ! blockname
398  .false., & ! required
399  .false., & ! aggregate
400  .false. & ! block_variable
401  ), &
402  inputblockdefinitiontype( &
403  'DIMENSIONS', & ! blockname
404  .true., & ! required
405  .false., & ! aggregate
406  .false. & ! block_variable
407  ), &
408  inputblockdefinitiontype( &
409  'PACKAGEDATA', & ! blockname
410  .true., & ! required
411  .true., & ! aggregate
412  .false. & ! block_variable
413  ) &
414  ]
415 
416 end module gwfvscinputmodule
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
gwfvscinputmodule::gwfvsc_viscref
type(inputparamdefinitiontype), parameter gwfvsc_viscref
Definition: gwf-vscidm.f90:41
gwfvscinputmodule::gwfvsc_viscosity_fr
type(inputparamdefinitiontype), parameter gwfvsc_viscosity_fr
Definition: gwf-vscidm.f90:155
gwfvscinputmodule::gwfvsc_cviscref
type(inputparamdefinitiontype), parameter gwfvsc_cviscref
Definition: gwf-vscidm.f90:290
gwfvscinputmodule::gwfvsc_thermal_a2
type(inputparamdefinitiontype), parameter gwfvsc_thermal_a2
Definition: gwf-vscidm.f90:98
gwfvscinputmodule::gwfvsc_dviscdc
type(inputparamdefinitiontype), parameter gwfvsc_dviscdc
Definition: gwf-vscidm.f90:269
gwfvscinputmodule::gwfvsc_nviscspecies
type(inputparamdefinitiontype), parameter gwfvsc_nviscspecies
Definition: gwf-vscidm.f90:231
gwfvscinputmodule::gwfvsc_modelname
type(inputparamdefinitiontype), parameter gwfvsc_modelname
Definition: gwf-vscidm.f90:309
gwfvscinputmodule::gwfvsc_thermal_a4
type(inputparamdefinitiontype), parameter gwfvsc_thermal_a4
Definition: gwf-vscidm.f90:136
gwfvscinputmodule::gwfvsc_viscosityfile
type(inputparamdefinitiontype), parameter gwfvsc_viscosityfile
Definition: gwf-vscidm.f90:212
gwfvscinputmodule::gwf_vsc_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_vsc_param_definitions
Definition: gwf-vscidm.f90:347
gwfvscinputmodule::gwfvsc_auxspeciesname
type(inputparamdefinitiontype), parameter gwfvsc_auxspeciesname
Definition: gwf-vscidm.f90:328
gwfvscinputmodule::gwf_vsc_multi_package
logical, public gwf_vsc_multi_package
Definition: gwf-vscidm.f90:33
gwfvscinputmodule::gwfvsc_thermal_a3
type(inputparamdefinitiontype), parameter gwfvsc_thermal_a3
Definition: gwf-vscidm.f90:117
gwfvscinputmodule::gwfvsc_fileout
type(inputparamdefinitiontype), parameter gwfvsc_fileout
Definition: gwf-vscidm.f90:193
gwfvscinputmodule::gwfvsc_viscosity
type(inputparamdefinitiontype), parameter gwfvsc_viscosity
Definition: gwf-vscidm.f90:174
gwfvscinputmodule::gwf_vsc_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_vsc_aggregate_definitions
Definition: gwf-vscidm.f90:387
gwfvscinputmodule::gwfvsc_temp_specname
type(inputparamdefinitiontype), parameter gwfvsc_temp_specname
Definition: gwf-vscidm.f90:60
gwfvscinputmodule::gwfvsc_thermal_form
type(inputparamdefinitiontype), parameter gwfvsc_thermal_form
Definition: gwf-vscidm.f90:79
gwfvscinputmodule::gwfvsc_iviscspec
type(inputparamdefinitiontype), parameter gwfvsc_iviscspec
Definition: gwf-vscidm.f90:250
gwfvscinputmodule::gwf_vsc_subpackages
character(len=16), dimension(*), parameter, public gwf_vsc_subpackages
Definition: gwf-vscidm.f90:35
gwfvscinputmodule::gwf_vsc_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public gwf_vsc_block_definitions
Definition: gwf-vscidm.f90:393
gwfvscinputmodule::gwfvsc_packagedata
type(inputparamdefinitiontype), parameter gwfvsc_packagedata
Definition: gwf-vscidm.f90:368
inputdefinitionmodule
This module contains the InputDefinitionModule.
Definition: InputDefinition.f90:7