# Schedule definitions for thorn Einstein
# $Header$

STORAGE: metric, curv, lapse

if (!CCTK_Equals(shift,"none")) 
{
  STORAGE: shift
}

if (use_conformal) {
  STORAGE: confac
}

if (use_conformal_derivs) {
  STORAGE: confac_1derivs,confac_2derivs
}

schedule Einstein_InitSymBound at CCTK_BASEGRID
{
  LANG: Fortran
} "Set up symmetries for Einstein GFs"
 
schedule initial at CCTK_INITIAL
{
  LANG: Fortran
} "Initialisation for Einstein methods"

schedule evaltrK at CCTK_ANALYSIS
{
  STORAGE: trace_of_K,detofg
  LANG: Fortran
  TRIGGERS: trK,detg
} "Compute the trace of the extrinsic curvature"

schedule metric_carttosphere at CCTK_ANALYSIS
{
  STORAGE: spherical_metric
  LANG: Fortran
  TRIGGERS: grr,grp,grq,gpp,gqp,gqq
} "Calculate the spherical metric in r,theta(q), phi(p)"

schedule curv_carttosphere at CCTK_ANALYSIS
{
  STORAGE: spherical_curv
  LANG: Fortran
  TRIGGERS: hrr,hrp,hrq,hpp,hqp,hqq
} "Calculate the spherical ex. curvature in r, theta(q), phi(p)"

if (use_courant) 
{
#  schedule CalcCourant at CCTK_PRESTEP
#  {
#   LANG: C
#  } "Calculate the timestep base on the Courant condition"
}