# Schedule definitions for thorn Mahc_Evolve
# $Header$
# Mahc_Evolve: Numerical Evolution of the General Relativistic Hydro Equations
# Copyright (C) 2001 Mark Miller

if (mahc_evolution==1){

STORAGE:Mahc_evol_vars, Mahc_prim_vars
COMMUNICATION: Mahc_evol_vars, Mahc_prim_vars

schedule MahcSetSym at CCTK_BASEGRID
{
  LANG: Fortran
} "Set grid function symmetries for MAHC"

schedule MahcParam at CCTK_PARAMCHECK before Mahc_Evolve_ParamCheck
{
   LANG: Fortran
} "Set all the control parameters in MAHC"

schedule Mahc_EOSBase at CCTK_PARAMCHECK after MahcParam before Mahc_Evolve_ParamCheck
{
   LANG: C
} "Set all the control parameters in MAHC"

schedule Mahc_Evolve_ParamCheck at CCTK_PARAMCHECK
{
   LANG: C
} "Check parameters for Mach_Evolve"

##
## Set Primative Variables in CCTK_INITIAL
##
   schedule Mahc_Init_Primvar at CCTK_INITIAL after Mahc_Init_Grp
   {
      LANG: Fortran
   }  "Mahc primative variable solve after Mahc_Init_Grp"

##
## Set Boundaries in CCTK_INITIAL
##
   schedule Mahc_Init_Bound at CCTK_INITIAL after Mahc_Init_Primvar
   {
      LANG: Fortran
   }  "Mahc boundary enforcement after Mahc_Init_Grp"


## Evolution stuff

###
### PREDICTOR STEP
###
   schedule Mahc_pred_calc_update in GRHydro 
   {
      LANG: Fortran
   } "Calculate Predictor updates for Mahc"

   schedule Mahc_pred_apply_update in GRHydro after Mahc_pred_calc_update
   {
      LANG: Fortran
   } "Applies Predictor updates for Mahc"

   schedule Mahc_pred_apply_bound in GRHydro after Mahc_pred_apply_update
   {
      LANG: Fortran
   } "Applies boundaries after Predictor updates for Mahc"

   schedule Mahc_pred_primvarsolve in GRHydro after Mahc_pred_apply_bound
   {
      LANG: Fortran
   } "Mahc primative variable solve after Predictor updates "

###
### POST PREDICTOR STEP (used for coupling to icn spacetime)
###
   if(mahc_spacetime_icn)
   {
      schedule Mahc_pred_icn_apply_update in GRHydro after Mahc_pred_apply_bound before Mahc_pred_icn_apply_bound
      {
         LANG: Fortran
      }  "Mahc icn predictor step"

      schedule Mahc_pred_icn_apply_bound in GRHydro after Mahc_pred_icn_apply_update before Mahc_pred_icn_primvarsolve
      {
         LANG: Fortran
      }  "Mahc icn apply boundary step"

      schedule Mahc_pred_icn_primvarsolve in GRHydro after Mahc_pred_icn_apply_bound before Mahc_corr_calc_update
      {
         LANG: Fortran
      }  "Mahc icn primative variable solve"
   }

###
### CORRECTOR STEP
###
   schedule Mahc_corr_calc_update in GRHydro after Mahc_pred_primvarsolve
   {
      LANG: Fortran
   } "Calculate Corrector updates for Mahc"

   schedule Mahc_corr_apply_update in GRHydro after Mahc_corr_calc_update
   {
      LANG: Fortran
   } "Applies Corrector updates for Mahc"

   schedule Mahc_corr_apply_bound in GRHydro after Mahc_corr_apply_update
   {
      LANG: Fortran
   } "Applies boundaries after Corrector updates for Mahc"

   schedule Mahc_corr_primvarsolve in GRHydro after Mahc_corr_apply_bound
   {
      LANG: Fortran
   } "Mahc primative variable solve after Corrector updates "


}

schedule GROUP GRHydro at CCTK_EVOL
{
   STORAGE: Mahc_Del
}   "GR + Hydro Meta Group (Mark is learning object oriented programming!)"