Changeset 332

Timestamp:

03/22/12 11:10:40 (12 years ago)

Author:

ymipsl

Message:

Bug correction in online mode : MPI_send was send to server without recv so it cause a deadlock on MPIBULL2 mpi library (and mpich based library)

YM

File:

• XIOS/trunk/src/client_ym.cpp (modified) (1 diff)

XIOS/trunk/src/client_ym.cpp

@@ -180 +180 @@
       int rank ;
       int msg=0 ;
-      MPI_Comm_rank(intraComm,&rank) ;  
-      if (rank==0) 
+      if (!CXios::isServer)
       {
-        MPI_Send(&msg,1,MPI_INT,0,0,interComm) ;
+        MPI_Comm_rank(intraComm,&rank) ;  
+        if (rank==0) 
+        {
+          MPI_Send(&msg,1,MPI_INT,0,0,interComm) ;
+        }
       }