Add routines to copy the three-metric into other variables, so that

more than one timelevels can be accessed.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/CalcK/trunk@4 f47d718b-0e4f-0410-8445-f2f96c8ccefb

1 files changed, 34 insertions, 9 deletions

diff --git a/schedule.ccl b/schedule.ccl
index abd1eb2..53ac01c 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -3,12 +3,37 @@
 
 STORAGE: metric_prev metric_prev2 metric_next
 
-SCHEDULE CalcK AT postinitial
-{
-  LANG: Fortran
-  SYNC: ADMBase::curv
-} "Calculate K_ij from gamma_ij, alpha, and beta^i"
-
-SCHEDULE GROUP ApplyBCs as CalcK_ApplyBCs AT postinitial AFTER CalcK
-{
-} "Apply boundary conditions"
+if (copy_to_prev) {
+  SCHEDULE CalcK_copy_to_prev AT postinitial
+  {
+    LANG: Fortran
+  } "Copy ADMBase::metric to CalcK::metric_prev"
+}
+
+if (copy_to_prev2) {
+  SCHEDULE CalcK_copy_to_prev2 AT postinitial
+  {
+    LANG: Fortran
+  } "Copy ADMBase::metric to CalcK::metric_prev2"
+}
+
+if (copy_to_next) {
+  SCHEDULE CalcK_copy_to_next AT postinitial
+  {
+    LANG: Fortran
+  } "Copy ADMBase::metric to CalcK::metric_next"
+}
+
+if (calc_extcurv) {
+  
+  SCHEDULE CalcK AT postinitial
+  {
+    LANG: Fortran
+    SYNC: ADMBase::curv
+  } "Calculate K_ij from gamma_ij, alpha, and beta^i"
+  
+  SCHEDULE GROUP ApplyBCs as CalcK_ApplyBCs AT postinitial AFTER CalcK
+  {
+  } "Apply boundary conditions"
+  
+}