Changeset 1233

Timestamp:

08/01/17 17:34:55 (7 years ago)

Author:

oabramkina

Message:

Correcting logfile names on client side in case of oasis. Now files are named according to rank in MPI_WORLD_COMM.

File:

• XIOS/dev/XIOS_DEV_CMIP6/src/client.cpp (modified) (3 diffs)

XIOS/dev/XIOS_DEV_CMIP6/src/client.cpp

@@ -154 +154 @@
           if (rank_==0) MPI_Recv(&serverLeader,1, MPI_INT, 0, 0, interComm, &status) ;
           MPI_Bcast(&serverLeader,1,MPI_INT,0,intraComm) ;
-
         }
         else MPI_Comm_dup(intraComm,&interComm) ;
@@ -296 +295 @@
       int numDigit = 0;
       int size = 0;
+      int rank;
       MPI_Comm_size(CXios::globalComm, &size);
       while (size)
@@ -303 +303 @@
       }
 
-      fileNameClient << fileName << "_" << std::setfill('0') << std::setw(numDigit) << getRank() << ext;
+      if (CXios::usingOasis)
+      {
+        MPI_Comm_rank(CXios::globalComm,&rank);
+        fileNameClient << fileName << "_" << std::setfill('0') << std::setw(numDigit) << rank << ext;
+      }
+      else
+        fileNameClient << fileName << "_" << std::setfill('0') << std::setw(numDigit) << getRank() << ext;
+
+
       fb->open(fileNameClient.str().c_str(), std::ios::out);
       if (!fb->is_open())