Changeset 2580 for XIOS3/trunk/src/transport

Timestamp:

09/26/23 17:24:35 (10 months ago)

Author:

ymipsl

Message:

Tracking unfree MPI windows and communicators.

YM

Location:

XIOS3/trunk/src/transport

Files:

• p2p_context_client.cpp (modified) (1 diff)
• p2p_context_server.cpp (modified) (2 diffs)

XIOS3/trunk/src/transport/p2p_context_client.cpp

@@ -32 +32 @@
 
       MPI_Intercomm_merge(interComm_,false, &interCommMerged_) ;
+      CXios::getMpiGarbageCollector().registerCommunicator(interCommMerged_) ;
       
       MPI_Comm_split(intraComm_,clientRank,clientRank, &commSelf_) ; // for windows
+      CXios::getMpiGarbageCollector().registerCommunicator(commSelf_) ;
       eventScheduler_ = parent->getEventScheduler() ;  
       timeLine = 1;

XIOS3/trunk/src/transport/p2p_context_server.cpp

@@ -37 +37 @@
    
     MPI_Comm_dup(intraComm, &processEventBarrier_) ;
- 
+    CXios::getMpiGarbageCollector().registerCommunicator(processEventBarrier_) ;
+    
     currentTimeLine=1;
     scheduled=false;
@@ -43 +44 @@
 
     MPI_Intercomm_merge(interComm_,true,&interCommMerged_) ;
+    CXios::getMpiGarbageCollector().registerCommunicator(interCommMerged_) ;
     MPI_Comm_split(intraComm_, intraCommRank, intraCommRank, &commSelf_) ; // for windows
+    CXios::getMpiGarbageCollector().registerCommunicator(commSelf_) ;
     
     itLastTimeLine=lastTimeLine.begin() ;