MODFLOW 6  version 6.8.0.dev0
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., & ! developmode
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., & ! developmode
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 '// &
90  'species', & ! longname
91  .false., & ! required
92  .false., & ! developmode
93  .false., & ! multi-record
94  .false., & ! preserve case
95  .false., & ! layered
96  .false. & ! timeseries
97  )
98 
99  type(inputparamdefinitiontype), parameter :: &
100  gwfvsc_thermal_a2 = inputparamdefinitiontype &
101  ( &
102  'GWF', & ! component
103  'VSC', & ! subcomponent
104  'OPTIONS', & ! block
105  'THERMAL_A2', & ! tag name
106  'THERMAL_A2', & ! fortran variable
107  'DOUBLE', & ! type
108  '', & ! shape
109  'coefficient used in nonlinear viscosity function', & ! longname
110  .false., & ! required
111  .false., & ! developmode
112  .false., & ! multi-record
113  .false., & ! preserve case
114  .false., & ! layered
115  .false. & ! timeseries
116  )
117 
118  type(inputparamdefinitiontype), parameter :: &
119  gwfvsc_thermal_a3 = inputparamdefinitiontype &
120  ( &
121  'GWF', & ! component
122  'VSC', & ! subcomponent
123  'OPTIONS', & ! block
124  'THERMAL_A3', & ! tag name
125  'THERMAL_A3', & ! fortran variable
126  'DOUBLE', & ! type
127  '', & ! shape
128  'coefficient used in nonlinear viscosity function', & ! longname
129  .false., & ! required
130  .false., & ! developmode
131  .false., & ! multi-record
132  .false., & ! preserve case
133  .false., & ! layered
134  .false. & ! timeseries
135  )
136 
137  type(inputparamdefinitiontype), parameter :: &
138  gwfvsc_thermal_a4 = inputparamdefinitiontype &
139  ( &
140  'GWF', & ! component
141  'VSC', & ! subcomponent
142  'OPTIONS', & ! block
143  'THERMAL_A4', & ! tag name
144  'THERMAL_A4', & ! fortran variable
145  'DOUBLE', & ! type
146  '', & ! shape
147  'coefficient used in nonlinear viscosity function', & ! longname
148  .false., & ! required
149  .false., & ! developmode
150  .false., & ! multi-record
151  .false., & ! preserve case
152  .false., & ! layered
153  .false. & ! timeseries
154  )
155 
156  type(inputparamdefinitiontype), parameter :: &
157  gwfvsc_viscosity_fr = inputparamdefinitiontype &
158  ( &
159  'GWF', & ! component
160  'VSC', & ! subcomponent
161  'OPTIONS', & ! block
162  'VISCOSITY_FILERECORD', & ! tag name
163  'VISCOSITY_FR', & ! fortran variable
164  'RECORD VISCOSITY FILEOUT VISCOSITYFILE', & ! type
165  '', & ! shape
166  '', & ! longname
167  .false., & ! required
168  .false., & ! developmode
169  .false., & ! multi-record
170  .false., & ! preserve case
171  .false., & ! layered
172  .false. & ! timeseries
173  )
174 
175  type(inputparamdefinitiontype), parameter :: &
176  gwfvsc_viscosity = inputparamdefinitiontype &
177  ( &
178  'GWF', & ! component
179  'VSC', & ! subcomponent
180  'OPTIONS', & ! block
181  'VISCOSITY', & ! tag name
182  'VISCOSITY', & ! fortran variable
183  'KEYWORD', & ! type
184  '', & ! shape
185  'viscosity keyword', & ! longname
186  .true., & ! required
187  .false., & ! developmode
188  .true., & ! multi-record
189  .false., & ! preserve case
190  .false., & ! layered
191  .false. & ! timeseries
192  )
193 
194  type(inputparamdefinitiontype), parameter :: &
195  gwfvsc_fileout = inputparamdefinitiontype &
196  ( &
197  'GWF', & ! component
198  'VSC', & ! subcomponent
199  'OPTIONS', & ! block
200  'FILEOUT', & ! tag name
201  'FILEOUT', & ! fortran variable
202  'KEYWORD', & ! type
203  '', & ! shape
204  'file keyword', & ! longname
205  .true., & ! required
206  .false., & ! developmode
207  .true., & ! multi-record
208  .false., & ! preserve case
209  .false., & ! layered
210  .false. & ! timeseries
211  )
212 
213  type(inputparamdefinitiontype), parameter :: &
214  gwfvsc_viscosityfile = inputparamdefinitiontype &
215  ( &
216  'GWF', & ! component
217  'VSC', & ! subcomponent
218  'OPTIONS', & ! block
219  'VISCOSITYFILE', & ! tag name
220  'VISCOSITYFILE', & ! fortran variable
221  'STRING', & ! type
222  '', & ! shape
223  'file keyword', & ! longname
224  .true., & ! required
225  .false., & ! developmode
226  .true., & ! multi-record
227  .true., & ! preserve case
228  .false., & ! layered
229  .false. & ! timeseries
230  )
231 
232  type(inputparamdefinitiontype), parameter :: &
233  gwfvsc_nviscspecies = inputparamdefinitiontype &
234  ( &
235  'GWF', & ! component
236  'VSC', & ! subcomponent
237  'DIMENSIONS', & ! block
238  'NVISCSPECIES', & ! tag name
239  'NVISCSPECIES', & ! fortran variable
240  'INTEGER', & ! type
241  '', & ! shape
242  'number of species used in viscosity equation of state', & ! longname
243  .true., & ! required
244  .false., & ! developmode
245  .false., & ! multi-record
246  .false., & ! preserve case
247  .false., & ! layered
248  .false. & ! timeseries
249  )
250 
251  type(inputparamdefinitiontype), parameter :: &
252  gwfvsc_iviscspec = inputparamdefinitiontype &
253  ( &
254  'GWF', & ! component
255  'VSC', & ! subcomponent
256  'PACKAGEDATA', & ! block
257  'IVISCSPEC', & ! tag name
258  'IVISCSPEC', & ! fortran variable
259  'INTEGER', & ! type
260  '', & ! shape
261  'species number for this entry', & ! longname
262  .true., & ! required
263  .false., & ! developmode
264  .true., & ! multi-record
265  .false., & ! preserve case
266  .false., & ! layered
267  .false. & ! timeseries
268  )
269 
270  type(inputparamdefinitiontype), parameter :: &
271  gwfvsc_dviscdc = inputparamdefinitiontype &
272  ( &
273  'GWF', & ! component
274  'VSC', & ! subcomponent
275  'PACKAGEDATA', & ! block
276  'DVISCDC', & ! tag name
277  'DVISCDC', & ! fortran variable
278  'DOUBLE', & ! type
279  '', & ! shape
280  'slope of the line that defines the linear relationship '// &
281  'between viscosity and temperature or between viscosity and '// &
282  'concentration, depending on the type of species entered on '// &
283  'each line.', & ! longname
284  .true., & ! required
285  .false., & ! developmode
286  .true., & ! multi-record
287  .false., & ! preserve case
288  .false., & ! layered
289  .false. & ! timeseries
290  )
291 
292  type(inputparamdefinitiontype), parameter :: &
293  gwfvsc_cviscref = inputparamdefinitiontype &
294  ( &
295  'GWF', & ! component
296  'VSC', & ! subcomponent
297  'PACKAGEDATA', & ! block
298  'CVISCREF', & ! tag name
299  'CVISCREF', & ! fortran variable
300  'DOUBLE', & ! type
301  '', & ! shape
302  'reference temperature value or reference concentration value', & ! longname
303  .true., & ! required
304  .false., & ! developmode
305  .true., & ! multi-record
306  .false., & ! preserve case
307  .false., & ! layered
308  .false. & ! timeseries
309  )
310 
311  type(inputparamdefinitiontype), parameter :: &
312  gwfvsc_modelname = inputparamdefinitiontype &
313  ( &
314  'GWF', & ! component
315  'VSC', & ! subcomponent
316  'PACKAGEDATA', & ! block
317  'MODELNAME', & ! tag name
318  'MODELNAME', & ! fortran variable
319  'STRING', & ! type
320  '', & ! shape
321  'modelname', & ! longname
322  .true., & ! required
323  .false., & ! developmode
324  .true., & ! multi-record
325  .false., & ! preserve case
326  .false., & ! layered
327  .false. & ! timeseries
328  )
329 
330  type(inputparamdefinitiontype), parameter :: &
331  gwfvsc_auxspeciesname = inputparamdefinitiontype &
332  ( &
333  'GWF', & ! component
334  'VSC', & ! subcomponent
335  'PACKAGEDATA', & ! block
336  'AUXSPECIESNAME', & ! tag name
337  'AUXSPECIESNAME', & ! fortran variable
338  'STRING', & ! type
339  '', & ! shape
340  'auxspeciesname', & ! longname
341  .true., & ! required
342  .false., & ! developmode
343  .true., & ! multi-record
344  .false., & ! preserve case
345  .false., & ! layered
346  .false. & ! timeseries
347  )
348 
349  type(inputparamdefinitiontype), parameter :: &
350  gwf_vsc_param_definitions(*) = &
351  [ &
352  gwfvsc_viscref, &
353  gwfvsc_temp_specname, &
354  gwfvsc_thermal_form, &
355  gwfvsc_thermal_a2, &
356  gwfvsc_thermal_a3, &
357  gwfvsc_thermal_a4, &
358  gwfvsc_viscosity_fr, &
359  gwfvsc_viscosity, &
360  gwfvsc_fileout, &
361  gwfvsc_viscosityfile, &
362  gwfvsc_nviscspecies, &
363  gwfvsc_iviscspec, &
364  gwfvsc_dviscdc, &
365  gwfvsc_cviscref, &
366  gwfvsc_modelname, &
367  gwfvsc_auxspeciesname &
368  ]
369 
370  type(inputparamdefinitiontype), parameter :: &
371  gwfvsc_packagedata = inputparamdefinitiontype &
372  ( &
373  'GWF', & ! component
374  'VSC', & ! subcomponent
375  'PACKAGEDATA', & ! block
376  'PACKAGEDATA', & ! tag name
377  'PACKAGEDATA', & ! fortran variable
378  'RECARRAY IVISCSPEC DVISCDC CVISCREF MODELNAME AUXSPECIESNAME', & ! type
379  'NVISCSPECIES', & ! shape
380  '', & ! longname
381  .true., & ! required
382  .false., & ! developmode
383  .false., & ! multi-record
384  .false., & ! preserve case
385  .false., & ! layered
386  .false. & ! timeseries
387  )
388 
389  type(inputparamdefinitiontype), parameter :: &
390  gwf_vsc_aggregate_definitions(*) = &
391  [ &
392  gwfvsc_packagedata &
393  ]
394 
395  type(inputblockdefinitiontype), parameter :: &
396  gwf_vsc_block_definitions(*) = &
397  [ &
398  inputblockdefinitiontype( &
399  'OPTIONS', & ! blockname
400  .false., & ! required
401  .false., & ! aggregate
402  .false. & ! block_variable
403  ), &
404  inputblockdefinitiontype( &
405  'DIMENSIONS', & ! blockname
406  .true., & ! required
407  .false., & ! aggregate
408  .false. & ! block_variable
409  ), &
410  inputblockdefinitiontype( &
411  'PACKAGEDATA', & ! blockname
412  .true., & ! required
413  .true., & ! aggregate
414  .false. & ! block_variable
415  ) &
416  ]
417 
418 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:156
gwfvscinputmodule::gwfvsc_cviscref
type(inputparamdefinitiontype), parameter gwfvsc_cviscref
Definition: gwf-vscidm.f90:292
gwfvscinputmodule::gwfvsc_thermal_a2
type(inputparamdefinitiontype), parameter gwfvsc_thermal_a2
Definition: gwf-vscidm.f90:99
gwfvscinputmodule::gwfvsc_dviscdc
type(inputparamdefinitiontype), parameter gwfvsc_dviscdc
Definition: gwf-vscidm.f90:270
gwfvscinputmodule::gwfvsc_nviscspecies
type(inputparamdefinitiontype), parameter gwfvsc_nviscspecies
Definition: gwf-vscidm.f90:232
gwfvscinputmodule::gwfvsc_modelname
type(inputparamdefinitiontype), parameter gwfvsc_modelname
Definition: gwf-vscidm.f90:311
gwfvscinputmodule::gwfvsc_thermal_a4
type(inputparamdefinitiontype), parameter gwfvsc_thermal_a4
Definition: gwf-vscidm.f90:137
gwfvscinputmodule::gwfvsc_viscosityfile
type(inputparamdefinitiontype), parameter gwfvsc_viscosityfile
Definition: gwf-vscidm.f90:213
gwfvscinputmodule::gwf_vsc_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_vsc_param_definitions
Definition: gwf-vscidm.f90:349
gwfvscinputmodule::gwfvsc_auxspeciesname
type(inputparamdefinitiontype), parameter gwfvsc_auxspeciesname
Definition: gwf-vscidm.f90:330
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:118
gwfvscinputmodule::gwfvsc_fileout
type(inputparamdefinitiontype), parameter gwfvsc_fileout
Definition: gwf-vscidm.f90:194
gwfvscinputmodule::gwfvsc_viscosity
type(inputparamdefinitiontype), parameter gwfvsc_viscosity
Definition: gwf-vscidm.f90:175
gwfvscinputmodule::gwf_vsc_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public gwf_vsc_aggregate_definitions
Definition: gwf-vscidm.f90:389
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:251
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:395
gwfvscinputmodule::gwfvsc_packagedata
type(inputparamdefinitiontype), parameter gwfvsc_packagedata
Definition: gwf-vscidm.f90:370
inputdefinitionmodule
Input definition module.
Definition: InputDefinition.f90:7
inputdefinitionmodule::inputblockdefinitiontype
Input block definition. Describes an input block.
Definition: InputDefinition.f90:36
inputdefinitionmodule::inputparamdefinitiontype
Input parameter definition. Describes an input parameter.
Definition: InputDefinition.f90:18