diff options
author | tradke <tradke@4825ed28-b72c-4eae-9704-e50c059e567d> | 2006-06-06 17:31:20 +0000 |
---|---|---|
committer | tradke <tradke@4825ed28-b72c-4eae-9704-e50c059e567d> | 2006-06-06 17:31:20 +0000 |
commit | b1ac1044335dcaf3189c343c2862245b2875aa86 (patch) | |
tree | 93f86508d759d14cca7e985d857f16bccd8d494b | |
parent | f2022e3da0750f90bc9be7ac775d785b9052b328 (diff) |
Fix removal of recovery checkpoint: if IO::recover_and_remove is set, the
recovery file will be removed only after IO::checkpoint_keep successful
checkpoints have been written.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOHDF5/trunk@227 4825ed28-b72c-4eae-9704-e50c059e567d
-rw-r--r-- | src/RecoverGH.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/RecoverGH.c b/src/RecoverGH.c index e80f6ab..4ceb67c 100644 --- a/src/RecoverGH.c +++ b/src/RecoverGH.c @@ -180,11 +180,13 @@ int IOHDF5_Recover (cGH *GH, const char *basefilename, int called_from) if (CCTK_Equals (verbose, "full")) { CCTK_VInfo (CCTK_THORNSTRING, "Old checkpoint file '%s' will be removed" - " after next successful checkpoint", + " after next IO::checkpoint_keep " + "successful checkpoints", fileinfo.filename); } myGH->cp_filename_list[myGH->cp_filename_index] = strdup (fileinfo.filename); + myGH->cp_filename_index = (myGH->cp_filename_index+1) % checkpoint_keep; } } |