R/calcLimitCCS.R

In pik-piam/mrremind: MadRat REMIND Input Data Package

calcLimitCCS <- function(){
  
  # Read capacity factor inputs
  data <- readSource("REMIND_11Regi",subtype="ccs")

  # add dimensions that are the same for all regions but a dimension of the parameter in the GAMS code
  getNames(data) <- "quan"
  data <- add_dimension(data, dim=3.2, add="rlf",nm="1")
  
  # overwrite values for regions that belong to EUR and NEU
  data_ccs_storage_potential <- readSource("CCS_StoragePotential")
  eur.34 <- c("ALA","AUT","BEL","BGR","HRV","CYP","CZE","DNK","EST","FRO","FIN","FRA","DEU","GIB","GRC","GGY","HUN","IRL","IMN","ITA","JEY","LVA","LTU","LUX","MLT","NLD","POL","PRT","ROU","SVK","SVN","ESP","SWE","GBR")
  non.eu <- c('ALB','AND','BIH','GRL','VAT','ISL','LIE','MKD','MCO','MNE','NOR','SMR','SRB','SJM','CHE','TUR')
  overwrite <- c(eur.34,non.eu)
  data[overwrite,,] <- data_ccs_storage_potential[overwrite,,]
  
  return(list(x           = data, 
              weight      = NULL,
              unit        ="GtC", 
              description ="maximum CO2 storage capacity using CCS technology"              
  ))
  
}