R/depth_from_known.R

In edwardlavender/fvcom.tbx: An R Toolbox for the Unstructured Grid Finite Volume Community Ocean Model (FVCOM)

#' @title Calculate the depths of Sigma layers with known inputs
#' @description The depth of Sigma layers can be calculated from the depth of the seabed below mean sea level (in a given location), the tidal elevation (at a given time and in a given location) and a vector of constants which adjusts for the relative position of each layer. If these values are known, \code{\link[fvcom.tbx]{depth_from_known}} can be implemented to calculate the depth of Sigma layers. If these values are unknown, the function \code{\link[fvcom.tbx]{depth_from_unknown}} should be used instead: this function first computes the appropriate values for specified times/locations and then uses these values to calculate depths.
#'
#' @param siglev A number or numeric vector of siglev values.
#' @param h A number or numeric vector of depth below mean sea level.
#' @param el A number of numeric vector of tidal elevation values.
#'
#' @return The function returns a number/numeric vector of Sigma layer depths calculated from user inputs.
#'
#' @examples
#'
#' #### Examples
#' depth_from_known(dat_siglev$siglev[1:10], dat_h$h[1], el = 0)
#' depth_from_known(dat_siglev$siglev[10], dat_h$h[1:10], el = 0)
#' depth_from_known(dat_siglev$siglev[1:10], dat_h$h[1:10], el = 1:10)
#' # Be careful with how arguments are recyled: the function may need to be implemented using apply()
#' # ... in more complex cases, like here:
#' \dontrun{
#'  depth_from_known(dat_siglev$siglev[1:10], dat_h$h[1:3], el = 1:3)
#' }
#'
#' @author Edward Lavender
#' @export
#'

depth_from_known <-
  function(siglev, h, el){
    siglev * (h + el)
  }