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

Stephane Popinet s.popinet at niwa.co.nz
Fri May 15 02:52:51 UTC 2009


The following commit has been merged in the upstream branch:
commit 04220c4b532dafe729286945b082199c9fb3332c
Author: Stephane Popinet <s.popinet at niwa.co.nz>
Date:   Fri Oct 7 14:59:35 2005 +1000

    Variable viscosity needs to be defined on all levels
    
    darcs-hash:20051007045935-fbd8f-b173cacb4599f7570836f7c8bb33f77dadbae523.gz

diff --git a/src/source.c b/src/source.c
index 5d133ff..f9c4072 100644
--- a/src/source.c
+++ b/src/source.c
@@ -412,10 +412,14 @@ static gboolean diffusion_event (GfsEvent * event, GfsSimulation * sim)
 {
   GfsDiffusion * d = GFS_DIFFUSION (event);
 
-  if (d->mu != gfs_function_get_variable (d->val)) {
-    gfs_domain_cell_traverse (GFS_DOMAIN (sim), FTT_PRE_ORDER, FTT_TRAVERSE_LEAFS, -1,
-			      (FttCellTraverseFunc) update_mu, event);
-    gfs_domain_bc (GFS_DOMAIN (sim), FTT_TRAVERSE_LEAFS, -1, d->mu);
+  if (d->mu) {
+    if (d->mu != gfs_function_get_variable (d->val))
+      gfs_domain_cell_traverse (GFS_DOMAIN (sim), FTT_PRE_ORDER, FTT_TRAVERSE_LEAFS, -1,
+				(FttCellTraverseFunc) update_mu, event);
+    gfs_domain_cell_traverse (GFS_DOMAIN (sim),
+			      FTT_POST_ORDER, FTT_TRAVERSE_NON_LEAFS, -1,
+			      (FttCellTraverseFunc) gfs_get_from_below_intensive, d->mu);
+    gfs_domain_bc (GFS_DOMAIN (sim), FTT_TRAVERSE_ALL, -1, d->mu);
     return TRUE;
   }
   return FALSE;

-- 
Gerris Flow Solver



More information about the debian-science-commits mailing list