Commit 771be69e authored by Deike Kleberg's avatar Deike Kleberg
Browse files

Adapt changes of names.

parent f729891c
......@@ -208,9 +208,9 @@ void modelRun ( MPI_Comm comm )
free ( recvBuffer );
reshPackBufferDestroy ( &sendBuffer );
differ = reshArrayCompare ( 0, 1 );
differ = reshListCompare ( 0, 1 );
printf ( "The resource arrays %s.\n", differ ? "differ" : "are equal" );
reshArrayPrint ( "reshArrayModel" );
reshListPrint ( "reshArrayModel" );
pioNamespaceSetActive ( 0 );
streamClose(streamID);
......
......@@ -406,6 +406,8 @@ void IOServer ()
MPI_Comm commCalc;
MPI_Status status;
xdebug ( "START" );
backendInit ();
if ( commInqRankNode () == commInqSpecialRankNode ())
backendFinalize ();
......@@ -450,8 +452,8 @@ void IOServer ()
}
backendCleanup ();
serverWinCleanup ();
arrayDestroy();
listDestroy();
xdebug ( "RETURN" );
return;
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment