aboutsummaryrefslogtreecommitdiff
path: root/src/SetTime.c
diff options
context:
space:
mode:
authorhawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b>2003-04-25 14:19:35 +0000
committerhawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b>2003-04-25 14:19:35 +0000
commitafb053800f476ae76546dc5709f145a5793ff336 (patch)
treef6d2296029ad13ec8b4f868e1450a3edd9d7f6f8 /src/SetTime.c
parent590f97638ac60cddc65374801a286045dbcd8ccc (diff)
Change the commented out debugging statements to ifdef'd out.
Remove old, buggy commented out stuff. git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@6 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b
Diffstat (limited to 'src/SetTime.c')
-rw-r--r--src/SetTime.c46
1 files changed, 3 insertions, 43 deletions
diff --git a/src/SetTime.c b/src/SetTime.c
index 898f8a6..4e99c22 100644
--- a/src/SetTime.c
+++ b/src/SetTime.c
@@ -65,46 +65,11 @@ int MoL_SetTime(CCTK_ARGUMENTS)
DECLARE_CCTK_ARGUMENTS;
DECLARE_CCTK_PARAMETERS;
- /*
- CCTK_INT i,j,k;
- CCTK_REAL *Var0,*Var1,*Var2;
-
- Var0 = (CCTK_REAL*)CCTK_VarDataPtr(cctkGH, 0,
- "wavetoymol::phi");
- Var1 = (CCTK_REAL*)CCTK_VarDataPtr(cctkGH, 1,
- "wavetoymol::phi");
- Var2 = (CCTK_REAL*)CCTK_VarDataPtr(cctkGH, 2,
- "wavetoymol::phi");
- printf("Grid %d: Pointer to time levels %ld %ld %ld\n",
- cctkGH->cctk_levfac[0], Var0,Var1,Var2);
- printf("First point of first two levels is %g and %g.\n",
- Var0[0],Var1[0]);*/
- /*
- for (k=0;k<cctk_lsh[2];k++)
- {
- for (j=0;j<cctk_lsh[1];j++)
- {
- for (i=0;i<cctk_lsh[0];i++)
- {
- printf("Set time: %d %d %d %d %g\n", cctk_levfac[0],
- i, j, k,
- Var1[CCTK_GFINDEX3D(cctkGH, i, j, k)]);
- }
- }
- }*/
-
*Original_Time = cctkGH->cctk_time;
*Original_Delta_Time = cctkGH->CCTK_DELTA_TIME;
cctkGH->cctk_time -= cctkGH->CCTK_DELTA_TIME;
- /*
- CCTK_VInfo(CCTK_THORNSTRING,"Original time was %g. Reset to %g",
- *Original_Time,cctkGH->cctk_time);
- */
- /* if ( (CCTK_EQUALS(MoL_ODE_Method,"ICN")) ||
- ( (CCTK_EQUALS(MoL_ODE_Method,"Generic")) &&
- ( (MoL_Intermediate_Steps == 4))
- || CCTK_EQUALS(Generic_Type,"ICN") ) )*/
+
if ( (CCTK_EQUALS(MoL_ODE_Method,"ICN")) ||
( (CCTK_EQUALS(MoL_ODE_Method,"Generic")) &&
CCTK_EQUALS(Generic_Type,"ICN") ) )
@@ -152,7 +117,6 @@ int MoL_ResetTime(CCTK_ARGUMENTS)
if (MoL_Intermediate_Steps == 2)
{
cctkGH->cctk_time = (*Original_Time);
- /* cctkGH->CCTK_DELTA_TIME = 0.5 * (*Original_Delta_Time);*/
}
/* else if (MoL_Intermediate_Steps == 3)
{
@@ -214,14 +178,10 @@ int MoL_ResetTime(CCTK_ARGUMENTS)
}
}*/
}
- /*
- CCTK_VInfo(CCTK_THORNSTRING,"Time has been reset to %g",
- cctkGH->cctk_time);
- */
- /*
+#ifdef MOLDEBUG
printf("MoL has once more reset t: %f: and dt: %f.\n", cctkGH->cctk_time,
cctkGH->CCTK_DELTA_TIME);
- */
+#endif
return 0;
}