# Schedule definitions for thorn MinDist_Shift
# $Header$


schedule MinDist_resid at CCTK_ANALYSIS
{	
  LANG: Fortran
  STORAGE: mindist_resid
  TRIGGERS: mindist_resid
} "calculate the residual of the minimal distortion equation"

if (CCTK_Equals(shift,"min_dist"))
{
  schedule MinDist_Shift at CCTK_POSTSTEP 
  {
  LANG: Fortran
  STORAGE: mindist_source
  } "Solve the minimal distortion shift"

}