R/calcFertP.R

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

#' Calculate Fertilizer of Phosphor
#' 
#' Provides FertP data for Phosphor.No changes to the content have been done.
#' 
#' 
#' @return Fertilizer data for Phosphor and corresonding weights as a list of
#' two MAgPIE objects
#' @author Lavinia Baumstark
#' @seealso \code{\link{calcOutput}}, \code{\link{readIFA}},
#' \code{\link{convertIFA}}, \code{\link{readSource}}
#' @examples
#' 
#' \dontrun{ 
#' calcOutput("FertP")
#' 
#' }
#' 
calcFertP <- function() {
  x <- readSource("IFA",subtype="consumption")[,,"Grand Total P2O5", drop=TRUE] * 0.4364/1000
   
  return(list(x=x,
              weight=NULL,
              unit="Tg P",
              description="Fertilizer Phosphor (Grand total P205) from IFA"))
}