diff options
Diffstat (limited to 'src/GHExtension.c')
-rw-r--r-- | src/GHExtension.c | 32 |
1 files changed, 30 insertions, 2 deletions
diff --git a/src/GHExtension.c b/src/GHExtension.c index bf53d1e..df3d69c 100644 --- a/src/GHExtension.c +++ b/src/GHExtension.c @@ -45,10 +45,9 @@ void *IOBasic_SetupGH (tFleshConfig *config, int convergence_level, cGH *GH) int IOBasic_InitGH (cGH *GH) { - DECLARE_CCTK_PARAMETERS int i; iobasicGH *myGH; - + DECLARE_CCTK_PARAMETERS /* get the handles for IOBasic extensions */ myGH = (iobasicGH *) GH->extensions [CCTK_GHExtensionHandle ("IOBasic")]; @@ -57,11 +56,15 @@ int IOBasic_InitGH (cGH *GH) /* How often to output */ myGH->outInfo_every = out_every > 0 ? out_every : -1; if (outInfo_every > 0) + { myGH->outInfo_every = outInfo_every; + } myGH->outScalar_every = out_every > 0 ? out_every : -1; if (outScalar_every > 0) + { myGH->outScalar_every = outScalar_every; + } /* Check whether "outdirScalar" was set. If so take this dir otherwise default to "IO::outdir" */ @@ -102,5 +105,30 @@ int IOBasic_InitGH (cGH *GH) myGH->filenameListScalar = NULL; + /* Provide Information */ + if (CCTK_Equals(newverbose,"standard") || CCTK_Equals(newverbose,"full")) + { + if (myGH->outInfo_every > 0) + { + CCTK_VInfo("IOBasic","Info: Output every %d iterations", + myGH->outInfo_every); + } + else + { + CCTK_VInfo("IOBasic","Info: No output requested"); + } + CCTK_INFO("Info: Output to screen (standard output)"); + if (myGH->outScalar_every > 0) + { + CCTK_VInfo("IOBasic","Scalar: Output every %d iterations", + myGH->outScalar_every); + } + else + { + CCTK_VInfo("IOBasic","Scalar: No output requested"); + } + CCTK_VInfo("IOBasic","Scalar: Output to directory %s",myGH->outdirScalar); + } + return 0; } |