MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
utl-tvkidm.f90
Go to the documentation of this file.
1 ! ** Do Not Modify! MODFLOW 6 system generated file. **
2 module utltvkinputmodule
3  use constantsmodule, only: lenvarname
4  use inputdefinitionmodule, only: inputparamdefinitiontype, &
5  inputblockdefinitiontype
6  private
7  public utl_tvk_param_definitions
8  public utl_tvk_aggregate_definitions
9  public utl_tvk_block_definitions
10  public utltvkparamfoundtype
11  public utl_tvk_multi_package
12  public utl_tvk_is_advanced
13  public utl_tvk_subpackages
14 
15  type utltvkparamfoundtype
16  logical :: print_input = .false.
17  logical :: ts_filerecord = .false.
18  logical :: ts6 = .false.
19  logical :: filein = .false.
20  logical :: ts6_filename = .false.
21  logical :: cellid = .false.
22  logical :: k_in = .false.
23  logical :: k22_in = .false.
24  logical :: k33_in = .false.
25  end type utltvkparamfoundtype
26 
27  logical :: utl_tvk_multi_package = .false.
28  logical :: utl_tvk_is_advanced = .false.
29 
30  character(len=16), parameter :: &
31  utl_tvk_subpackages(*) = &
32  [ &
33  ' ' &
34  ]
35 
36  type(inputparamdefinitiontype), parameter :: &
37  utltvk_print_input = inputparamdefinitiontype &
38  ( &
39  'UTL', & ! component
40  'TVK', & ! subcomponent
41  'OPTIONS', & ! block
42  'PRINT_INPUT', & ! tag name
43  'PRINT_INPUT', & ! fortran variable
44  'KEYWORD', & ! type
45  '', & ! shape
46  'print input to listing file', & ! longname
47  .false., & ! required
48  .false., & ! developmode
49  .false., & ! multi-record
50  .false., & ! preserve case
51  .false., & ! layered
52  .false. & ! timeseries
53  )
54 
55  type(inputparamdefinitiontype), parameter :: &
56  utltvk_ts_filerecord = inputparamdefinitiontype &
57  ( &
58  'UTL', & ! component
59  'TVK', & ! subcomponent
60  'OPTIONS', & ! block
61  'TS_FILERECORD', & ! tag name
62  'TS_FILERECORD', & ! fortran variable
63  'RECORD TS6 FILEIN TS6_FILENAME', & ! type
64  '', & ! shape
65  '', & ! longname
66  .false., & ! required
67  .false., & ! developmode
68  .false., & ! multi-record
69  .false., & ! preserve case
70  .false., & ! layered
71  .false. & ! timeseries
72  )
73 
74  type(inputparamdefinitiontype), parameter :: &
75  utltvk_ts6 = inputparamdefinitiontype &
76  ( &
77  'UTL', & ! component
78  'TVK', & ! subcomponent
79  'OPTIONS', & ! block
80  'TS6', & ! tag name
81  'TS6', & ! fortran variable
82  'KEYWORD', & ! type
83  '', & ! shape
84  'head keyword', & ! longname
85  .true., & ! required
86  .false., & ! developmode
87  .true., & ! multi-record
88  .false., & ! preserve case
89  .false., & ! layered
90  .false. & ! timeseries
91  )
92 
93  type(inputparamdefinitiontype), parameter :: &
94  utltvk_filein = inputparamdefinitiontype &
95  ( &
96  'UTL', & ! component
97  'TVK', & ! subcomponent
98  'OPTIONS', & ! block
99  'FILEIN', & ! tag name
100  'FILEIN', & ! fortran variable
101  'KEYWORD', & ! type
102  '', & ! shape
103  'file keyword', & ! longname
104  .true., & ! required
105  .false., & ! developmode
106  .true., & ! multi-record
107  .false., & ! preserve case
108  .false., & ! layered
109  .false. & ! timeseries
110  )
111 
112  type(inputparamdefinitiontype), parameter :: &
113  utltvk_ts6_filename = inputparamdefinitiontype &
114  ( &
115  'UTL', & ! component
116  'TVK', & ! subcomponent
117  'OPTIONS', & ! block
118  'TS6_FILENAME', & ! tag name
119  'TS6_FILENAME', & ! fortran variable
120  'STRING', & ! type
121  '', & ! shape
122  'file name of time series information', & ! longname
123  .true., & ! required
124  .false., & ! developmode
125  .true., & ! multi-record
126  .true., & ! preserve case
127  .false., & ! layered
128  .false. & ! timeseries
129  )
130 
131  type(inputparamdefinitiontype), parameter :: &
132  utltvk_cellid = inputparamdefinitiontype &
133  ( &
134  'UTL', & ! component
135  'TVK', & ! subcomponent
136  'PERIOD', & ! block
137  'CELLID', & ! tag name
138  'CELLID', & ! fortran variable
139  'INTEGER1D', & ! type
140  'NCELLDIM', & ! shape
141  'cell identifier', & ! longname
142  .true., & ! required
143  .false., & ! developmode
144  .true., & ! multi-record
145  .false., & ! preserve case
146  .false., & ! layered
147  .false. & ! timeseries
148  )
149 
150  type(inputparamdefinitiontype), parameter :: &
151  utltvk_k_in = inputparamdefinitiontype &
152  ( &
153  'UTL', & ! component
154  'TVK', & ! subcomponent
155  'PERIOD', & ! block
156  'K', & ! tag name
157  'K_IN', & ! fortran variable
158  'STRING', & ! type
159  '', & ! shape
160  'hydraulic conductivity (L/T)', & ! longname
161  .true., & ! required
162  .false., & ! developmode
163  .true., & ! multi-record
164  .false., & ! preserve case
165  .false., & ! layered
166  .true. & ! timeseries
167  )
168 
169  type(inputparamdefinitiontype), parameter :: &
170  utltvk_k22_in = inputparamdefinitiontype &
171  ( &
172  'UTL', & ! component
173  'TVK', & ! subcomponent
174  'PERIOD', & ! block
175  'K22', & ! tag name
176  'K22_IN', & ! fortran variable
177  'STRING', & ! type
178  '', & ! shape
179  'hydraulic conductivity of second ellipsoid axis (L/T)', & ! longname
180  .true., & ! required
181  .false., & ! developmode
182  .true., & ! multi-record
183  .false., & ! preserve case
184  .false., & ! layered
185  .true. & ! timeseries
186  )
187 
188  type(inputparamdefinitiontype), parameter :: &
189  utltvk_k33_in = inputparamdefinitiontype &
190  ( &
191  'UTL', & ! component
192  'TVK', & ! subcomponent
193  'PERIOD', & ! block
194  'K33', & ! tag name
195  'K33_IN', & ! fortran variable
196  'STRING', & ! type
197  '', & ! shape
198  'hydraulic conductivity of third ellipsoid axis (L/T)', & ! longname
199  .true., & ! required
200  .false., & ! developmode
201  .true., & ! multi-record
202  .false., & ! preserve case
203  .false., & ! layered
204  .true. & ! timeseries
205  )
206 
207  type(inputparamdefinitiontype), parameter :: &
208  utl_tvk_param_definitions(*) = &
209  [ &
210  utltvk_print_input, &
211  utltvk_ts_filerecord, &
212  utltvk_ts6, &
213  utltvk_filein, &
214  utltvk_ts6_filename, &
215  utltvk_cellid, &
216  utltvk_k_in, &
217  utltvk_k22_in, &
218  utltvk_k33_in &
219  ]
220 
221  type(inputparamdefinitiontype), parameter :: &
222  utltvk_perioddata = inputparamdefinitiontype &
223  ( &
224  'UTL', & ! component
225  'TVK', & ! subcomponent
226  'PERIOD', & ! block
227  'PERIODDATA', & ! tag name
228  'PERIODDATA', & ! fortran variable
229  'RECARRAY CELLID TVKSETTING', & ! type
230  '', & ! shape
231  '', & ! longname
232  .true., & ! required
233  .false., & ! developmode
234  .false., & ! multi-record
235  .false., & ! preserve case
236  .false., & ! layered
237  .false. & ! timeseries
238  )
239 
240  type(inputparamdefinitiontype), parameter :: &
241  utltvk_tvksetting = inputparamdefinitiontype &
242  ( &
243  'UTL', & ! component
244  'TVK', & ! subcomponent
245  'PERIOD', & ! block
246  'TVKSETTING', & ! tag name
247  'TVKSETTING', & ! fortran variable
248  'KEYSTRING K K22 K33', & ! type
249  '', & ! shape
250  '', & ! longname
251  .true., & ! required
252  .false., & ! developmode
253  .true., & ! multi-record
254  .false., & ! preserve case
255  .false., & ! layered
256  .false. & ! timeseries
257  )
258 
259  type(inputparamdefinitiontype), parameter :: &
260  utl_tvk_aggregate_definitions(*) = &
261  [ &
262  utltvk_perioddata, &
263  utltvk_tvksetting &
264  ]
265 
266  type(inputblockdefinitiontype), parameter :: &
267  utl_tvk_block_definitions(*) = &
268  [ &
269  inputblockdefinitiontype( &
270  'OPTIONS', & ! blockname
271  .false., & ! required
272  .false., & ! aggregate
273  .false. & ! block_variable
274  ), &
275  inputblockdefinitiontype( &
276  'PERIOD', & ! blockname
277  .true., & ! required
278  .true., & ! aggregate
279  .true. & ! block_variable
280  ) &
281  ]
282 
283 end module utltvkinputmodule
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
inputdefinitionmodule
Input definition module.
Definition: InputDefinition.f90:7
utltvkinputmodule::utltvk_k_in
type(inputparamdefinitiontype), parameter utltvk_k_in
Definition: utl-tvkidm.f90:150
utltvkinputmodule::utltvk_filein
type(inputparamdefinitiontype), parameter utltvk_filein
Definition: utl-tvkidm.f90:93
utltvkinputmodule::utl_tvk_param_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public utl_tvk_param_definitions
Definition: utl-tvkidm.f90:207
utltvkinputmodule::utl_tvk_subpackages
character(len=16), dimension(*), parameter, public utl_tvk_subpackages
Definition: utl-tvkidm.f90:30
utltvkinputmodule::utltvk_perioddata
type(inputparamdefinitiontype), parameter utltvk_perioddata
Definition: utl-tvkidm.f90:221
utltvkinputmodule::utltvk_tvksetting
type(inputparamdefinitiontype), parameter utltvk_tvksetting
Definition: utl-tvkidm.f90:240
utltvkinputmodule::utltvk_ts6_filename
type(inputparamdefinitiontype), parameter utltvk_ts6_filename
Definition: utl-tvkidm.f90:112
utltvkinputmodule::utl_tvk_is_advanced
logical, public utl_tvk_is_advanced
Definition: utl-tvkidm.f90:28
utltvkinputmodule::utltvk_k22_in
type(inputparamdefinitiontype), parameter utltvk_k22_in
Definition: utl-tvkidm.f90:169
utltvkinputmodule::utl_tvk_multi_package
logical, public utl_tvk_multi_package
Definition: utl-tvkidm.f90:27
utltvkinputmodule::utltvk_ts_filerecord
type(inputparamdefinitiontype), parameter utltvk_ts_filerecord
Definition: utl-tvkidm.f90:55
utltvkinputmodule::utltvk_ts6
type(inputparamdefinitiontype), parameter utltvk_ts6
Definition: utl-tvkidm.f90:74
utltvkinputmodule::utltvk_cellid
type(inputparamdefinitiontype), parameter utltvk_cellid
Definition: utl-tvkidm.f90:131
utltvkinputmodule::utltvk_k33_in
type(inputparamdefinitiontype), parameter utltvk_k33_in
Definition: utl-tvkidm.f90:188
utltvkinputmodule::utltvk_print_input
type(inputparamdefinitiontype), parameter utltvk_print_input
Definition: utl-tvkidm.f90:36
utltvkinputmodule::utl_tvk_block_definitions
type(inputblockdefinitiontype), dimension(*), parameter, public utl_tvk_block_definitions
Definition: utl-tvkidm.f90:266
utltvkinputmodule::utl_tvk_aggregate_definitions
type(inputparamdefinitiontype), dimension(*), parameter, public utl_tvk_aggregate_definitions
Definition: utl-tvkidm.f90:259
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