[GRASS-SVN] r31575 - grass-addons/gipe/i.eb.g0

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-05-30 04:03:20 -0400 (Fri, 30 May 2008)
New Revision: 31575

Modified:
   grass-addons/gipe/i.eb.g0/g0.c
Log:
bug fixing

Modified: grass-addons/gipe/i.eb.g0/g0.c
===================================================================
--- grass-addons/gipe/i.eb.g0/g0.c	2008-05-30 07:27:51 UTC (rev 31574)
+++ grass-addons/gipe/i.eb.g0/g0.c	2008-05-30 08:03:20 UTC (rev 31575)
@@ -17,7 +17,7 @@
 		r0_coef = 1.0;
 	}
 	a = (0.0032 * (bbalb/r0_coef) + 0.0062 * (bbalb/r0_coef) * (bbalb/r0_coef));
-	b = (1 - 0.978 * ndvi);
+	b = (1 - 0.978 * pow(ndvi,4));
 	
 	// Spain (Bastiaanssen, 1995)
 	result = (rnet * (tempk-273.15) / bbalb) * a * b ;