Simplify send of finalize command to PIO server.

src/pio_interface.c

@@ -886,17 +886,16 @@ void  pioEndTimestepping ( void )
 
 void pioFinalize ( void )
 {
-  int collID, ibuffer = 1111;
   xdebug("%s", "START");
 
   /* pioNamespace_ is unchanged on I/O servers */
   if (pioNamespace_ == -1)
     return;
   namespaceDelete(pioNamespace_);
-  for ( collID = 0; collID < commInqNProcsColl (); collID++ )
+  for (int collID = 0; collID < commInqNProcsColl (); collID++ )
     {
-      xmpi ( MPI_Send ( &ibuffer, 1, MPI_INT, commInqNProcsModel (),
-                        FINALIZE, commInqCommsIO ( collID )));
+      xmpi(MPI_Send(NULL, 0, MPI_INT, commInqNProcsModel(),
+                    FINALIZE, commInqCommsIO ( collID )));
       xdebug("%s", "SENT MESSAGE WITH TAG \"FINALIZE\"");
     }
   modelWinCleanup ();

src/pio_server.c

@@ -1088,12 +1088,8 @@ void cdiPioServer(void (*postCommSetupActions)(void))
       switch ( tag )
         {
         case FINALIZE:
-          {
-            int i;
-            xdebugMsg(tag, source, nfinished);
-            xmpi(MPI_Recv(&i, 1, MPI_INTEGER, source,
-                          tag, commCalc, &status));
-          }
+          xdebugMsg(tag, source, nfinished);
+          xmpi(MPI_Recv(NULL, 0, MPI_INT, source, tag, commCalc, &status));
           xdebug("%s", "RECEIVED MESSAGE WITH TAG \"FINALIZE\"");
           nfinished++;
           xdebug("nfinished=%d, nProcsModel=%d", nfinished, nProcsModel);