R/Res_boun_NO2.R

In TreeDep: Air Pollution Removal by Dry Deposition on Trees

#' Res_boun_NO2 - Calculates hourly boundary layer resistance for NO2
#' @param  x A data frame containing hourly data of weather variables (e.g. Hum (\%), Pres (kPa), Precip (mm), Rad (W m-2), Temp (C), Wind (m s-1), Daylight (Night or Daylight))
#' @param  z_0 Roughness length value (m)
#' @return Hourly data of  boundary layer resistance for NO2 (s m-1)
#' @export
#'
#' @examples
#'
#' data(Bizkaia_data)
#' Res_boun_NO2(x = Bizkaia_data, z_0 = 1)
Res_boun_NO2 <- function(x, z_0 = 1){
  db <- x
  k <- 0.41 # von Karman constant
  Sc_NO2 <- 0.98 # Schmidt number
  Pr <- 0.72 # Prandtl number
  u_. <- Fric_vel(db, z_0 = z_0)
  Rb_NO2 <- cbind.data.frame(Dates = u_.$Dates,
                             Resist_bound_NO2 =
                               2*(Sc_NO2^(2/3))*(Pr^(-2/3))*((k*u_.[,"Frict_vel"])^(-1)))
  return(Rb_NO2)
}
#Res_boun_NO2(db)