# Schedule definitions for thorn SWTNS

# Evolved variables
STORAGE: pressuredensity
STORAGE: metricpots
STORAGE: trafo
STORAGE: paramcheck
STORAGE: scalar[2] density[2] velocity[2]
STORAGE: drscalar[2] drvelocity[2]
STORAGE: drdensity[2]
STORAGE: tovradius
STORAGE: scalardot densitydot velocitydot
STORAGE: tovsurface
STORAGE: fluidscalar
#################################################
# Startup and initial
#################################################

SCHEDULE SWTNS_startup AT startup
{
  LANG: C
  OPTIONS: meta
} "Register banner with Cactus"


SCHEDULE SWTNS_register_MoL IN MoL_Register
{
  LANG: C
  OPTIONS: meta
} "Register variables with MoL"


SCHEDULE SWTNS_init AT initial AFTER TOV_C_Exact
{
  LANG: Fortran
} "Initialise the system"

#SCHEDULE SWTNS_inittest IN CCTK_PREREGRID
#{
#  LANG: Fortran
#} "TEST the system"

 
#SCHEDULE SWTNS_regridtest AT CCTK_POSTREGRID AFTER SpatialCoordinates
#{
#  LANG: Fortran
#} "TEST the system"

##################################################
# Calculate the RHS
##################################################
SCHEDULE SWTNS_calc_rhs IN MoL_CalcRHS
{
  LANG: Fortran
} "Calculate the RHS"

#SCHEDULE SWTNS_surface IN MoL_CalcRHS AFTER SWTNS_calc_rhs
#{
#  LANG: Fortran
#} "Calculate TOV radius"


##################################################
# Apply the boundary conditions
##################################################

#SCHEDULE SWTNS_outerboundary IN MoL_PostStep
#{
#  LANG: Fortran
#} "Apply outer boundaries"

#SCHEDULE SWTNS_RHS_outerboundary IN MoL_RHSBoundaries
#{
#  LANG: Fortran
#} "Apply MoL RHS outer boundaries (TOV_surface)"

#SCHEDULE SWTNS_boundaries IN MoL_PostStep AFTER SWTNS_outerboundary
#{
#  LANG: Fortran
#  OPTIONS: level
#  SYNC: scalar density velocity drscalar drvelocity scalardot drdensity densitydot velocitydot
#} "Select the boundary condition"

#SCHEDULE GROUP ApplyBCs AS SWTNS_ApplyBCs IN MoL_PostStep AFTER SWTNS_boundaries
#{
#} "Apply boundary conditions"

##################################################
# Analysis: Frequencies, speed of sound?
##################################################

#if (recalculate_rhs)
#{
#  SCHEDULE SWTNS_calc_rhs AT analysis
#  {
#    LANG: Fortran
#    SYNC: scalardot densitydot
#    STORAGE: scalardot densitydot 
#    TRIGGERS: scalardot densitydot
#  } "Calculate the RHS"
#}

#todo