diff options
| -rw-r--r-- | schedule.ccl | 4 | ||||
| -rw-r--r-- | src/GRHydro_Boundaries.F90 | 6 | ||||
| -rw-r--r-- | src/GRHydro_ParamCheck.F90 | 4 |
3 files changed, 8 insertions, 6 deletions
diff --git a/schedule.ccl b/schedule.ccl index 826ffbd..152de5f 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -218,10 +218,10 @@ schedule GRHydro_ParamCheck AT PARAMCHECK ### Standard symmetry registration ### ###################################### -schedule GRHydro_InitSymBound AT BASEGRID +schedule GRHydro_InitSymBound AT BASEGRID AFTER (ADMBase_SetShiftStateOn,ADMBase_SetShiftStateOff) { LANG: Fortran -} "Schedule symmetries" +} "Schedule symmetries and check shift state" ########################################################## ### Schedule the flux weighting calculation at initial ### 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 diff --git a/src/GRHydro_ParamCheck.F90 b/src/GRHydro_ParamCheck.F90 index ba6e641..2c29d13 100644 --- a/src/GRHydro_ParamCheck.F90 +++ b/src/GRHydro_ParamCheck.F90 @@ -92,10 +92,6 @@ subroutine GRHydro_ParamCheck(CCTK_ARGUMENTS) evolve_MHD = 0 endif - if(shift_state.eq.0) then - call CCTK_PARAMWARN("shift_state = 0 (no shift storage) no longer supported!d"); - endif - if (CCTK_EQUALS(Y_e_evolution_method,"GRHydro")) then evolve_Y_e = 1 else |