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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 5ddb725385e809f8dc9b66e1f639f47047d08730
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Mon Jul 27 09:03:55 2009 +1000

    Fix for incorrect maxtag MPI value
    
    darcs-hash:20090726230355-d4795-f86e00dd14d24e4471d7bfce5471ddb6b0867bb7.gz

diff --git a/src/mpi_boundary.c b/src/mpi_boundary.c
index ddd0379..2deefd1 100644
--- a/src/mpi_boundary.c
+++ b/src/mpi_boundary.c
@@ -114,7 +114,6 @@ static void receive (GfsBoundary * bb,
     return;
 
 #ifdef PROFILE_MPI
-  GfsDomain * domain = gfs_box_domain (bb->box);
   gdouble start, end;
 
   start = MPI_Wtime ();
@@ -287,6 +286,8 @@ GfsBoundaryMpi * gfs_boundary_mpi_new (GfsBoundaryClass * klass,
 				       gint id)
 {
   GfsBoundaryMpi * boundary;
+  boundary = GFS_BOUNDARY_MPI (gfs_boundary_periodic_new (klass, box, d, NULL));
+  boundary->process = process;
 #ifdef HAVE_MPI
   int comm_size;
   MPI_Comm_size (MPI_COMM_WORLD, &comm_size);
@@ -296,8 +297,6 @@ GfsBoundaryMpi * gfs_boundary_mpi_new (GfsBoundaryClass * klass,
     g_warning ("GfsBoundaryMpi id (%d) is larger than the maximum MPI tag value\n"
 	       "allowed on this system (%d)", id, tag_shift);
 #endif /* HAVE_MPI */
-  boundary = GFS_BOUNDARY_MPI (gfs_boundary_periodic_new (klass, box, d, NULL));
-  boundary->process = process;
   boundary->id = id;
 
   return boundary;

-- 
Gerris Flow Solver