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