fix MAGICC6 on reference run

CHANGELOG.md

@@ -32,6 +32,8 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
     [[#1500](https://github.com/remindmodel/remind/pull/1500)]
 - prevent tradtional biomass spillover to other sectors than buildings
     [[#1519](https://github.com/remindmodel/remind/pull/1519)]
+- fully fix landuse and MAGICC6 variables in delayed transition runs to reference run
+    [[#1565](https://github.com/remindmodel/remind/pull/1565)]
 
 ### removed
 - **45_carbonprice** remove outdated realizations:

scripts/output/single/fixOnRef.R

@@ -37,6 +37,19 @@ findRefMif <- function(outputdir, envi) {
   return(refmif)
 }
 
+fixMAGICC <- function(d, dref, startyear) {
+  magiccgrep <- "^Forcing|^Temperature|^Concentration"
+  message("Fixing MAGICC6 data before ", startyear)
+  dnew <-
+    rbind(
+      filter(dref, grepl(magiccgrep, .data$variable),
+             .data$period < startyear),
+      filter(d, ! grepl(magiccgrep, .data$variable) |
+             .data$period >= startyear)
+    )
+  return(dnew)
+}
+
 fixOnMif <- function(outputdir) {
 
   gdxs    <- file.path(outputdir, "fulldata.gdx")
@@ -64,6 +77,7 @@ fixOnMif <- function(outputdir) {
   refname <- basename(dirname(refmif))
   d <- quitte::as.quitte(mifs)
   dref <- quitte::as.quitte(refmif)
+  d <- fixMAGICC(d, dref, startyear)
   failfile <- file.path(outputdir, "log_fixOnRef.csv")
   fixeddata <- piamInterfaces::fixOnRef(d, dref, ret = "fixed", startyear = startyear, failfile = failfile)