# Schedule definitions for thorn NHTWNN
# $Header$

if (CCTK_Equals(evolution_system,"NHTWNN"))
{
  STORAGE: hydro, potential
  COMMUNICATION: hydro,potential

  schedule Newt_SetSym at CCTK_BASEGRID
{
  LANG: Fortran
} "Set grid functions symmetries"


  schedule Newt_Initial_Data at CCTK_INITIAL
  {
    LANG: Fortran
  } "Create standard initial data for evolution"

if (CCTK_Equals(rotate,"yes"))
{

   schedule Newt_RotateEquilibrium at CCTK_POSTINITIAL before Newt_Perturbation
  {
   STORAGE: rotate,elliptic
   COMMUNICATION: rotate,elliptic
   LANG: Fortran
  } "Create rotating data"
}

if (CCTK_Equals(perturb,"yes"))
{
   schedule Newt_Perturbation at CCTK_POSTINITIAL   
  {
    STORAGE: rotate
    COMMUNICATION: rotate		
    LANG: Fortran
  } "Create perturbed data"
}

   schedule Newt_Evolve_PRoe at CCTK_EVOL
  {
    STORAGE: temps,elliptic
    COMMUNICATION: elliptic
    LANG: Fortran
  } "Evolve the Newtonian data with a Roe method with primitive variable interpolation"

  schedule Newt_Prim_Var_Global at CCTK_POSTSTEP
  {
    LANG: Fortran
  } "Solve for the primitive variables from the evolved variables"


if (CCTK_Equals(new_analysis,"yes"))
{
  schedule Newt_Analysis at CCTK_POSTSTEP after Newt_Prim_Var_Global  
  {
   LANG: Fortran
  } "calculate M, energy..etc"
}

}