R/IPW_fnc_TatHgivenS.R

In IanPaulWade/MetoceanFunctionsPACKAGE: General Metocean Functions

#' Ian P Wade - May 2019
#'
#' Provides wave period for a fixed wave steepness given wave height
#' used for steepness curves on H/T plots
#'
#' INPUT
#' Hs - significant wave height
#' Ss - required significant steepness
#'
#' OUTPUT
#' associated wave period to obtain required steepness

IPW_fnc_TatHgivenS <- function(Hs, Ss)  {

  g <- 9.81
  Tx <- ((2 * pi * Hs * Ss) / g)^0.5

return(Tx)
}