R/get.P.R

In gholtgrieve/gassyPants: Functions Useful for Working With Gasses Dissolved in Water

#' @title Calculates in situ gross primary production (umol/L/timestep)
#' @description Calculates in situ gross primary production as a function of PAR
#' and estimated slpoe of the P-I curve (alphaPI).
#' @usage get.P(PAR, alphaPI)
#' @param PAR
#' @param alphaPI
#' @return Numeric vector of instantaneous gross primary production.
#' @references Holtgrieve et al. (2010) Limn. Ocean. 55 (3): 1047–106
#' @author Gordon W. Holtgrieve (gholt@uw.edu)
#'@export

get.P	<-	function(PAR, alphaPI){
  # alphaPI is passed with units of umol/L/timestep/uE
  P <- alphaPI * PAR  # Final units are umol/L/timestep
  return(P)
}