ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid memory leak with MPI-IO

Browse Source
This commit is contained in:
Axel Kohlmeyer
2021-08-13 06:25:21 -04:00
parent eaedd9ad48
commit cba8e8237a
1 changed files with 20 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/read_restart.cpp
View File

@ -44,7 +44,7 @@ using namespace LAMMPS_NS;
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
ReadRestart::ReadRestart(LAMMPS *lmp) : Command(lmp) {} ReadRestart::ReadRestart(LAMMPS *lmp) : Command(lmp), mpiio(nullptr) {}
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
@ -110,8 +110,7 @@ void ReadRestart::command(int narg, char **arg)
} }
fp = fopen(hfile.c_str(),"rb"); fp = fopen(hfile.c_str(),"rb");
if (fp == nullptr) if (fp == nullptr)
error->one(FLERR,"Cannot open restart file {}: {}", error->one(FLERR,"Cannot open restart file {}: {}", hfile, utils::getsyserror());
hfile, utils::getsyserror());
} }
// read magic string, endian flag, format revision // read magic string, endian flag, format revision
@ -336,8 +335,7 @@ void ReadRestart::command(int narg, char **arg)
procfile.replace(procfile.find("%"),1,fmt::format("{}",icluster)); procfile.replace(procfile.find("%"),1,fmt::format("{}",icluster));
fp = fopen(procfile.c_str(),"rb"); fp = fopen(procfile.c_str(),"rb");
if (fp == nullptr) if (fp == nullptr)
error->one(FLERR,"Cannot open restart file {}: {}", error->one(FLERR,"Cannot open restart file {}: {}", procfile, utils::getsyserror());
procfile, utils::getsyserror());
} }
int procsperfile; int procsperfile;
@ -525,8 +523,9 @@ void ReadRestart::command(int narg, char **arg)
MPI_Barrier(world); MPI_Barrier(world);
if (comm->me == 0) if (comm->me == 0)
utils::logmesg(lmp," read_restart CPU = {:.3f} seconds\n", utils::logmesg(lmp," read_restart CPU = {:.3f} seconds\n",MPI_Wtime()-time1);
MPI_Wtime()-time1);
delete mpiio;
} }
/* ---------------------------------------------------------------------- /* ----------------------------------------------------------------------