R/uv2wdws.R

In tim-salabim/metvurst: Meteorological Visualisation Utilities Using R (for Science and Teaching)

uv2wdws <- function(u,v) {

  degrees <- function(radians) 180 * radians / pi
    
  mathdegs <- degrees(atan2(v, u))
  wdcalc <- ifelse (mathdegs>0, mathdegs, mathdegs+360)
  wd <- ifelse (wdcalc<270, 270-wdcalc, 270-wdcalc+360)
  wd <- round(wd,2)
  
  ws <- sqrt(u^2 + v^2)
  ws <- round(ws, 2)

  return(as.data.frame(cbind(wd, ws)))

}