R/calcbw.R

In ChHaeni/bLSmodelR: bLSmodelR - An atmospheric dispersion model in R

Defines functions calcbw

Documented in calcbw

calcbw <- function(sigmaWustar,zL){
	phiW <- ifelse(zL<0,
		(1 - 3*zL)^(1/3),
		rep(1,length(zL))
	)
	return(sigmaWustar/phiW)
}