R/nr_manure_recycl_cropl.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_manure_recycl_cropl
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_manure_recycl_cropl<-function(fulldata){
    
        manure         <- nr_manure(fulldata)
        recycl_conf       <- readGDX(fulldata, "i55_recycl_conf", format="first_found")[,,"nr"]
        conf_to_cropl_shr <- readGDX(fulldata, "i55_conf_to_cropl_shr", format="first_found") 
        
        out <-  (
            setNames(dimSums(manure[,,"grazing_cropland"],dim=3.1),NULL) 
            + setNames(dimSums(manure[,,"confinement"]*recycl_conf*conf_to_cropl_shr,dim=3.1),NULL)
        )
        
    return(setNames(out,"manure_recycl_cropl"))  
}