# Schedule definitions for thorn PsiKadelia
# $Header$

if (ricci_persists) {
  if (ricci_timelevels == 1) {
    STORAGE: RicciScalar[1],RicciComponents[1]
  } else if (ricci_timelevels == 2) {
    STORAGE: RicciScalar[2],RicciComponents[2]
  } else if (ricci_timelevels == 3) {
    STORAGE: RicciScalar[3],RicciComponents[3]
  }
}

if (weyl_persists) {
  if (weyl_timelevels == 1) {
    STORAGE: WeylComponents[1],IJinvariants[1]
  } else if (weyl_timelevels == 2) {
    STORAGE: WeylComponents[2],IJinvariants[2]
  } else if (weyl_timelevels == 3) {
    STORAGE: WeylComponents[3],IJinvariants[3]
  }
}


schedule PsiKadelia_ParamCheck at CCTK_PARAMCHECK
{
  LANG: C
  OPTIONS: global
} "Check parameters"

schedule PsiKadelia_InitSym at CCTK_WRAGH
{
   LANG: Fortran
   OPTIONS: global
} "Set symmetries"

schedule PsiKadelia at CCTK_ANALYSIS
{
   LANG: Fortran
   STORAGE: RicciScalar[1],RicciComponents[1],WeylComponents[1],IJinvariants[1]
   TRIGGERS: RicciScalar,RicciComponents,WeylComponents,IJinvariants
   SYNC: RicciScalar,RicciComponents,WeylComponents,IJinvariants
} "PsiKadelia scalars and invariants"