Ignore:
Timestamp:
06/13/19 17:41:23 (5 years ago)
Author:
ymipsl
Message:

Fix problem of distribution.
The isDistributed() method for domain and is local to all process, so some deadlock can occur.
YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/node/axis.cpp

    r1639 r1672  
    847847 
    848848      numberWrittenIndexes_[writtenCommSize] = nbWritten; 
    849       if (isDistributed()) 
     849 
     850      bool distributed_glo, distributed=isDistributed() ; 
     851      MPI_Allreduce(&distributed,&distributed_glo, 1, MPI_INT, MPI_LOR, writtenComm) ; 
     852      if (distributed_glo) 
    850853      { 
    851854              
Note: See TracChangeset for help on using the changeset viewer.