Changeset 2520 for XIOS3/trunk/src

Timestamp:

06/21/23 12:06:18 (12 months ago)

Author:

jderouillat

Message:

Replace MPI probing on intercommunicator by probing on intracommunicator

Location:

XIOS3/trunk/src

Files:

• test/generic_testcase.f90 (modified) (1 diff)
• transport/legacy_context_client.cpp (modified) (1 diff)
• transport/legacy_context_server.cpp (modified) (1 diff)

XIOS3/trunk/src/test/generic_testcase.f90

@@ -776 +776 @@
     ENDDO
    
+    CALL wait_us(int(10*1.e6))   ! micro-secondes
     CALL xios_context_finalize()
     CALL MPI_COMM_FREE(comm, ierr)

XIOS3/trunk/src/transport/legacy_context_client.cpp

@@ -226 +226 @@
       }
       
-      CClientBuffer* buffer = buffers[rank] = new CClientBuffer(interComm, rank, mapBufferSize_[rank], maxEventSizes[rank]);
+      CClientBuffer* buffer = buffers[rank] = new CClientBuffer(interCommMerged_, clientSize+rank, mapBufferSize_[rank], maxEventSizes[rank]);
       if (isGrowableBuffer_) buffer->setGrowableBuffer(1.2) ;
       else buffer->fixBuffer() ;

XIOS3/trunk/src/transport/legacy_context_server.cpp

@@ -95 +95 @@
 
     traceOff();
-    MPI_Improbe(MPI_ANY_SOURCE, 20, interComm,&flag,&message, &status);
+    MPI_Improbe(MPI_ANY_SOURCE, 20, interCommMerged_,&flag,&message, &status);
     traceOn();
     if (flag==true) listenPendingRequest(message, status) ;