# Schedule definitions for thorn IVP

if (do_ivp) {

STORAGE: ivp_coeff
COMMUNICATION: ivp_coeff
  schedule IVP_EOSBase at CCTK_INITIAL
  {
    LANG: C
  }"Get handle if using ESO_1D_Interface" 

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

if(ivp_init) {

schedule ivp_init_data at CCTK_INITIAL after InitialEinstein
{
  LANG: Fortran
} "Initialize test data for IVP"

} # end ivp_test.

schedule IVP at CCTK_INITIAL after (InitialFlat,Mahc_Init_Bound)
{
  LANG: Fortran
  STORAGE:ivp_group,ivp_wi_group,scalarc,trace_of_K
  COMMUNICATION:ivp_group,ivp_wi_group,scalarc,trace_of_K
} "solve the IVP at initial"

if(ivp_poststep) {

schedule IVP at CCTK_POSTSTEP
{
  LANG: Fortran
  STORAGE:ivp_group,ivp_wi_group,scalarc,trace_of_K
  COMMUNICATION:ivp_group,ivp_wi_group,scalarc,trace_of_K
} "solve the IVP as a poststep"

} # end ivp_poststep

} # end do_ivp