Changeset 1323

Timestamp:

10/31/17 19:48:35 (7 years ago)

Author:

oabramkina

Message:

Improving the algorithm for registering a context.

(It's just a forgotten commit.)

File:

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

XIOS/dev/XIOS_DEV_CMIP6/src/server.cpp

@@ -617 +617 @@
        static std::vector<int> counts ;
        static std::vector<bool> isEventRegistered ;
+       static std::vector<bool> isEventQueued ;
        MPI_Request request;
 
@@ -636 +637 @@
          MPI_Irecv((void*)(buffers.back()),counts.back(),MPI_CHAR,root,2,intraComm,&(requests.back())) ;
          isEventRegistered.push_back(false);
+         isEventQueued.push_back(false);
          nbContexts++;
        }
@@ -649 +651 @@
          }
          // (3) If event has been scheduled, call register context
-         if (eventScheduler->queryEvent(ctxNb,hashId))
+         if (eventScheduler->queryEvent(ctxNb,hashId) && !isEventQueued[ctxNb])
          {
            registerContext(buffers[ctxNb],counts[ctxNb]) ;
+           isEventQueued[ctxNb] = true;
            delete [] buffers[ctxNb] ;
          }