# Schedule definitions for thorn Maximal
# $Header$

STORAGE: maximal_coeff, maximal_tmp

SCHEDULE Maximal_ParamCheck AT CCTK_PARAMCHECK
{
  LANG: C
  OPTIONS: global
} "Check that the metric_type is recognised"

schedule MaximalRegisterSlicing at CCTK_STARTUP
{
  LANG: C
  OPTIONS: global
} "Register the slicings in ADM"

# storage/comm is turned on MANUALLY in maximal
# bc this routines checks for the active_slicing_handle
# which we cannot do here.

if (CCTK_Equals(initial_lapse, "maximal"))
{
  schedule initialise_lapse at CCTK_POSTINITIAL before maximal
  {
    LANG: Fortran
  } "Initialise maximal solve."

  schedule maximal as ExternalLapse at CCTK_POSTINITIAL
  {
    LANG: Fortran
    STORAGE: maximal_coeff, maximal_tmp
  } "Set initial lapse to maximal"
}

schedule maximal as ExternalLapse at CCTK_EVOL
{
  LANG: Fortran
} "Solve the maximal equation for the lapse"