diff options
author | tradke <tradke@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 1999-12-13 18:29:24 +0000 |
---|---|---|
committer | tradke <tradke@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 1999-12-13 18:29:24 +0000 |
commit | dacd91bb5504ab769340bd20fb6b56a1eb689258 (patch) | |
tree | 22042ead33634adea5b32d189c953a516138cba1 /src/OutputInfo.c | |
parent | da453eedc9ebd8af963fc4b1219b7e00c73d8510 (diff) |
Moved the test, if storage was assigned to a variable to be output,
from the TimeToOutput() routines into the lower level WriteOutput()
routines. Fixing by that
* the behaviour of triggers, where TimeToOutput() is called BEFORE
storage is possibly assigned (BR 170)
* a potential bug when calling OutputVarAs() where no such test was
done before
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@18 b589c3ab-70e8-4b4d-a09f-cba2dd200880
Diffstat (limited to 'src/OutputInfo.c')
-rw-r--r-- | src/OutputInfo.c | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/OutputInfo.c b/src/OutputInfo.c index f55388f..6eaae92 100644 --- a/src/OutputInfo.c +++ b/src/OutputInfo.c @@ -25,7 +25,6 @@ int IOBasic_OutputInfoGH (cGH *GH) { DECLARE_CCTK_PARAMETERS int i; - int grouptype; char *name=NULL; iobasicGH *myGH; @@ -70,8 +69,6 @@ int IOBasic_OutputInfoGH (cGH *GH) /* Loop over all variables */ for (i = 0; i < CCTK_NumVars (); i++) { - grouptype = CCTK_GroupTypeFromVarI (i); - /* Check this Variable should be output */ if (myGH->do_outInfo [i]) { @@ -80,18 +77,6 @@ int IOBasic_OutputInfoGH (cGH *GH) printf("%12.8f |%12.8f |",myGH->infovals[i][0],myGH->infovals[i][1]); - } - /* Check GF has storage */ - else if (grouptype == GROUP_GF && ! CCTK_QueryGroupStorageI (GH, - CCTK_GroupIndexFromVarI (i))){ - char *msg, *varname; - - varname = CCTK_VarName(i); - msg = (char *) malloc (200 * sizeof (char) + strlen (varname)); - sprintf (msg, "No info output in IOBasic_OutputInfoGH for '%s' " - "(no storage)", varname); - CCTK_WARN (2, msg); - free (msg); } else { /* Get the variable name for this index (for filename) */ |