R/IPW_fnc_steepnessGivenHT.R

In IanPaulWade/MetoceanFunctionsPACKAGE: General Metocean Functions

#' Ian P Wade - May 2019
#'
#' Provides wave steepness (significant or individual) for given wave height
#' and wave period
#'
#' INPUT
#' H - wave height (sea state (e.g. Hs) or individual (e.g. Hmax))
#' T - wave period (sea state (e.g. Tz, Tp etc.) or individual (e.g. THmax))
#'
#' OUTPUT
#' wave steepness

IPW_fnc_steepnessGivenHT <- function(H,T)  {

  g <- 9.81
  S <- (g * T * T) / ( 2 * pi * H)

  return(S)
}