Changeset 1672 for XIOS

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

Location:

XIOS/trunk/src/node

Files:

• axis.cpp (modified) (1 diff)
• domain.cpp (modified) (2 diffs)

XIOS/trunk/src/node/axis.cpp

@@ -847 +847 @@
 
       numberWrittenIndexes_[writtenCommSize] = nbWritten;
-      if (isDistributed())
+
+      bool distributed_glo, distributed=isDistributed() ;
+      MPI_Allreduce(&distributed,&distributed_glo, 1, MPI_INT, MPI_LOR, writtenComm) ;
+      if (distributed_glo)
       {
              

XIOS/trunk/src/node/domain.cpp

@@ -226 +226 @@
       bool distributed =  !((!ni.isEmpty() && (ni == ni_glo) && !nj.isEmpty() && (nj == nj_glo)) ||
               (!i_index.isEmpty() && i_index.numElements() == ni_glo*nj_glo));
+      bool distributed_glo ;
       distributed |= (1 == CContext::getCurrent()->client->clientSize);
 
@@ -2061 +2062 @@
 
       numberWrittenIndexes_[writtenCommSize] = nbWritten;
-      if (isDistributed())
+      bool distributed_glo, distributed=isDistributed() ;
+      MPI_Allreduce(&distributed,&distributed_glo, 1, MPI_INT, MPI_LOR, writtenComm) ;
+      
+      if (distributed_glo)
       {