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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 4589f0cdec4ae2c5163bc03c59e11ddcc0965bb0
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Mon Dec 11 13:03:53 2006 +1100

    Fixed constant for stability constraint of surface tension
    
    darcs-hash:20061211020353-d4795-eec934ef0a5c1d35ae121982d230bbf3038f1ab8.gz

diff --git a/src/tension.c b/src/tension.c
index 6d71062..2c892b6 100644
--- a/src/tension.c
+++ b/src/tension.c
@@ -95,10 +95,10 @@ static gdouble gfs_source_tension_generic_stability (GfsSourceGeneric * s,
   h = ftt_level_size (p.depth);
   if (p.alpha) {
     gdouble rhom = (1./p.amin + 1./p.amax)/2.;
-    return sqrt (rhom*h*h*h/(2.*M_PI*t->sigma));
+    return sqrt (rhom*h*h*h/(M_PI*t->sigma));
   }
   else
-    return sqrt (h*h*h/(2.*M_PI*t->sigma));
+    return sqrt (h*h*h/(M_PI*t->sigma));
 }
 
 static void gfs_source_tension_generic_class_init (GfsSourceGenericClass * klass)

-- 
Gerris Flow Solver