R/fire_intensity.r

In nrcan-cfs-fire/cffdrs: Canadian Forest Fire Danger Rating System

#' Fire Intensity Calculator
#'
#' @description Calculate the Predicted Fire Intensity
#'
#' All variables names are laid out in the same manner as Forestry Canada Fire
#' Danger Group (FCFDG) (1992). Development and Structure of the Canadian Forest
#' Fire Behavior Prediction System." Technical Report ST-X-3, Forestry Canada,
#' Ottawa, Ontario.
#'
#' @param FC  Fuel Consumption (kg/m^2)
#' @param ROS Rate of Spread (m/min)
#'
#' @return FI: Fire Intensity (kW/m)
#' @noRd

fire_intensity <- function(FC, ROS) {
  # Eq. 69 (FCFDG 1992) Fire Intensity (kW/m)
  FI <- 300 * FC * ROS
  return(FI)
}

.FIcalc <- function(...) {
  .Deprecated("fire_intensity")
  return(fire_intensity(...))
}