[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203

Stephane Popinet popinet at users.sf.net
Fri May 15 02:54:19 UTC 2009


The following commit has been merged in the upstream branch:
commit b251949868b7935752031a2cf954940131897b06
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Fri Apr 20 15:35:50 2007 +1000

    Updated wave tests to use implicit surfaces
    
    darcs-hash:20070420053550-d4795-ffe87efa1f4903a42c75f9ee6c78c43fcbb60f14.gz

diff --git a/test/capwave/capwave.gfs b/test/capwave/capwave.gfs
index fb2badb..a23d3f0 100644
--- a/test/capwave/capwave.gfs
+++ b/test/capwave/capwave.gfs
@@ -52,7 +52,7 @@
   VariablePosition {} Y T y
   SourceDiffusion {} U 0.0182571749236
   SourceDiffusion {} V 0.0182571749236
-  InitFraction {} T wave.gts
+  InitFraction {} T (y - 0.01*cos (2.*M_PI*x))
   OutputScalarNorm { step = 3.04290519077e-3 } {
       awk '{printf ("%g %g\n", $3*11.1366559937, $9); fflush(stdout); }' > wave-LEVEL
   } { v = (T > 0. && T < 1. ? Y : 0.) }
diff --git a/test/capwave/capwave.sh b/test/capwave/capwave.sh
index da6628e..2574616 100755
--- a/test/capwave/capwave.sh
+++ b/test/capwave/capwave.sh
@@ -1,19 +1,6 @@
 levels="3 4 5 6"
 
 if ! $donotrun; then
-    if test -f wave.gts; then :
-    else
-	file=`mktemp /tmp/wave.XXXXXX`
-	awk 'BEGIN{
-          print "0.51 -0.51"
-          for (x = 0.51; x >= -0.51; x -= 0.01) 
-            print x " " 0.01*cos (2.*3.14159265359*x);
-          print "-0.51 -0.51"
-        }' > $file
-	shapes $file > wave.gts
-	rm -f $file
-    fi
-
     for level in $levels; do
 	if sed "s/LEVEL/$level/g" < $1 | gerris2D -; then
 	    :
diff --git a/test/capwave/convergence.ref b/test/capwave/convergence.ref
index de89be7..4e1f174 100644
--- a/test/capwave/convergence.ref
+++ b/test/capwave/convergence.ref
@@ -1,4 +1,4 @@
-3 0.142727
-4 0.0198798
-5 0.00918059
-6 0.00494779
+3 0.14274
+4 0.0198192
+5 0.00909905
+6 0.00491347
diff --git a/test/capwave/density/convergence.ref b/test/capwave/density/convergence.ref
index 99bbd24..14ceae0 100644
--- a/test/capwave/density/convergence.ref
+++ b/test/capwave/density/convergence.ref
@@ -1,4 +1,4 @@
-3 0.136917
-4 0.0340935
-5 0.00576382
-6 0.00371567
+3 0.136923
+4 0.0340786
+5 0.00570455
+6 0.00368735
diff --git a/test/capwave/density/density.gfs b/test/capwave/density/density.gfs
index f105723..f998828 100644
--- a/test/capwave/density/density.gfs
+++ b/test/capwave/density/density.gfs
@@ -51,7 +51,7 @@
   SourceDiffusion {} U 0.0182571749236
   SourceDiffusion {} V 0.0182571749236
   PhysicalParams { alpha = 1./(T + 0.1*(1. - T)) }
-  InitFraction {} T wave.gts
+  InitFraction {} T (y - 0.01*cos (2.*M_PI*x))
   OutputScalarNorm { step = .00225584983639310905 } {
       awk '{printf ("%g %g\n", $3*15.016663878457, $9); fflush(stdout); }' > wave-LEVEL
   } { v = (T > 0. && T < 1. ? Y : 0.) }
diff --git a/test/capwave/gravity/convergence.ref b/test/capwave/gravity/convergence.ref
index 6c8c913..9d44609 100644
--- a/test/capwave/gravity/convergence.ref
+++ b/test/capwave/gravity/convergence.ref
@@ -1,4 +1,4 @@
-3 0.126979
-4 0.0257422
-5 0.00469298
-6 0.00641083
+3 0.126981
+4 0.0257372
+5 0.00469025
+6 0.00642058
diff --git a/test/capwave/gravity/gravity.gfs b/test/capwave/gravity/gravity.gfs
index e6894e6..107db7e 100644
--- a/test/capwave/gravity/gravity.gfs
+++ b/test/capwave/gravity/gravity.gfs
@@ -56,7 +56,7 @@
   SourceDiffusion {} U 0.0182571749236
   SourceDiffusion {} V 0.0182571749236
   PhysicalParams { alpha = 1./(T + 0.1*(1. - T)) }
-  InitFraction {} T wave.gts
+  InitFraction {} T (y - 0.01*cos (2.*M_PI*x))
   OutputScalarNorm { step = .00225584983639310905 } {
       awk '{printf ("%g %g\n", $3*16.032448313657, $9); fflush(stdout); }' > wave-LEVEL
   } { v = (T > 1e-6 && T < 1. - 1e-6 ? Y : 0.) }

-- 
Gerris Flow Solver



More information about the debian-science-commits mailing list