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

1 files changed, 19 insertions, 0 deletions

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,