# Schedule definitions for thorn Mahc_Init_Data
# $Header$
# Mahc_Init_Data: Various Initial Data Routines for Mahc_Evolve
# Copyright (C) 2001 Mark Miller

if(tov_storage == 1)
{
   STORAGE:tov_arr
}

if (CCTK_Equals(initial_data,"shocktube"))
{
  schedule shocktube in Mahc_Init_Grp
  {
    LANG: Fortran
  } "Shocktube initial data"
}

if (CCTK_Equals(initial_data,"tov_iso"))
{
  STORAGE:tov_arr
  schedule tov_iso in Mahc_Init_Grp
  {
    LANG: Fortran
  } "TOV solution in isotropic coordinates"
}

if (CCTK_Equals(initial_data,"boost_star"))
{
  STORAGE:tov_arr
  schedule boost_star in Mahc_Init_Grp
  {
    LANG: Fortran
  } "Boosted TOV solution"
}

if (CCTK_Equals(initial_data,"boost_multiple_star"))
{
  STORAGE:tov_arr
  schedule boost_multiple_star in Mahc_Init_Grp
  {
    LANG: Fortran
  } "Multiple boosted TOV solution"
}

if (CCTK_Equals(initial_data,"test_primvar"))
{
  schedule test_primvar in Mahc_Init_Grp
  {
    LANG: Fortran
  } "Testing the primative variable solver"
}

if (CCTK_Equals(initial_data,"tov_series"))
{
  STORAGE:tov_arr
  schedule tov_series in Mahc_Init_Grp
  {
    LANG: Fortran
  } "Calculate a series of TOV stars"
}


schedule GROUP Mahc_Init_Grp at CCTK_INITIAL
{
}   "Calculate initial data for MAHC"

schedule Mahc_Init_Startup at CCTK_INITIAL before Mahc_Init_Grp
{
   LANG: Fortran
}  "Startup routine to Mahc_Init"

schedule Mahc_ID_EOSBase at CCTK_INITIAL before Mahc_Init_Grp
{ 
   LANG: C
}  "Set up EOS_1D_Base for initial data"