[GRASS-SVN] r31407 - grass-addons/gipe/i.evapo.potrad

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-05-18 03:48:49 -0400 (Sun, 18 May 2008)
New Revision: 31407

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

Modified: grass-addons/gipe/i.evapo.potrad/solar_day.c
===================================================================
--- grass-addons/gipe/i.evapo.potrad/solar_day.c	2008-05-18 05:02:37 UTC (rev 31406)
+++ grass-addons/gipe/i.evapo.potrad/solar_day.c	2008-05-18 07:48:49 UTC (rev 31407)
@@ -12,8 +12,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));