diff --git a/Boreal_LBMRDataPrep.R b/Boreal_LBMRDataPrep.R
index 020b8cd..65f1147 100644
--- a/Boreal_LBMRDataPrep.R
+++ b/Boreal_LBMRDataPrep.R
@@ -578,6 +578,7 @@ Save <- function(sim) {
                                userTags = c(cacheTags, "specieslayers"))
 
     #options(opts)
+    writeRaster(specieslayersList$specieslayers, file.path(outputPath(sim), "speciesLayers.grd"))
     sim$specieslayers <- specieslayersList$specieslayers
     sim$speciesList <- specieslayersList$speciesList
   }