[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203
Stephane Popinet
popinet at users.sf.net
Fri May 15 02:54:28 UTC 2009
The following commit has been merged in the upstream branch:
commit e22444f148db91a7cd529e5fb74c4eab0bff4293
Author: Stephane Popinet <popinet at users.sf.net>
Date: Wed May 23 14:36:26 2007 +1000
Face curvature does not use vof-weighted averaging anymore
darcs-hash:20070523043626-d4795-9c5b69907f8a3bcb90381995de0f511e202f3c33.gz
diff --git a/src/poisson.c b/src/poisson.c
index 33bf290..7c6a6c0 100644
--- a/src/poisson.c
+++ b/src/poisson.c
@@ -471,16 +471,19 @@ static void tension_coeff (FttCellFace * face, gpointer * data)
gdouble v = lambda2[face->d/2]*t->sigma;
GfsFunction * alpha = data[2];
GfsVariable * kappa = GFS_SOURCE_TENSION (data[1])->k;
+ gdouble k1 = GFS_VARIABLE (face->cell, kappa->i);
+ gdouble k2 = GFS_VARIABLE (face->neighbor, kappa->i);
+#if 0
gdouble c1 = GFS_VARIABLE (face->cell, t->c->i);
gdouble c2 = GFS_VARIABLE (face->neighbor, t->c->i);
gdouble w1 = c1*(1. - c1);
gdouble w2 = c2*(1. - c2);
- gdouble k1 = GFS_VARIABLE (face->cell, kappa->i);
- gdouble k2 = GFS_VARIABLE (face->neighbor, kappa->i);
if (w1 + w2 > 0.)
v *= (w1*k1 + w2*k2)/(w1 + w2);
- else {
+ else
+#endif
+ {
if (k1 < G_MAXDOUBLE) {
if (k2 < G_MAXDOUBLE)
v *= (k1 + k2)/2.;
--
Gerris Flow Solver
More information about the debian-science-commits
mailing list