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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 12f94c6bd3a997c956035b9e81b50c59d8c5beff
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Fri Mar 24 11:13:50 2006 +1100

    Implicit Coriolis should now work with the Navier-Stokes solver
    
    darcs-hash:20060324001350-d4795-32cbb50335e73dec50067b55d1897c5441030b05.gz

diff --git a/src/simulation.c b/src/simulation.c
index c6282f2..5bfbe84 100644
--- a/src/simulation.c
+++ b/src/simulation.c
@@ -518,6 +518,15 @@ static void simulation_run (GfsSimulation * sim)
 					       g,
 					       sim->physical_params.alpha);
 
+    if (gfs_has_source_coriolis (domain)) {
+      gfs_poisson_coefficients (domain, sim->physical_params.alpha);
+      gfs_correct_normal_velocities (domain, 2, p, g, 0., NULL);
+      gfs_correct_centered_velocities (domain, 2, g, sim->advection_params.dt);
+      gfs_source_coriolis_implicit (domain, sim->advection_params.dt);
+      gfs_correct_normal_velocities (domain, 2, p, g, 0., NULL);
+      gfs_correct_centered_velocities (domain, 2, g, -sim->advection_params.dt);
+    }
+
     gfs_simulation_adapt (sim, NULL);
     gfs_approximate_projection (domain,
    				&sim->approx_projection_params, 

-- 
Gerris Flow Solver