Changeset 1167

Timestamp:

06/12/17 18:01:26 (7 years ago)

Author:

oabramkina

Message:

Two server levels: minor corrections to make registries functioning again.

Tested on curie with toy_cmip6.

File:

• XIOS/dev/dev_olga/src/server.cpp (modified) (3 diffs)

XIOS/dev/dev_olga/src/server.cpp

@@ -219 +219 @@
         // Create server intraComm
         if (!CXios::usingServer2)
+        {
           MPI_Comm_dup(localComm, &intraComm);
+          MPI_Comm_rank(localComm,&rank_) ;
+        }
         else
         {
@@ -659 +662 @@
      int CServer::getRank()
      {
-       return rank_;
+       int rank;
+       MPI_Comm_rank(intraComm,&rank);
+       return rank;
      }
 
@@ -682 +687 @@
         ++numDigit;
       }
-      id = getRank();
+      id = rank_; //getRank();
 
       fileNameClient << fileName << "_" << std::setfill('0') << std::setw(numDigit) << id << ext;