R/FIcalc.r

In fwi.fbp: Fire Weather Index System and Fire Behaviour Prediction System Calculations

  .FIcalc  <- function(FC,ROS){
     FI   <- 300 * FC * ROS                                                                                                            # /* 69 */
     FI}