Changeset 1638 for XIOS/trunk/src/node/file.cpp

Timestamp:

01/22/19 16:15:03 (5 years ago)

Author:

yushan

Message:

dev on ADA

File:

• XIOS/trunk/src/node/file.cpp (modified) (7 diffs)

XIOS/trunk/src/node/file.cpp

@@ -25 +25 @@
    CFile::CFile(void)
       : CObjectTemplate<CFile>(), CFileAttributes()
-      , vFieldGroup(), data_out(), enabledFields(), fileComm(MPI_COMM_NULL)
+      , vFieldGroup(), data_out(), enabledFields(), fileComm(EP_COMM_NULL)
       , isOpen(false), read_client(0), checkRead(false), allZoneEmpty(false)
    {
@@ -34 +34 @@
    CFile::CFile(const StdString & id)
       : CObjectTemplate<CFile>(id), CFileAttributes()
-      , vFieldGroup(), data_out(), enabledFields(), fileComm(MPI_COMM_NULL)
+      , vFieldGroup(), data_out(), enabledFields(), fileComm(EP_COMM_NULL)
       , isOpen(false), read_client(0), checkRead(false), allZoneEmpty(false)
     {
@@ -307 +307 @@
 
       int color = allZoneEmpty ? 0 : 1;
-      MPI_Comm_split(server->intraComm, color, server->intraCommRank, &fileComm);
-      if (allZoneEmpty) MPI_Comm_free(&fileComm);
+      ep_lib::MPI_Comm_split(server->intraComm, color, server->intraCommRank, &fileComm);
+      if (allZoneEmpty) ep_lib::MPI_Comm_free(&fileComm);
     }
     CATCH_DUMP_ATTR
@@ -554 +554 @@
          {
             int commSize, commRank;
-            MPI_Comm_size(fileComm, &commSize);
-            MPI_Comm_rank(fileComm, &commRank);
+            ep_lib::MPI_Comm_size(fileComm, &commSize);
+            ep_lib::MPI_Comm_rank(fileComm, &commRank);
 
             if (server->intraCommSize > 1)
@@ -634 +634 @@
     CContext* context = CContext::getCurrent();
     CContextServer* server = context->server;
-    MPI_Comm readComm = this->fileComm;
+    ep_lib::MPI_Comm readComm = this->fileComm;
 
     if (!allZoneEmpty)
@@ -677 +677 @@
       {
         int commSize, commRank;
-        MPI_Comm_size(readComm, &commSize);
-        MPI_Comm_rank(readComm, &commRank);
+        ep_lib::MPI_Comm_size(readComm, &commSize);
+        ep_lib::MPI_Comm_rank(readComm, &commRank);
 
         if (server->intraCommSize > 1)
@@ -722 +722 @@
         isOpen = false;
        }
-      if (fileComm != MPI_COMM_NULL) MPI_Comm_free(&fileComm);
+      if (fileComm != EP_COMM_NULL) ep_lib::MPI_Comm_free(&fileComm);
    }
    CATCH_DUMP_ATTR