Correct the problem with scheduling the "Old Style" Boundaries by running various routines in LEVEL mode.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@119 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b

1 files changed, 27 insertions, 0 deletions

diff --git a/src/SetTime.c b/src/SetTime.c
index 5149eb2..5866d0d 100644
--- a/src/SetTime.c
+++ b/src/SetTime.c
@@ -101,6 +101,33 @@ static const CCTK_REAL alpha_array65[8] = {
  ********************************************************************/
 
  /*@@
+   @routine    MoL_SetInitialTime
+   @date       Mon Aug 14 09:33:45 2006
+   @author     Ian Hawke
+   @desc 
+   Set the Original_Time and Original_Delta_Time variables correctly
+   (as the IndexArrays routine may be run too soon).
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+int MoL_SetInitialTime(CCTK_ARGUMENTS)
+{
+  
+  DECLARE_CCTK_ARGUMENTS;
+
+  *Original_Time = cctkGH->cctk_time;
+  *Original_Delta_Time = cctkGH->cctk_delta_time;
+  
+  return 0;
+}
+
+ /*@@
    @routine    MoL_SetTime
    @date       Mon May 20 09:48:55 2002
    @author     Ian Hawke