New timelevel indexing

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@144 6a38eb6e-646e-4a02-a296-d141613ad6c4

5 files changed, 18 insertions, 15 deletions

diff --git a/src/CopyBoundary.c b/src/CopyBoundary.c
index f454921..bff9a6d 100644
--- a/src/CopyBoundary.c
+++ b/src/CopyBoundary.c
@@ -835,7 +835,6 @@ void CCTK_FCALL CCTK_FNAME (BndCopyVN)
                CCTK_GroupDimI
                CCTK_VarTypeI
                CCTK_GroupStaggerDirArrayGI
-               CCTK_NumTimeLevelsFromVarI
                COPY_BOUNDARY
    @history
    @hdate      Sat 20 Jan 2001
@@ -919,8 +918,8 @@ static int ApplyBndCopy (cGH *GH,
   CCTK_GroupStaggerDirArrayGI (dstag, gdim, gindex);
 
   /* get the current timelevel */
-  timelvl_to   = CCTK_NumTimeLevelsFromVarI (first_var_to) - 1;
-  timelvl_from = CCTK_NumTimeLevelsFromVarI (first_var_from) - 1;
+  timelvl_to   = 0;
+  timelvl_from = 0;
 
   /* see if we have a symmetry array */
   sGHex = (SymmetryGHex *) CCTK_GHExtension (GH, "Symmetry");
diff --git a/src/FlatBoundary.c b/src/FlatBoundary.c
index 738c5e3..f3036ef 100644
--- a/src/FlatBoundary.c
+++ b/src/FlatBoundary.c
@@ -755,7 +755,6 @@ void CCTK_FCALL CCTK_FNAME (BndFlatVN)
                CCTK_GroupDimI
                CCTK_VarTypeI
                CCTK_GroupStaggerDirArrayGI
-               CCTK_NumTimeLevelsFromVarI
                FLAT_BOUNDARY
    @history
    @hdate      Tue 10 Apr 2001
@@ -836,7 +835,7 @@ static int ApplyBndFlat (cGH *GH,
   CCTK_GroupStaggerDirArrayGI (dstag, gdim, gindex);
 
   /* get the current timelevel */
-  timelvl = CCTK_NumTimeLevelsFromVarI (first_var) - 1;
+  timelvl = 0;
 
   /* see if we have a symmetry array */
   sGHex = (SymmetryGHex *) CCTK_GHExtension (GH, "Symmetry");
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;
diff --git a/src/RobinBoundary.c b/src/RobinBoundary.c
index f895e1a..9a3a2ae 100644
--- a/src/RobinBoundary.c
+++ b/src/RobinBoundary.c
@@ -560,7 +560,6 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVN)
 
    @calls      CCTK_VarTypeI
                CCTK_GroupDimFromVarI
-               CCTK_NumTimeLevelsFromVarI
                ROBIN_BOUNDARY
    @history
    @hdate      Tue 10 Apr 2001
@@ -631,7 +630,7 @@ static int ApplyBndRobin (cGH *GH,
   memset (lsh, 0, sizeof (lsh));
 
   /* get the current timelevel */
-  timelvl = CCTK_NumTimeLevelsFromVarI (first_var) - 1;
+  timelvl = 0;
 
   /* Robin boundaries need the underlying radius coordinate */
   sprintf (coord_system_name, "spher%dd", gdim);
diff --git a/src/ScalarBoundary.c b/src/ScalarBoundary.c
index 656a4c9..815578c 100644
--- a/src/ScalarBoundary.c
+++ b/src/ScalarBoundary.c
@@ -831,7 +831,6 @@ void CCTK_FCALL CCTK_FNAME (BndScalarVN)
    @enddesc
    @calls      CCTK_VarTypeI
                CCTK_GroupDimFromVarI
-               CCTK_NumTimeLevelsFromVarI
                SCALAR_BOUNDARY
 
    @var        GH
@@ -951,7 +950,7 @@ static int ApplyBndScalar (cGH *GH,
   CCTK_GroupStaggerDirArrayGI (dstag, gdim, gindex);
 
   /* get the current timelevel */
-  timelvl = CCTK_NumTimeLevelsFromVarI (first_var) - 1;
+  timelvl = 0;
 
   /* see if we have a symmetry array */
   sGHex = (SymmetryGHex *) CCTK_GHExtension (GH, "Symmetry");