diff options
author | allen <allen@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 2001-08-26 17:22:14 +0000 |
---|---|---|
committer | allen <allen@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 2001-08-26 17:22:14 +0000 |
commit | bb8612ae0c144ec379e06f6ec52f27f6a2f134a7 (patch) | |
tree | 4e24b5b11a0d002e605796cace192428e49dbd1f /src/OutputScalar.c | |
parent | c289f0870e4ff928b3528879ad12d6ef3705f840 (diff) |
Adding more output for newverbose parameter on startup/steering:
- IO method registration
- Directory used
- Output every
- Variables output
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@100 b589c3ab-70e8-4b4d-a09f-cba2dd200880
Diffstat (limited to 'src/OutputScalar.c')
-rw-r--r-- | src/OutputScalar.c | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/src/OutputScalar.c b/src/OutputScalar.c index 155b1dc..ed9c149 100644 --- a/src/OutputScalar.c +++ b/src/OutputScalar.c @@ -288,17 +288,30 @@ int IOBasic_TriggerScalarOutput (cGH *GH, int vindex) static void CheckSteerableParameters (iobasicGH *myGH) { DECLARE_CCTK_PARAMETERS + int out_old; int times_set; + int i; static int outScalar_vars_lastset = -1; /* How often to output */ + out_old = myGH->outScalar_every; myGH->outScalar_every = out_every > 0 ? out_every : -1; if (outScalar_every > 0) { myGH->outScalar_every = outScalar_every; } + if (myGH->outScalar_every != out_old) + { + if (CCTK_Equals (newverbose, "standard") || + CCTK_Equals (newverbose, "full")) + { + CCTK_VInfo (CCTK_THORNSTRING, "Scalar: Output every %d iterations", + myGH->outScalar_every); + } + } + /* re-parse the 'outScalar_vars' parameter if it was changed */ times_set = CCTK_ParameterQueryTimesSet ("outScalar_vars", CCTK_THORNSTRING); if (times_set != outScalar_vars_lastset) @@ -307,6 +320,19 @@ static void CheckSteerableParameters (iobasicGH *myGH) CCTK_TraverseString (outScalar_vars, SetOutputFlag, myGH->do_outScalar, CCTK_GROUP_OR_VAR); + if (CCTK_Equals (newverbose, "standard") || + CCTK_Equals (newverbose, "full")) + { + for (i=0;i<CCTK_NumVars();i++) + { + if (myGH->do_outScalar[i]) + { + CCTK_VInfo (CCTK_THORNSTRING, + "Scalar: Output requested for %s",CCTK_FullName(i)); + } + } + } + /* Save the last setting of 'outScalar_vars' parameter */ outScalar_vars_lastset = times_set; } |