1 0 GfsOcean GfsBox GfsGEdge {} {
Time { dtmax = 1e-2 end = 28.5 }
Refine 6
ApproxProjectionParams { tolerance = 1e-6 nitermax = 10 }
AdvectionParams { scheme = none }
Init {} { P = 1e-2*x }
Solid bath.gts
RefineSurface 7 bath.gts { twod = 1 }
PhysicalParams { g = 19.62 }
OutputPPM { start = 2 } { convert ppm:- p.eps } { v = P min = -5e-3 max = 5e-3 }
OutputScalarSum { istep = 10 } k { v = Velocity2 }
EventScript { start = end } {
gnuplot <<EOF
set term postscript eps color lw 3 solid 20
set output 'k.eps'
set xlabel 'Time'
set ylabel 'Kinetic energy'
set grid
plot 'k' u 3:5 w l t ''
EOF
if awk '{if ($5 > 6e-12) exit (1);}' < k ; then
return 0;
else
return $GFS_STOP;
fi
}
}
GfsBox {
front = Boundary
}