Changeset 2580 for XIOS3/trunk/src/server.cpp

Timestamp:

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

Author:

ymipsl

Message:

Tracking unfree MPI windows and communicators.

YM

File:

• XIOS3/trunk/src/server.cpp (modified) (5 diffs)

XIOS3/trunk/src/server.cpp

@@ -102 +102 @@
 
         MPI_Comm_split(globalComm, color, commRank, &serverComm) ;
+        CXios::getMpiGarbageCollector().registerCommunicator(serverComm) ;
+
       }
       else // using OASIS
@@ -118 +120 @@
       }
       MPI_Comm_dup(serverComm, &intraComm_);
+      CXios::getMpiGarbageCollector().registerCommunicator(intraComm_) ;
       
       CTimer::get("XIOS").resume() ;
@@ -165 +168 @@
       MPI_Comm_rank(CXios::getXiosComm(), &commRank) ;
       MPI_Comm_split(CXios::getXiosComm(),true,commRank,&serversComm_) ;
+      CXios::getMpiGarbageCollector().registerCommunicator(serversComm_) ;
       
       CXios::setUsingServer() ;
@@ -443 +447 @@
       {  
         MPI_Intercomm_create(intraComm, 0, globalComm, clientsRank[i], 3141, &interComm);
+        CXios::getMpiGarbageCollector().registerCommunicator(interComm) ;
         interCommLeft.push_back(interComm) ;
         MPI_Comm_free(&intraComm) ;
@@ -598 +603 @@
       
       CContext::removeAllContexts() ; // free memory for related context
-          
+      
       CXios::getMpiGarbageCollector().release() ; // release unfree MPI ressources
-
+      MPI_Comm xiosComm=CXios::getXiosComm() ;
+      MPI_Comm_free(&xiosComm) ;
       CMemChecker::logMem( "CServer::finalize", true );