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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit fb539ff42677ec317edcbf1a4757dd2896a51262
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Sat Jan 28 09:06:45 2006 +1100

    Bug fix for generic coarse_fine() method for GfsVariable
    
    darcs-hash:20060127220645-d4795-96da7739a0195b148007c8578d3f28f5b4cbd3f6.gz

diff --git a/src/adaptive.c b/src/adaptive.c
index 81d2c56..e246707 100644
--- a/src/adaptive.c
+++ b/src/adaptive.c
@@ -850,10 +850,15 @@ static void fine_cell_cleanup (FttCell * cell, AdaptParams * p)
 
 static void cell_fine_init (FttCell * cell, AdaptParams * p)
 {
+  FttCellChildren child;
+  guint n;
+
   gfs_cell_fine_init (cell, GFS_DOMAIN (p->sim));
-  CELL_COST (cell) = G_MAXDOUBLE;
-  if (!GFS_CELL_IS_BOUNDARY (ftt_cell_parent (cell)))
-    p->nc++;
+  ftt_cell_children (cell, &child);
+  for (n = 0; n < FTT_CELLS; n++)
+    CELL_COST (child.c[n]) = G_MAXDOUBLE;
+  if (!GFS_CELL_IS_BOUNDARY (cell))
+    p->nc += FTT_CELLS;
 }
 
 /**

-- 
Gerris Flow Solver