Changeset 332


Ignore:
Timestamp:
03/22/12 11:10:40 (9 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:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/client_ym.cpp

    r314 r332  
    180180      int rank ; 
    181181      int msg=0 ; 
    182       MPI_Comm_rank(intraComm,&rank) ;   
    183       if (rank==0)  
     182      if (!CXios::isServer) 
    184183      { 
    185         MPI_Send(&msg,1,MPI_INT,0,0,interComm) ; 
     184        MPI_Comm_rank(intraComm,&rank) ;   
     185        if (rank==0)  
     186        { 
     187          MPI_Send(&msg,1,MPI_INT,0,0,interComm) ; 
     188        } 
    186189      } 
    187190       
Note: See TracChangeset for help on using the changeset viewer.