diff options
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; } |