[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203
Stephane Popinet
popinet at users.sf.net
Fri May 15 02:53:49 UTC 2009
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
More information about the debian-science-commits
mailing list