diff options
author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-08-03 17:56:27 +0000 |
---|---|---|
committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-08-03 17:56:27 +0000 |
commit | 9f8b70b5e5bb4b0207c3c1b8d561b6a08247f205 (patch) | |
tree | 79a7e5e51fd373dcb7463d4be7c06d99b0a59d65 /src/GRHydro_Boundaries.F90 | |
parent | 3d406a9c020cf0e9d68ac6a051125d98b9641238 (diff) |
* move check of shift_state .ne. 0 to
a routine that is scheduled in BASEGRID after ADMBase sets the shift
state.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@261 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Boundaries.F90')
-rw-r--r-- | src/GRHydro_Boundaries.F90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/GRHydro_Boundaries.F90 b/src/GRHydro_Boundaries.F90 index 765755b..673a2ea 100644 --- a/src/GRHydro_Boundaries.F90 +++ b/src/GRHydro_Boundaries.F90 @@ -122,6 +122,12 @@ subroutine GRHydro_InitSymBound(CCTK_ARGUMENTS) call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::Bvec[2]") call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::Bcons[2]") endif + +! check that storage for shift is active + if(shift_state.eq.0) then + call CCTK_PARAMWARN("shift_state = 0 (no shift storage) no longer supported!"); + endif + end subroutine GRHydro_InitSymBound |