[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