From b0e4eff508d829f16a5069e17d34323ab2f602e6 Mon Sep 17 00:00:00 2001
From: allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4>
Date: Thu, 10 May 2001 17:13:36 +0000
Subject: New timelevel indexing

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@144 6a38eb6e-646e-4a02-a296-d141613ad6c4
---
 src/RadiationBoundary.c | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

(limited to 'src/RadiationBoundary.c')

diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c
index 50caf70..efbbcfc 100644
--- a/src/RadiationBoundary.c
+++ b/src/RadiationBoundary.c
@@ -1333,7 +1333,6 @@ void CCTK_FCALL CCTK_FNAME (BndRadiativeVN)
    @endvar
                CCTK_VarTypeI
                CCTK_GroupDimFromVarI
-               CCTK_NumTimeLevelsFromVarI
                RADIATIVE_BOUNDARY
    @history
    @hdate      Mon 9 Apr 2001
@@ -1411,18 +1410,26 @@ static int ApplyBndRadiative (cGH *GH,
   }
 
   /* Use next time level, if available */
-  timelvl_to = CCTK_NumTimeLevelsFromVarI (first_var_to) - 1;
-  if (timelvl_to < 0)
+  timelvl_to = 0;
+  /*  if (timelvl_to < 0)
   {
     timelvl_to = 0;
-  }
+    }*/
   /* Use current time level, if available */
-  timelvl_from = CCTK_NumTimeLevelsFromVarI (first_var_from) - 2;
-  if (timelvl_from < 0)
+  if (CCTK_NumTimeLevelsFromVarI(first_var_from) > 1)
+  {
+    timelvl_from = 1;
+  }
+  else
   {
     timelvl_from = 0;
   }
 
+  /*if (timelvl_from < 0)
+  {
+    timelvl_from = 0;
+    }*/
+
   /* Find Courant parameters. */
   dtv      = speed * GH->cctk_delta_time;
   dtvh     = 0.5 * dtv;
-- 
cgit v1.2.3