Changeset 2507 for XIOS3/trunk/src/transport/legacy_context_server.cpp

Timestamp:

06/01/23 10:58:08 (13 months ago)

Author:

ymipsl

Message:

Merging XIOS3_ATTACHED branch into XIOS3 trunk.

YM

File:

• XIOS3/trunk/src/transport/legacy_context_server.cpp (modified) (2 diffs)

XIOS3/trunk/src/transport/legacy_context_server.cpp

@@ -323 +323 @@
         {
           eventScheduler_->registerEvent(currentTimeLine,hashId);
+          info(100)<<"Context id "<<context->getId()<<"Schedule event : "<< currentTimeLine <<"  "<<hashId<<endl ;
           scheduled=true;
         }
@@ -342 +343 @@
             if (!flag) return ;
             eventScheduled_=false ;
+          }
+          
+          if (CXios::checkEventSync)
+          {
+            int typeId, classId, typeId_in, classId_in;
+            long long timeLine_out;
+            long long timeLine_in( currentTimeLine );
+            typeId_in=event->type ;
+            classId_in=event->classId ;
+   //        MPI_Allreduce(&timeLine,&timeLine_out, 1, MPI_UINT64_T, MPI_SUM, intraComm) ; // MPI_UINT64_T standardized by MPI 3
+            MPI_Allreduce(&timeLine_in,&timeLine_out, 1, MPI_LONG_LONG_INT, MPI_SUM, intraComm) ; 
+            MPI_Allreduce(&typeId_in,&typeId, 1, MPI_INT, MPI_SUM, intraComm) ;
+            MPI_Allreduce(&classId_in,&classId, 1, MPI_INT, MPI_SUM, intraComm) ;
+            if (typeId/intraCommSize!=event->type || classId/intraCommSize!=event->classId || timeLine_out/intraCommSize!=currentTimeLine)
+            {
+               ERROR("void CLegacyContextClient::sendEvent(CEventClient& event)",
+                  << "Event are not coherent between client for timeline = "<<currentTimeLine);
+            }
           }