R/nr_fix_area.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_fix_area
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
# biological fixation by free-living organisms
nr_fix_area<-function(fulldata) {
    fixrate<-readGDX(fulldata,name="f51_nr_fix_area", format="first_found")
    kcr<-expand.set(fulldata,"kcr")
    out <- fixrate[,,kcr]*croparea(fulldata,level="reg",crop_aggr=FALSE)
    return(out)
}