From 0b7643fc76b98910f03328c4128705e0daf67568 Mon Sep 17 00:00:00 2001
From: rhaas <rhaas@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b>
Date: Thu, 1 May 2014 20:19:40 +0000
Subject: support initial_data_is_crop for slow evolved variables

git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@221 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b
---
 src/InitialCopy.c | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/InitialCopy.c b/src/InitialCopy.c
index 4a1a454..c4cfbf4 100644
--- a/src/InitialCopy.c
+++ b/src/InitialCopy.c
@@ -702,6 +702,25 @@ void MoL_FillAllLevels(CCTK_ARGUMENTS)
   }
   
 
+  for (var = 0; var < MoLNumEvolvedVariablesSlow; var++)
+  {
+    CurrentVar = (CCTK_REAL const*)CCTK_VarDataPtrI(cctkGH, 0, 
+                                              EvolvedVariableIndexSlow[var]);
+    for (level = 1; 
+         level < CCTK_ActiveTimeLevelsVI(cctkGH,
+                                         EvolvedVariableIndexSlow[var]); 
+         level++)
+    {
+      PreviousVar = (CCTK_REAL*)CCTK_VarDataPtrI(cctkGH, level, 
+                                                 EvolvedVariableIndexSlow[var]);
+      if (PreviousVar)
+      {   
+        memcpy(PreviousVar, CurrentVar, totalsize * sizeof(CCTK_REAL));
+      }
+    }
+  }
+  
+
   for (var = 0; var < MoLNumConstrainedVariables; var++)
   {
     CurrentVar = (CCTK_REAL const*)CCTK_VarDataPtrI(cctkGH, 0, 
-- 
cgit v1.2.3