trying to get sda.rewind to work to get back to spin up. need to come…

… up with something more intuitive in the future. NOTE: come back to this for lorimer paper because this is a key function for restarting the analysis every year
hangyakuzero · Jan 23, 2020 · 2a0ecfb · 2a0ecfb
1 parent 82fee37
commit 2a0ecfb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/assim.sequential/inst/sda.rewind.R b/modules/assim.sequential/inst/sda.rewind.R
@@ -75,7 +75,7 @@ sda_rewind <- function(settings,run.id,time_to_rewind){
     ANALYSIS[t] <- NULL
     enkf.params[t] <- NULL
 
-    for(i in 1:length(new.state)) new.state[[i]] <- ANALYSIS[[t]][,i]
+    for(i in 1:length(new.state)) new.state[[i]] <- ANALYSIS[[t-1]][,i] #not sure if this should be t or t-1
 
     t = t-1