User: cott Date: 2011/08/03 12:56 PM
Modified: /trunk/ schedule.ccl /trunk/src/ GRHydro_Boundaries.F90, GRHydro_ParamCheck.F90
Log: * move check of shift_state .ne. 0 to a routine that is scheduled in BASEGRID after ADMBase sets the shift state.
File Changes:
Directory: /trunk/src/ ======================
File [modified]: GRHydro_Boundaries.F90 Delta lines: +6 -0 =================================================================== --- trunk/src/GRHydro_Boundaries.F90 2011-08-03 00:17:00 UTC (rev 260) +++ trunk/src/GRHydro_Boundaries.F90 2011-08-03 17:56:27 UTC (rev 261) @@ -122,6 +122,12 @@ 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
File [modified]: GRHydro_ParamCheck.F90 Delta lines: +0 -4 =================================================================== --- trunk/src/GRHydro_ParamCheck.F90 2011-08-03 00:17:00 UTC (rev 260) +++ trunk/src/GRHydro_ParamCheck.F90 2011-08-03 17:56:27 UTC (rev 261) @@ -92,10 +92,6 @@ 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
Directory: /trunk/ ==================
File [modified]: schedule.ccl Delta lines: +2 -2 =================================================================== --- trunk/schedule.ccl 2011-08-03 00:17:00 UTC (rev 260) +++ trunk/schedule.ccl 2011-08-03 17:56:27 UTC (rev 261) @@ -218,10 +218,10 @@ ### 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 ###