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