R/nbSteps.R

In nexModeling/dddCelerity: Compute the sub-surface celerity and the delay steps in the hydrological model ddd

#' nbSteps
#'
#'  calculates the delay-steps for each level
#' @param maxL max distance (from distance distribution, dd)
#' @param speed celerity (meter per second)
#' @param Timeresinsec time resolution of the process in second (1hour: 3600s, ... etc)
#' @keywords celerity
#' @export
#' @examples
#' \dontrun{
#' nbSteps()
#' }
nbSteps <-function(maxL,speed,Timeresinsec) {
  res <- trunc(maxL/(speed*Timeresinsec))+1
  return(res)
}