# Schedule definitions for thorn ADMBase
# $Header$

STORAGE: metric[1], curv[1], lapse[1]

# Initial data for the spatial slices

if(CCTK_Equals(initial_data, "Cartesian Minkowski"))
{
  SCHEDULE ADMBase_CartesianMinkowski at CCTK_INITIAL
  {	
    LANG: C
  } "Set the metric and extrinsic curvature to cartesian minkowski values"
}

# Initial data for the lapse

if(CCTK_Equals(initial_lapse, "one"))
{
  SCHEDULE ADMBase_LapseOne at CCTK_INITIAL
  {	
    LANG: C
  } "Set the lapse to 1 at all points"
}

# Do we have storage for the shift ?
if (!CCTK_Equals(initial_shift,"none")) 
{
  STORAGE: shift[1]

  SCHEDULE ADMBase_SetShiftStateOn at CCTK_BASEGRID
  {	
    LANG: C
  } "Set the shift_state variable to 1"
}
else
{
  SCHEDULE ADMBase_SetShiftStateOff at CCTK_BASEGRID
  {	
    LANG: C
  } "Set the shift_state variable to 0"
}

# Initial data for the shift

if(CCTK_Equals(initial_shift, "zero"))
{
  SCHEDULE ADMBase_ShiftZero at CCTK_INITIAL
  {	
    LANG: C
  } "Set the shift to 0 at all points"
}

# FIXME: Remove this when symmetries done better 
schedule Einstein_InitSymBound at CCTK_BASEGRID
{
  LANG: C
} "Set up GF symmetries"