diff options
author | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2001-05-10 17:13:36 +0000 |
---|---|---|
committer | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 2001-05-10 17:13:36 +0000 |
commit | b0e4eff508d829f16a5069e17d34323ab2f602e6 (patch) | |
tree | 88f9ca112c1ab76197acb09dd2114e3109d84408 | |
parent | 5364085baa94f87859be2d782dadcba545383e64 (diff) |
New timelevel indexing
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@144 6a38eb6e-646e-4a02-a296-d141613ad6c4
-rw-r--r-- | src/CopyBoundary.c | 5 | ||||
-rw-r--r-- | src/FlatBoundary.c | 3 | ||||
-rw-r--r-- | src/RadiationBoundary.c | 19 | ||||
-rw-r--r-- | src/RobinBoundary.c | 3 | ||||
-rw-r--r-- | src/ScalarBoundary.c | 3 |
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"); |