[Commits] [svn:einsteintoolkit] GRHydro/trunk/ (Rev. 261)

[cott at tapir.caltech.edu]

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 ###