From 6a1111e3fa4879761463aec65492bc8cc87c29f2 Mon Sep 17 00:00:00 2001 From: tradke Date: Mon, 14 Jul 2003 08:24:44 +0000 Subject: Checkpoint active timelevels only. This closes PR BetaThorns/1564. Currently the number of active timelevels is determined by calling PUGH_NumTimeLevels() because there is no such flesh counterpart. git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGHIO/IOFlexIO/trunk@280 ebee0441-1374-4afa-a3b5-247f3ba15b9a --- src/DumpGH.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/DumpGH.c b/src/DumpGH.c index eef4e80..32a2eeb 100644 --- a/src/DumpGH.c +++ b/src/DumpGH.c @@ -18,6 +18,7 @@ #include "CactusBase/IOUtil/src/ioGH.h" #include "CactusBase/IOUtil/src/ioutil_CheckpointRecovery.h" #include "ioFlexGH.h" +#include "CactusPUGH/PUGH/src/include/pugh.h" #include #include @@ -321,6 +322,7 @@ static int Checkpoint (const cGH *GH, int called_from) cGroup gdata; ioRequest *request; flexioGH *myGH; + const pGH *pughGH; const ioGH *ioUtilGH; char *fullname; static char **cp_filenames = NULL; @@ -348,6 +350,7 @@ static int Checkpoint (const cGH *GH, int called_from) /* get the base filename ... */ myproc = CCTK_MyProc (GH); + pughGH = PUGH_pGH (GH); ioUtilGH = CCTK_GHExtension (GH, "IO"); IOUtil_PrepareFilename (GH, NULL, filename, called_from, myproc / ioUtilGH->ioproc_every, ioUtilGH->unchunked); @@ -444,7 +447,7 @@ static int Checkpoint (const cGH *GH, int called_from) { /* loop over all allocated timelevels of this variable */ for (request->timelevel = 0; - request->timelevel < gdata.numtimelevels; + request->timelevel < PUGH_NumTimeLevels (pughGH, request->vindex)-1; request->timelevel++) { if (CCTK_Equals (verbose, "full")) -- cgit v1.2.3