4
double biomass(double fpar, double solar_day, double evap_fr,
7
double result, apar, conversion_coefs;
10
/*fPAR in Bastiaassen and Ali = a (= 1.257) * NDVI + b (= -0.161); */
11
/*light use efficiency is variable for each crop! */
12
/* Cotton light_use_ef in Uzbekistan is 1.9 */
14
/* apar = (b+a*ndvi); */
15
conversion_coefs = 0.0864 * 10;
16
apar = fpar * (0.48 * solar_day);
17
result = apar * light_use_ef * evap_fr * conversion_coefs;