Changeset 2591


Ignore:
Timestamp:
10/10/23 11:19:32 (15 months ago)
Author:
jderouillat
Message:

Free additional communicators

Location:
XIOS3/trunk/src
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • XIOS3/trunk/src/client.cpp

    r2589 r2591  
    167167           CXios::setXiosComm(xiosGlobalComm) ; 
    168168         } 
     169 
     170         xios::MPI_Comm_free( &interComm ); 
     171         xios::MPI_Comm_free( &splitComm ); 
    169172      } 
    170173      else 
    … …  
    510513    void CClient::finalize(void) 
    511514    { 
    512       
    513515      MPI_Barrier(clientsComm_) ; 
    514516      int commRank ; 

  • XIOS3/trunk/src/server.cpp

    r2589 r2591  
    152152        xios::MPI_Intercomm_merge(interComm,false,&xiosGlobalComm) ; 
    153153        CXios::setXiosComm(xiosGlobalComm) ; 
     154 
     155        xios::MPI_Comm_free( &interComm ); 
     156        xios::MPI_Comm_free( &splitComm ); 
    154157      } 
    155158      else 

  • XIOS3/trunk/src/test/generic_testcase.f90

    r2541 r2591  
    780780    CALL wait_us(int(10*1.e6))   ! micro-secondes 
    781781    CALL xios_context_finalize() 
    782     CALL MPI_COMM_FREE(comm, ierr) 
     782    ! comm is allocated by XIOS, it will be released by XIOS (garbage collector) 
     783    !CALL MPI_COMM_FREE(comm, ierr) 
    783784     
    784785  END SUBROUTINE model 
Note: See TracChangeset for help on using the changeset viewer.