Skip to content
Snippets Groups Projects
Commit bb338be4 authored by Thomas Jahns's avatar Thomas Jahns :cartwheel:
Browse files

Simplify send of finalize command to PIO server.

parent 556e9098
No related branches found
No related tags found
No related merge requests found
......@@ -652,8 +652,7 @@ void pioFinalize ( void )
collRank = cdiPioCollRank(clientRank, numClients, numColl);
if (clientRank == cdiPioClientRangeStart(collRank, numClients, numColl))
xmpi(MPI_Send(NULL, 0, MPI_INT, collRank,
FINALIZE, cdiPioInqInterComm()));
xmpi(MPI_Send(NULL, 0, MPI_INT, collRank, FINALIZE, cdiPioInqInterComm()));
xdebug("%s", "SENT MESSAGE WITH TAG \"FINALIZE\"");
modelWinDelete();
cdiPioCommFinalize();
......
......@@ -1045,7 +1045,6 @@ void cdiPioCollectorMessageLoop(void)
{
case FINALIZE:
xmpi(MPI_Recv(NULL, 0, MPI_INT, source, tag, pioInterComm, &status));
xdebug("%s", "RECEIVED MESSAGE WITH TAG \"FINALIZE\"");
{
unsigned nStreams = reshCountType(&streamOps);
if ( nStreams > 0 )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment