[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203
Stephane Popinet
popinet at users.sf.net
Fri May 15 02:53:24 UTC 2009
The following commit has been merged in the upstream branch:
commit 6d6af630a99ddaa4e35bcb272d908828845822eb
Author: Stephane Popinet <popinet at users.sf.net>
Date: Thu Nov 23 12:12:03 2006 +1100
Aborts if the Poisson solver fails to converge
darcs-hash:20061123011203-d4795-b2e8a02cae6c355eeec3a3539ed246bbd3c0c090.gz
diff --git a/src/timestep.c b/src/timestep.c
index ce0e4fa..c462ff3 100644
--- a/src/timestep.c
+++ b/src/timestep.c
@@ -270,6 +270,8 @@ void gfs_mac_projection (GfsDomain * domain,
apar->dt = dt;
gfs_domain_timer_stop (domain, "mac_projection");
+
+ g_assert (par->residual.infty <= par->tolerance);
}
static void correct (FttCell * cell, gpointer * data)
@@ -433,6 +435,8 @@ void gfs_approximate_projection (GfsDomain * domain,
gfs_correct_centered_velocities (domain, FTT_DIMENSION, g, apar->dt);
gfs_domain_timer_stop (domain, "approximate_projection");
+
+ g_assert (par->residual.infty <= par->tolerance);
}
/**
@@ -532,6 +536,8 @@ void gfs_diffusion (GfsDomain * domain,
}
gts_object_destroy (GTS_OBJECT (res));
+
+ g_assert (par->residual.infty <= par->tolerance);
}
static GfsSourceDiffusion * source_diffusion (GfsVariable * v)
--
Gerris Flow Solver
More information about the debian-science-commits
mailing list