-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathLW_SC.tcl
executable file
·495 lines (375 loc) · 17.7 KB
/
LW_SC.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
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
# Import the ParFlow TCL package
#
lappend auto_path $env(PARFLOW_DIR)/bin
package require parflow
namespace import Parflow::*
#set stopt 8760
set stopt 100
puts "Total Runtime : $stopt"
set sig_digits 8
proc compareFile {file1 file2 message sig_digits} {
if [file exists $file1 ] {
if [file exists $file2] {
puts "Loading $file1"
set correct [pfload $file1]
puts "Loading $file2"
set new [pfload $file2]
puts "$new $correct"
set diff [pfmdiff $new $correct $sig_digits]
puts $diff
if {[string length $diff] != 0 } {
set mSigDigs [lindex $diff 0]
set maxAbsDiff [lindex $diff 1]
set i [lindex $mSigDigs 0]
set j [lindex $mSigDigs 1]
set k [lindex $mSigDigs 2]
puts "FAILED : $message"
puts [format "\tMinimum significant digits at (% 3d, % 3d, % 3d) = %2d"\
$i $j $k [lindex $mSigDigs 3]]
puts [format "\tCorrect value %e" [pfgetelt $correct $i $j $k]]
puts [format "\tComputed value %e" [pfgetelt $new $i $j $k]]
set elt_diff [expr abs([pfgetelt $correct $i $j $k] - [pfgetelt $new $i $j $k])]
puts [format "\tDifference %e" $elt_diff]
puts [format "\tMaximum absolute difference = %e" $maxAbsDiff]
return 0
} {
return 1
}
pfdelete $correct
pfdelete $new
} {
puts "FAILED : regression check output file <$file2> does not exist"
}
} {
puts "FAILED : output file <$file1> not created"
return 0
}
}
#file copy -force "../narr_1hr.txt" .
#file copy -force "../LW_Loam_SU.out.press.00006.pfb" .
#file copy -force "../stomataSA.rst.00000.0" .
#-----------------------------------------------------------------------------
# File input version number
#-----------------------------------------------------------------------------
pfset FileVersion 4
#-----------------------------------------------------------------------------
# Process Topology
#-----------------------------------------------------------------------------
#pfset Process.Topology.P [lindex $argv 0]
#pfset Process.Topology.Q [lindex $argv 1]
#pfset Process.Topology.R [lindex $argv 2]
pfset Process.Topology.P 1
pfset Process.Topology.Q 1
pfset Process.Topology.R 1
#-----------------------------------------------------------------------------
# Computational Grid
#-----------------------------------------------------------------------------
pfset ComputationalGrid.Lower.X 0.0
pfset ComputationalGrid.Lower.Y 0.0
pfset ComputationalGrid.Lower.Z 0.0
pfset ComputationalGrid.DX 2.0
pfset ComputationalGrid.DY 2.0
pfset ComputationalGrid.DZ 0.1
pfset ComputationalGrid.NX 1
pfset ComputationalGrid.NY 1
pfset ComputationalGrid.NZ 100
set nx [pfget ComputationalGrid.NX]
set dx [pfget ComputationalGrid.DX]
set ny [pfget ComputationalGrid.NY]
set dy [pfget ComputationalGrid.DY]
set nz [pfget ComputationalGrid.NZ]
set dz [pfget ComputationalGrid.DZ]
#-----------------------------------------------------------------------------
# The Names of the GeomInputs
#-----------------------------------------------------------------------------
pfset GeomInput.Names "domain_input"
#-----------------------------------------------------------------------------
# Domain Geometry Input
#-----------------------------------------------------------------------------
pfset GeomInput.domain_input.InputType Box
pfset GeomInput.domain_input.GeomName domain
#-----------------------------------------------------------------------------
# Domain Geometry
#-----------------------------------------------------------------------------
pfset Geom.domain.Lower.X 0.0
pfset Geom.domain.Lower.Y 0.0
pfset Geom.domain.Lower.Z 0.0
pfset Geom.domain.Upper.X [expr ($nx * $dx)]
pfset Geom.domain.Upper.Y [expr ($ny * $dy)]
pfset Geom.domain.Upper.Z [expr ($nz * $dz)]
pfset Geom.domain.Patches "x-lower x-upper y-lower y-upper z-lower z-upper"
#-----------------------------------------------------------------------------
# Perm
#-----------------------------------------------------------------------------
pfset Geom.Perm.Names "domain"
pfset Geom.domain.Perm.Type Constant
pfset Geom.domain.Perm.Value 0.04465
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
#-----------------------------------------------------------------------------
# specific storage does not figure into the impes (fully sat) case but we still
# need a key for it
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
#-----------------------------------------------------------------------------
# Contaminants
#-----------------------------------------------------------------------------
pfset Contaminants.Names ""
#-----------------------------------------------------------------------------
# Gravity
#-----------------------------------------------------------------------------
pfset Gravity 1.0
#-----------------------------------------------------------------------------
# Setup timing info
#-----------------------------------------------------------------------------
pfset TimingInfo.BaseUnit 1.0
pfset TimingInfo.StartCount 0
pfset TimingInfo.StartTime 0.0
pfset TimingInfo.StopTime $stopt
pfset TimingInfo.DumpInterval 1.0
pfset TimeStep.Type Constant
# pfset TimeStep.Value 1.0
#-----------------------------------------------------------------------------
# Porosity
#-----------------------------------------------------------------------------
pfset Geom.Porosity.GeomNames domain
pfset Geom.domain.Porosity.Type Constant
pfset Geom.domain.Porosity.Value 0.5
#-----------------------------------------------------------------------------
# Domain
#-----------------------------------------------------------------------------
pfset Domain.GeomName domain
#-----------------------------------------------------------------------------
# Mobility
#-----------------------------------------------------------------------------
pfset Phase.water.Mobility.Type Constant
pfset Phase.water.Mobility.Value 1.0
#-----------------------------------------------------------------------------
# Relative Permeability
#-----------------------------------------------------------------------------
pfset Phase.RelPerm.Type VanGenuchten
pfset Phase.RelPerm.GeomNames "domain"
pfset Geom.domain.RelPerm.Alpha 2.0
pfset Geom.domain.RelPerm.N 2.0
#---------------------------------------------------------
# Saturation
#---------------------------------------------------------
pfset Phase.Saturation.Type VanGenuchten
pfset Phase.Saturation.GeomNames "domain"
pfset Geom.domain.Saturation.Alpha 2.0
pfset Geom.domain.Saturation.N 3.0
pfset Geom.domain.Saturation.SRes 0.2
pfset Geom.domain.Saturation.SSat 1.0
#-----------------------------------------------------------------------------
# Wells
#-----------------------------------------------------------------------------
pfset Wells.Names ""
#-----------------------------------------------------------------------------
# Time Cycles
#-----------------------------------------------------------------------------
pfset Cycle.Names constant
pfset Cycle.constant.Names "alltime"
pfset Cycle.constant.alltime.Length 1
pfset Cycle.constant.Repeat -1
#-----------------------------------------------------------------------------
# Boundary Conditions: Pressure
#-----------------------------------------------------------------------------
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.Type DirEquilRefPatch
pfset Patch.z-lower.BCPressure.Cycle "constant"
pfset Patch.z-lower.BCPressure.alltime.Value -0.00
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.Type FluxConst
pfset Patch.z-upper.BCPressure.Cycle "constant"
pfset Patch.z-upper.BCPressure.alltime.Value 0.0
#---------------------------------------------------------
# Topo slopes in x-direction
#---------------------------------------------------------
pfset TopoSlopesX.Type "Constant"
pfset TopoSlopesX.GeomNames "domain"
pfset TopoSlopesX.Geom.domain.Value 0.005
#---------------------------------------------------------
# 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 1e-6
#-----------------------------------------------------------------------------
# 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 90000
pfset Solver.Nonlinear.MaxIter 100
pfset Solver.Nonlinear.ResidualTol 1e-5
pfset Solver.Nonlinear.EtaChoice Walker1
pfset Solver.Nonlinear.EtaValue 0.01
pfset Solver.Nonlinear.UseJacobian True
pfset Solver.Nonlinear.DerivativeEpsilon 1e-12
pfset Solver.Nonlinear.StepTol 1e-30
pfset Solver.Nonlinear.Globalization LineSearch
pfset Solver.Linear.KrylovDimension 100
pfset Solver.Linear.MaxRestarts 5
pfset Solver.Linear.Preconditioner.PCMatrixType FullJacobian
pfset Solver.Linear.Preconditioner PFMG
#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-9
pfset Solver.LSM CLM
pfset Solver.WriteSiloCLM True
pfset Solver.CLM.MetForcing 1D
pfset Solver.CLM.MetFileName forcing_1.txt
pfset Solver.CLM.MetFilePath ./
#pfset Solver.TerrainFollowingGrid True
pfset Solver.CLM.EvapBeta Linear
#Writing output: PFB only no SILO
pfset Solver.PrintSubsurfData True
pfset Solver.PrintPressure False
pfset Solver.PrintSaturation True
pfset Solver.PrintCLM True
pfset Solver.PrintMask True
pfset Solver.PrintSpecificStorage True
#pfset Solver.WriteSiloSpecificStorage True
pfset Solver.WriteSiloMannings False
pfset Solver.WriteSiloMask False
pfset Solver.WriteSiloSlopes False
#pfset Solver.WriteSiloSubsurfData True
#pfset Solver.WriteSiloPressure True
pfset Solver.WriteSiloSaturation False
#pfset Solver.WriteSiloEvapTrans True
#pfset Solver.WriteSiloEvapTransSum True
#pfset Solver.WriteSiloOverlandSum True
#pfset Solver.WriteSiloCLM True
#pfset Solver.WriteSiloOverlandBCFlux True
pfset Solver.PrintLSMSink False
pfset Solver.CLM.CLMDumpInterval 1
pfset Solver.CLM.CLMFileDir "output/"
pfset Solver.CLM.BinaryOutDir False
pfset Solver.CLM.IstepStart 1
pfset Solver.WriteCLMBinary False
pfset Solver.WriteSiloCLM False
pfset Solver.CLM.WriteLogs False
pfset Solver.CLM.WriteLastRST True
pfset Solver.CLM.DailyRST False
pfset Solver.CLM.SingleFile True
pfset Solver.CLM.EvapBeta Linear
pfset Solver.CLM.VegWaterStress Saturation
pfset Solver.CLM.ResSat 0.2
pfset Solver.CLM.WiltingPoint 0.2
pfset Solver.CLM.FieldCapacity 1.00
pfset Solver.CLM.IrrigationType none
# Initial conditions: water pressure
#---------------------------------------------------------
pfset ICPressure.Type HydroStaticPatch
pfset ICPressure.GeomNames domain
pfset Geom.domain.ICPressure.Value -1.0
pfset Geom.domain.ICPressure.RefGeom domain
pfset Geom.domain.ICPressure.RefPatch z-upper
#pfset ICPressure.Type PFBFile
#pfset ICPressure.GeomNames domain
#pfset Geom.domain.ICPressure.FileName "LW_Loam_SU.out.press.00006.pfb"
#pfdist "LW_Loam_SU.out.press.00006.pfb"
set reuseValues {1 10}
set runname reuse
foreach reuseCount $reuseValues {
pfset Solver.CLM.ReuseCount $reuseCount
pfset TimeStep.Value [expr 1.0 / $reuseCount]
#-----------------------------------------------------------------------------
# Run and Unload the ParFlow output files
#-----------------------------------------------------------------------------
set dirname [format "LW_SC_ts_%2.2f" [pfget TimeStep.Value]]
puts "Running : $dirname"
pfrun $runname
pfundist $runname
for {set k 1} {$k <=$stopt} {incr k} {
set outfile1 [format "%s.out.clm_output.%05d.C.pfb" $runname $k]
pfundist $outfile1
}
exec rm -fr $dirname
exec mkdir -p $dirname
exec bash -c "mv $runname?* $dirname"
exec mv CLM.out.clm.log clm.rst.00000.0 $dirname
}
if 1 {
puts "Writing : swe.csv"
set sweFile [open "swe.csv" w]
puts -nonewline $sweFile "Time"
foreach reuseCount $reuseValues {
set timeStep [expr 1.0 / $reuseCount]
puts -nonewline $sweFile [format ",%e" $timeStep]
}
puts $sweFile ""
for {set k 1} {$k <=$stopt} {incr k} {
foreach reuseCount $reuseValues {
set timeStep [expr 1.0 / $reuseCount]
set dirname1 [format "LW_SC_ts_%2.2f" $timeStep]
set file($reuseCount) [format "%s/%s.out.clm_output.%05d.C.pfb" $dirname1 $runname $k]
set ds($reuseCount) [pfload $file($reuseCount)]
}
puts -nonewline $sweFile [format "%d" $k]
foreach reuseCount $reuseValues {
puts -nonewline $sweFile [format ",%e" [pfgetelt $ds($reuseCount) 0 0 10]]
}
puts $sweFile ""
foreach reuseCount $reuseValues {
pfdelete $ds($reuseCount)
}
}
close $sweFile
}
# This currently only works for 2 reuse values
if 0 {
for {set k 1} {$k <=$stopt} {incr k} {
set timeStep [expr 1.0 / [lindex $reuseValues 0]]
set dirname1 [format "LW_SC_ts_%2.2f" $timeStep]
set file1 [format "%s/%s.out.clm_output.%05d.C.pfb" $dirname1 $runname $k]
set timeStep [expr 1.0 / [lindex $reuseValues 1]]
set dirname2 [format "LW_SC_ts_%2.2f" $timeStep]
set file2 [format "%s/%s.out.clm_output.%05d.C.pfb" $dirname2 $runname $k]
compareFile $file1 $file2 "CLM result is differs" $sig_digits
}
}