Changeset 1130 for XIOS/dev/dev_olga/src/buffer_client.cpp

Timestamp:

05/15/17 15:00:24 (7 years ago)

Author:

oabramkina

Message:

Two-level server: merging new grid functionalities and changes in the communication protocol (e.g. non-blocking context finalize, registries, oasis).

Tests on curie: test_client, test_complete, nemo (test_xios2_cmip6.exe).

To do: non-structured grid, check reading, possible bug in client/server initialization (?).

File:

• XIOS/dev/dev_olga/src/buffer_client.cpp (modified) (2 diffs)

XIOS/dev/dev_olga/src/buffer_client.cpp

@@ -74 +74 @@
     int flag;
 
-    int error, errclass, len;
-    char errstring[MPI_MAX_ERROR_STRING];
-
     if (pending)
     {
       traceOff();
-      MPI_Errhandler_set(interComm,MPI_ERRORS_RETURN);
-      error=MPI_Test(&request, &flag, &status);
-      if (error != MPI_SUCCESS)
-      {
-        MPI_Error_class(error, &errclass);
-        MPI_Error_string(error, errstring, &len);
-        ERROR("MPI error class: ", <<errclass<<" MPI error "<<errstring );
-      }
+      MPI_Test(&request, &flag, &status);
       traceOn();
       if (flag == true) pending = false;
@@ -96 +86 @@
       if (count > 0)
       {
-        MPI_Errhandler_set(interComm,MPI_ERRORS_RETURN);
-        error = MPI_Issend(buffer[current], count, MPI_CHAR, serverRank, 20, interComm, &request);
-        if (error != MPI_SUCCESS)
-        {
-          MPI_Error_class(error, &errclass);
-          MPI_Error_string(error, errstring, &len);
-          ERROR("MPI error class: ", <<errclass<<" MPI error "<<errstring );
-        }
+        MPI_Issend(buffer[current], count, MPI_CHAR, serverRank, 20, interComm, &request);
         pending = true;
         if (current == 1) current = 0;