[GRASS-SVN] r31413 - grass-addons/gipe/i.evapo.SENAY

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-05-18 11:42:22 -0400 (Sun, 18 May 2008)
New Revision: 31413

Modified:
   grass-addons/gipe/i.evapo.SENAY/solar_day.c
Log:
minor bug fixing

Modified: grass-addons/gipe/i.evapo.SENAY/solar_day.c
===================================================================
--- grass-addons/gipe/i.evapo.SENAY/solar_day.c	2008-05-18 12:46:59 UTC (rev 31412)
+++ grass-addons/gipe/i.evapo.SENAY/solar_day.c	2008-05-18 15:42:22 UTC (rev 31413)
@@ -13,8 +13,7 @@
 
 
 	ds = 1.0 + 0.01672 * sin(2*PI*(doy-93.5)/365.0);
-	delta = 0.4093*sin((2*PI*doy/365)-1.39);
-	deltarad = delta*PI/180.0;
+	deltarad = 0.4093*sin((2*PI*doy/365)-1.39);
 	latrad =  lat * PI / 180.0;
 	
 	ws = acos(-tan(latrad)*tan(deltarad));