From b1ac1044335dcaf3189c343c2862245b2875aa86 Mon Sep 17 00:00:00 2001 From: tradke Date: Tue, 6 Jun 2006 17:31:20 +0000 Subject: 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 --- src/RecoverGH.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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; } } -- cgit v1.2.3