Fix incorrect counting of open files.

src/pio_mpi_fw_at_all.c

@@ -111,6 +111,7 @@ fcFileWriteAtAll(int fileID)
   assert(fileID >= 0 && (size_t) fileID < openFilesSize && openFiles[fileID].name);
   struct fileMPIFWAA *of = openFiles + fileID;
   int iret = destroyAFiledataFileWriteAtAll(of);
+  --openFilesFill;
   return iret;
 }
 
@@ -154,6 +155,7 @@ fowFileWriteAtAll(const char *filename, const char *mode)
           }
     }
   struct fileMPIFWAA *of = openFiles + fileID;
+  ++openFilesFill;
   initAFiledataFileWriteAtAll(of, filename, conf->writeAggBufLim);
   return (int) fileID;
 }

src/pio_mpi_fw_at_reblock.c

@@ -417,6 +417,7 @@ fcFileWriteAtReblock(int fileID)
   assert(fileID >= 0 && (size_t) fileID < openFilesSize && openFiles[fileID].name);
   struct fileMPIFWAR *of = openFiles + fileID;
   int iret = destroyAFiledataFileWriteAtReblock(of);
+  --openFilesFill;
   return iret;
 }
 
@@ -460,6 +461,7 @@ fowFileWriteAtReblock(const char *filename, const char *mode)
           }
     }
   struct fileMPIFWAR *of = openFiles + fileID;
+  ++openFilesFill;
   initAFiledataFileWriteAtReblock(of, filename, conf);
   return (int) fileID;
 }

src/pio_mpi_fw_ordered.c

@@ -97,6 +97,7 @@ fcFileWriteOrdered(int fileID)
   assert(fileID >= 0 && (size_t) fileID < openFilesSize && openFiles[fileID].name);
   struct fileMPIFWO *of = openFiles + fileID;
   int iret = destroyAFiledataFileWriteOrdered(of);
+  --openFilesFill;
   return iret;
 }
 
@@ -130,6 +131,7 @@ fowFileWriteOrdered(const char *filename, const char *mode)
           }
     }
   struct fileMPIFWO *of = openFiles + fileID;
+  ++openFilesFill;
   initAFiledataFileWriteOrdered(of, filename, conf->writeAggBufLim);
   return (int) fileID;
 }

src/pio_mpinonb.c

@@ -194,6 +194,7 @@ fcMPINONB(int fileID)
   xmpiStat(MPI_Wait(&(of->request), &status), &status);
   /* remove file element */
   int iret = destroyAFiledataMPINONB(of);
+  --openFilesFill;
   return iret;
 }
 
@@ -237,6 +238,7 @@ fowMPINONB(const char *filename, const char *mode)
           }
     }
   struct fileMPIFWS *of = openFiles + fileID;
+  ++openFilesFill;
   initAFiledataMPINONB(of, filename, conf->writeAggBufLim);
   return (int) fileID;
 }