# Schedule definitions for thorn IDSWTEcarpet
# $Header$

if (CCTK_EQUALS(initial_data, "charge-TATelliptic-carpet")) {
  
  SCHEDULE IDSWTEcarpet_paramcheck AT paramcheck
  {
    LANG: C
  } "Check parameters"
  
  SCHEDULE IDSWTEcarpet_uniform_charge_pre AT initial
  {
    LANG: C
  } "Calculate uniform charge initial data (prepare)"
  
  SCHEDULE IDSWTEcarpet_uniform_charge_solve AT initial AFTER IDSWTEcarpet_uniform_charge_pre
  {
    LANG: C
    STORAGE: residuals[3]
    OPTIONS: level
  } "Calculate uniform charge initial data, solved with TATelliptic"
  
  SCHEDULE GROUP IDSWTEcarpet_uniform_charge_boundary AS IDSWTEcarpet_uniform_charge_boundary_pre AT initial AFTER IDSWTEcarpet_uniform_charge_pre BEFORE IDSWTEcarpet_uniform_charge_solve
  {
  } "Boundary conditions for inital data"
  
  SCHEDULE GROUP IDSWTEcarpet_uniform_charge_boundary AT initial AFTER IDSWTEcarpet_uniform_charge_solve
  {
  } "Boundary conditions for inital data"
  
  SCHEDULE GROUP IDSWTEcarpet_uniform_charge_boundary AT postrestrictinitial
  {
  } "Boundary conditions for inital data"
  
  SCHEDULE IDSWTEcarpet_uniform_charge_boundary_select IN IDSWTEcarpet_uniform_charge_boundary
  {
    LANG: C
    OPTIONS: level
    SYNC: scalarevolve
  } "Select boundary conditions"
  
  SCHEDULE GROUP ApplyBCs AS IDSWTEcarpet_uniform_charge_boundary_apply IN IDSWTEcarpet_uniform_charge_boundary AFTER IDSWTEcarpet_uniform_charge_boundary_select
  {
  } "Apply boundary conditions"
  
}