R/coriolis.R

Defines functions coriolis_b coriolis_f

Documented in coriolis_b coriolis_f

coriolis_f <- function(lat, rad = FALSE){

  checks <- makeAssertCollection()

  assert_numeric(lat,lower = -90, upper = 90,add = checks)
  assert_logical(rad, add = checks)

  reportAssertions(checks)

  if(!rad){
    lat <- lat / 180 * pi
  }

  return(2* 7.2921e-5 *sin(lat))
}

coriolis_b <- function(lat, a = 6371000, rad = FALSE){

  checks <- makeAssertCollection()

  assert_numeric(lat,lower = -90, upper = 90,add = checks)
  assert_logical(rad, add = checks)
  assert_numeric(a, len = 1, finite = TRUE,add = checks)

  reportAssertions(checks)

  if(!rad){
    lat <- lat / 180 * pi
  }

  return(2* 7.2921e-5 *cos(lat)/a)
}
santiagoh719/ClimFunctions documentation built on June 2, 2020, 12:05 a.m.