R/calcNitrogenBudgetBalanceflow.R

In pik-piam/moinput: Model Operations Input Data Library

calcNitrogenBudgetBalanceflow<-function(){
  out<-calcOutput("NitrogenBudgetCropland",aggregate = F)

  out<-collapseNames(toolHoldConstantBeyondEnd(out)[,,"balanceflow"])

  out<-convergence(origin = out,aim = 0,start_year = "y2010",end_year = "y2050",type = "s")
  
  return(list(
    x=out,
    weight=NULL,
    unit="Mt Nr",
    description="Balancelfow to account for unrealistically high SNUpEs."))
}