# Schedule definitions for thorn BenchADM
# $Header$


schedule Bench_ParamCheck at CCTK_PARAMCHECK
{
  LANG: C
} "Check parameters"

if (evolution_storage==1)
{
STORAGE:ADM_metric_prev,ADM_curv_prev
}

if (CCTK_Equals(evolution_system,"ADM"))
{
  STORAGE: ADM_metric_prev,ADM_lapse_prev,ADM_curv_prev

  schedule BenchSetSym at CCTK_BASEGRID
  {
    LANG: Fortran
  } "Set grid function symmetries"

  if (store_initial_lapse == 1)
  {
  STORAGE:ADM_initlapse
  }

  schedule BenchRegisterSlicing at CCTK_STARTUP
  {
    LANG: C
  } "Register slicings"

  schedule Bench_PreLoop at CCTK_INITIAL after InitialEinstein
  {
    LANG: Fortran
  }"Setup for ADM"

  if (store_initial_lapse) 
  {
    schedule Bench_alp0_init at CCTK_POSTINITIAL
    {
      LANG: Fortran
    }"Save the lapse function at the initial timestep"
  }
	
  if (CCTK_Equals(method,"stagleap"))
  {
	# Evolve using Staggered Leapfrog

	STORAGE: ADM_curv_stag,ADM_sources,ADM_extrap,ADM_gauge

	schedule Bench_StaggeredLeapfrog1 at CCTK_EVOL
	{
	     LANG: Fortran
        } "Evolve using Staggered Leapfrog (step 1)"

	schedule Bench_StaggeredLeapfrog2 at CCTK_EVOL after Bench_StaggeredLeapfrog1
	{
	     LANG: Fortran
        } "Evolve using Staggered Leapfrog (step 2)"
  }
}