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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit acb2a9fab48c41db4a5dd6ac04a292ad4a6db4b0
Author: Stephane Popinet <s.popinet at niwa.co.nz>
Date:   Wed Sep 14 12:34:25 2005 +1000

    Cosmetics
    
    darcs-hash:20050914023425-fbd8f-47b37886be17c6eb3f903a4cdeac7442b5ef7f1c.gz

diff --git a/src/fluid.c b/src/fluid.c
index 0031305..efa30fb 100644
--- a/src/fluid.c
+++ b/src/fluid.c
@@ -1205,13 +1205,13 @@ gdouble gfs_cell_dirichlet_value (FttCell * cell,
       return 0.;
 
     v0 = GFS_VARIABLE (cell, v->i);
-    p.x = (s->ca.x - p.x)/size;
-    p.y = (s->ca.y - p.y)/size;
     for (i = 0; i < N_CELLS - 1; i++) {
       a[i] = 0.;
       for (j = 0; j < N_CELLS - 1; j++)
 	a[i] += m[i][j]*(GFS_VARIABLE (n[j + 1], v->i) - v0);
     }
+    p.x = (s->ca.x - p.x)/size;
+    p.y = (s->ca.y - p.y)/size;
 #if FTT_2D
     return (a[0]*p.x + a[1]*p.y + a[2]*p.x*p.y + v0);
 #else /* 3D */

-- 
Gerris Flow Solver