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

[Stephane Popinet]

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