R/S3-Terrain.R

In holstius/Rcaline: Line source dispersion modeling using CALINE

#' Construct a Terrain object.
#'
#' @param surfaceRoughness
#' @return a Terrain object
#' @keywords terrain model
#' @export
Terrain <- function(surfaceRoughness) {
      obj <- list(
            surfaceRoughness = surfaceRoughness
      )
      class(obj) <- "Terrain"
      return(obj)
}