1
2 /******************************************************************************
3 *
4 * pick_ignite.c pick an ignition based on probability
5 *
6 * Usage: pick_ignite (fuelmoisture)
7 *
8 * Notes: pick_ignite() pick an ignition idetermined by fine fuel moisture
9 * based on the probability simplified from Rothermel (1983): Predicting
10 * ??????????????????
11 * Author: Jianping Xu, Rutgers University
12 * Date: 06/11/1994
13 ******************************************************************************/
14 #include <stdlib.h>
15 #include <limits.h>
16 #include <grass/gis.h>
17 #include "local_proto.h"
18
19 int p[18] = { 100, 100, 100, 90, 80, 70, 60, 50, 40, /*adapt the "average" */
20 40, 30, 30, 20, 20, 20, 10, 10, 10
21 }; /*10-50 shading, 80-89F */
22
pick_ignite(int i)23 int pick_ignite(int i)
24 {
25 return ((100.0 * G_drand48()) <= p[i]);
26 }
27