R/nr_manure_recycl_past.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_manure_recycl_past
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_manure_recycl_past<-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[,,"confinement"]*recycl_conf*(1-conf_to_cropl_shr),dim=3.1),NULL)
        )
    return(setNames(out,"manure_recycl_past"))
    
}