R/nr_inflows.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_inflows
#'
#' @param fulldata data to perform actions on
#' @param fish_PJ_csv ???
#'
#' @author Jan-Philipp Dietrich
nr_inflows<-function(fulldata,fish_PJ_csv="dem_fish_PJ.cs3"){
    budget <- nr_cropland_budget(fulldata)
    t<-getYears(budget)
    out<-budget[,,c("fix_fertilizer","fix_crops","fix_area","SOM_loss","atm_deposition")]
    out<-combine.chunks(out,nr_fish(fish_PJ_csv=fish_PJ_csv)[,t,])
    out<-combine.chunks(out,setNames(dimSums(nr_slaughtered_animals(fulldata)[,,c("grazing_pasture","fuel")],dim=c(3.1,3.2,3.3)),"pasturemeat"))
    out<-as.magpie(out)
    return(out)
}