-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcoup_oas.tcl
executable file
·344 lines (299 loc) · 14.8 KB
/
coup_oas.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
# Import the ParFlow TCL package
#
lappend auto_path $env(PARFLOW_DIR)/bin
package require parflow
namespace import Parflow::*
#
#For normal soils, need to fix near saturation CPS
set VG_points 2000000
set VG_pmin -23000.0
#set VG_interpolation_method "Spline"
#
#--------------------------------------------------------
pfset FileVersion 4
#-------------------------------------------------------
pfset Process.Topology.P __nprocx_pfl_bldsva__
pfset Process.Topology.Q __nprocy_pfl_bldsva__
pfset Process.Topology.R 1
# THE COMPUTATIONAL GRID IS A (BOX) THT CONTAINS THE MAIN PROBLEM. THIS CAN EITHER BE EXACTLY THE SIZE
# OF THE PROBLEM OR LARGER. A BOX GEOMETRY IN PARFLOW CAN BE ASIGNED BY EITHER SPECIFYING COORDINATES FOR
# TWO CORNERS OF THE BOX OR GRID SIZE AND NUMBER OF CELLS IN X,Y, AND Z.
#------------------------------------------------------------------------
# Computational Grid: It Defines The Grid Resolutions within The Domain
#------------------------------------------------------------------------
pfset ComputationalGrid.Lower.X 0.0
pfset ComputationalGrid.Lower.Y 0.0
pfset ComputationalGrid.Lower.Z -30.
pfset ComputationalGrid.DX 2000.
pfset ComputationalGrid.DY 2000.
pfset ComputationalGrid.DZ 1.0
pfset ComputationalGrid.NX __ngpflx_bldsva__
pfset ComputationalGrid.NY __ngpfly_bldsva__
pfset ComputationalGrid.NZ 30
# DOMAIN GEOMETRY IS THE (EXACTLY) OUTER DOMAIN OR BOUNDARY OF THE MODEL PROBLEM. IT HAS TO BE CONTAINED WITHIN THE COMPUTATIONAL GRID (i.e.
# OR HAS THE SAME SIZE OF IT). THE DOMAIN GEOMETRY COULD BE A BOX OR IT COULD BE A SOLID-FILE.
# BOUNDARY CONDITIONS ARE ASSIGNED TO THE DOMAIN SIDES WITH SOMETHING CALLED (PATCHES) IN THE TCL-SCRIPT.
# A BOX HAS SIX (6) SIDES AND (6) PATCHES WHILE A SOLID-FILE CAN HAVE ANY NUMBER OF PATCHES.
#-----------------------------------------------------------------------------
# Domain
#-----------------------------------------------------------------------------
pfset Domain.GeomName domain
#---------------------------------------------------------
# Domain Geometry Input
#---------------------------------------------------------
pfset GeomInput.Names "domaininput"
pfset GeomInput.domaininput.InputType Box
pfset GeomInput.domaininput.GeomName domain
pfset Geom.domain.Lower.X [pfget ComputationalGrid.Lower.X]
pfset Geom.domain.Lower.Y [pfget ComputationalGrid.Lower.Y]
pfset Geom.domain.Lower.Z [pfget ComputationalGrid.Lower.Z]
set DX [pfget ComputationalGrid.DX]
set DY [pfget ComputationalGrid.DY]
set NX [pfget ComputationalGrid.NX]
set NY [pfget ComputationalGrid.NY]
pfset Geom.domain.Upper.X [expr $NX*$DX]
pfset Geom.domain.Upper.Y [expr $NY*$DY]
pfset Geom.domain.Upper.Z 0.0
pfset Geom.domain.Patches "x-lower x-upper y-lower y-upper z-lower z-upper"
#-----------------------------------------------------------------------------
# VARIABLE dz ASSIGNMENTS
#-----------------------------------------------------------------------------
pfset Solver.Nonlinear.VariableDz True
pfset dzScale.GeomNames domain
pfset dzScale.Type nzList
pfset dzScale.nzListNumber [pfget ComputationalGrid.NZ]
pfset Cell.0.dzScale.Value 10
pfset Cell.1.dzScale.Value 7.5
pfset Cell.2.dzScale.Value 7.5
pfset Cell.3.dzScale.Value 5
pfset Cell.4.dzScale.Value 5
pfset Cell.5.dzScale.Value 5
pfset Cell.6.dzScale.Value 2
pfset Cell.7.dzScale.Value 2
pfset Cell.8.dzScale.Value 2
pfset Cell.9.dzScale.Value 2
pfset Cell.10.dzScale.Value 1.14
pfset Cell.11.dzScale.Value 1.04
pfset Cell.12.dzScale.Value 0.94
pfset Cell.13.dzScale.Value 0.84
pfset Cell.14.dzScale.Value 0.74
pfset Cell.15.dzScale.Value 0.64
pfset Cell.16.dzScale.Value 0.54
pfset Cell.17.dzScale.Value 0.44
pfset Cell.18.dzScale.Value 0.4
pfset Cell.19.dzScale.Value 0.36
pfset Cell.20.dzScale.Value 0.32
pfset Cell.21.dzScale.Value 0.28
pfset Cell.22.dzScale.Value 0.24
pfset Cell.23.dzScale.Value 0.2
pfset Cell.24.dzScale.Value 0.16
pfset Cell.25.dzScale.Value 0.12
pfset Cell.26.dzScale.Value 0.08
pfset Cell.27.dzScale.Value 0.06
pfset Cell.28.dzScale.Value 0.04
pfset Cell.29.dzScale.Value 0.02
# TIME INFORMATION &
# TIME SETUP
#-----------------------------------------------------------------------------
# Setup timing info
#-----------------------------------------------------------------------------
pfset TimingInfo.BaseUnit __base_pfl__
pfset TimingInfo.StartCount __start_cnt_pfl__
pfset TimingInfo.StartTime 0.0
pfset TimingInfo.StopTime __stop_pfl_bldsva__
pfset TimeStep.Type Constant
pfset TimeStep.Value __dt_pfl_bldsva__
pfset TimingInfo.DumpInterval __dump_pfl_interval__
#-----------------------------------------------------------------------------
# Time Cycles
#-----------------------------------------------------------------------------
pfset Cycle.Names "constant"
pfset Cycle.constant.Names "alltime"
pfset Cycle.constant.alltime.Length 1
pfset Cycle.constant.Repeat -1
# HYDROLOGICAL PARAMETERS
#Schaap and Leiz (1998), Soil Science
#sandy loam
# SETUP AND VALUES
#-----------------------------------------------------------------------------
# Perm
#-----------------------------------------------------------------------------
pfset Geom.Perm.Names "domain"
pfset Geom.domain.Perm.Type Constant
pfset Geom.domain.Perm.Value 0.0141
pfset Perm.TensorType TensorByGeom
pfset Geom.Perm.TensorByGeom.Names "domain"
pfset Geom.domain.Perm.TensorValX 1.0
pfset Geom.domain.Perm.TensorValY 1.0
pfset Geom.domain.Perm.TensorValZ 1.0
#-----------------------------------------------------------------------------
# Specific Storage
#-----------------------------------------------------------------------------
pfset SpecificStorage.Type Constant
pfset SpecificStorage.GeomNames "domain"
pfset Geom.domain.SpecificStorage.Value 1.0e-4
#-----------------------------------------------------------------------------
# Phases
#-----------------------------------------------------------------------------
pfset Phase.Names "water"
pfset Phase.water.Density.Type Constant
pfset Phase.water.Density.Value 1.0
pfset Phase.water.Viscosity.Type Constant
pfset Phase.water.Viscosity.Value 1.0
#-----------------------------------------------------------------------------
# Gravity
#-----------------------------------------------------------------------------
pfset Gravity 1.0
#-----------------------------------------------------------------------------
# Contaminants
#-----------------------------------------------------------------------------
pfset Contaminants.Names ""
#-----------------------------------------------------------------------------
# Retardation
#-----------------------------------------------------------------------------
pfset Geom.Retardation.GeomNames ""
#-----------------------------------------------------------------------------
# Porosity
#-----------------------------------------------------------------------------
pfset Geom.Porosity.GeomNames domain
pfset Geom.domain.Porosity.Type Constant
pfset Geom.domain.Porosity.Value 0.389
#-----------------------------------------------------------------------------
# Relative Permeability
#-----------------------------------------------------------------------------
pfset Phase.RelPerm.Type VanGenuchten
pfset Phase.RelPerm.GeomNames "domain"
pfset Geom.domain.RelPerm.Alpha 2.69
pfset Geom.domain.RelPerm.N 1.41
pfset Geom.domain.RelPerm.NumSamplePoints $VG_points
pfset Geom.domain.RelPerm.MinPressureHead $VG_pmin
#---------------------------------------------------------
# Saturation
#---------------------------------------------------------
pfset Phase.Saturation.Type VanGenuchten
pfset Phase.Saturation.GeomNames domain
pfset Geom.domain.Saturation.Alpha 2.69
pfset Geom.domain.Saturation.N 1.41
pfset Geom.domain.Saturation.SRes 0.08
pfset Geom.domain.Saturation.SSat 1.0
#-----------------------------------------------------------------------------
# Wells
#-----------------------------------------------------------------------------
pfset Wells.Names ""
#-----------------------------------------------------------------------------
# Boundary Conditions: Pressure
#-----------------------------------------------------------------------------
pfset Geom.domain.Patches "x-lower x-upper y-lower y-upper z-lower z-upper"
pfset BCPressure.PatchNames [pfget Geom.domain.Patches]
pfset Patch.x-lower.BCPressure.Type FluxConst
pfset Patch.x-lower.BCPressure.Cycle "constant"
pfset Patch.x-lower.BCPressure.alltime.Value 0.0
pfset Patch.y-lower.BCPressure.Type FluxConst
pfset Patch.y-lower.BCPressure.Cycle "constant"
pfset Patch.y-lower.BCPressure.alltime.Value 0.0
pfset Patch.z-lower.BCPressure.Type FluxConst
pfset Patch.z-lower.BCPressure.Cycle "constant"
pfset Patch.z-lower.BCPressure.alltime.Value 0.0
pfset Patch.x-upper.BCPressure.Type FluxConst
pfset Patch.x-upper.BCPressure.Cycle "constant"
pfset Patch.x-upper.BCPressure.alltime.Value 0.0
pfset Patch.y-upper.BCPressure.Type FluxConst
pfset Patch.y-upper.BCPressure.Cycle "constant"
pfset Patch.y-upper.BCPressure.alltime.Value 0.0
pfset Patch.z-upper.BCPressure.Type OverlandFlow
pfset Patch.z-upper.BCPressure.Cycle "constant"
pfset Patch.z-upper.BCPressure.alltime.Value 0.0
# TOPOGRAPHY & SLOPES IN
# BOTH X- & Y- DIRECTIONS
#---------------------------------------------------------
# Topo slopes in x-direction
#---------------------------------------------------------
pfset TopoSlopesX.Type "Constant"
pfset TopoSlopesX.GeomNames "domain"
pfset TopoSlopesX.Geom.domain.Value 0.0
#---------------------------------------------------------
# Topo slopes in y-direction
#---------------------------------------------------------
pfset TopoSlopesY.Type "Constant"
pfset TopoSlopesY.GeomNames "domain"
pfset TopoSlopesY.Geom.domain.Value 0.00
#---------------------------------------------------------
# Mannings coefficient
#---------------------------------------------------------
pfset Mannings.Type "Constant"
pfset Mannings.GeomNames "domain"
pfset Mannings.Geom.domain.Value 5.52e-6
#---------------------------------------------------------
# Initial conditions: water pressure
#---------------------------------------------------------
pfset ICPressure.Type "PFBFile"
pfset ICPressure.GeomNames "domain"
pfset Geom.domain.ICPressure.FileName "__inifile__"
pfdist "__inifile__"
#for restart purpose
#pfset Geom.domain.ICPressure.FileName "__pfl_ICPpressureFileName__"
#pfset ICPressure.Type HydroStaticPatch
#pfset ICPressure.GeomNames domain
#pfset Geom.domain.ICPressure.Value -5.0
#pfset Geom.domain.ICPressure.RefGeom domain
#pfset Geom.domain.ICPressure.RefPatch z-upper
#-----------------------------------------------------------------------------
# Phase sources:
#-----------------------------------------------------------------------------
pfset PhaseSources.water.Type Constant
pfset PhaseSources.water.GeomNames domain
pfset PhaseSources.water.Geom.domain.Value 0.0
#-----------------------------------------------------------------------------
# Exact solution specification for error calculations
#-----------------------------------------------------------------------------
pfset KnownSolution NoKnownSolution
# Set solver parameters
#-----------------------------------------------------------------------------
pfset Solver Richards
pfset Solver.MaxIter 10000
pfset Solver.TerrainFollowingGrid True
pfset Solver.Nonlinear.MaxIter 100
pfset Solver.Nonlinear.ResidualTol 1e-5
pfset Solver.Nonlinear.EtaChoice Walker1
pfset Solver.Nonlinear.EtaChoice EtaConstant
pfset Solver.Nonlinear.EtaValue 0.001
pfset Solver.Nonlinear.UseJacobian False
pfset Solver.Nonlinear.DerivativeEpsilon 1e-16
pfset Solver.Nonlinear.StepTol 1e-12
pfset Solver.Nonlinear.Globalization LineSearch
pfset Solver.Linear.KrylovDimension 30
pfset Solver.Linear.MaxRestart 2
#
pfset Solver.Linear.Preconditioner MGSemi
pfset Solver.Linear.Preconditioner.MGSemi.MaxIter 1
pfset Solver.Linear.Preconditioner.MGSemi.MaxLevels 10
pfset Solver.PrintSubsurf False
pfset Solver.Drop 1E-20
pfset Solver.AbsTol 1E-12
# Control output
#-------------------------------------------------------------------------------
pfset Solver.PrintSaturation False
pfset Solver.PrintSubsurf False
pfset Solver.PrintPressure False
pfset Solver.PrintSubsurf False
pfset NetCDF.NumStepsPerFile 1
pfset NetCDF.WritePressure True
pfset NetCDF.WriteSaturation True
pfset NetCDF.WriteMannings False
pfset NetCDF.WriteSlopes False
# Set NetCDF.WriteSubsurface and NetCDF.WriteMask to False, as those are coverd
# by Solver.PrintSubsurfData and vanGenuchten parameter are coverd by
# Solver.PrintSubsurfData as well, but not by NetCDf output.
pfset NetCDF.WriteSubsurface False
pfset NetCDF.WriteMask False
pfset NetCDF.WriteDZMultiplier False
pfset NetCDF.WriteEvapTrans False
pfset Solver.WriteSiloSubsurfData False
pfset Solver.WriteSiloPressure False
pfset Solver.WriteSiloSaturation False
pfset Solver.WriteSiloMask False
pfset Solver.WriteCLMBinary False
#-----------------------------------------------------------------------------
# Run and Unload the ParFlow output files
#-----------------------------------------------------------------------------
pfwritedb __pfl_casename__