[GRASS-SVN] r30877 - grass-addons/gipe/i.dn2potrad.l5

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-04-06 05:04:03 -0400 (Sun, 06 Apr 2008)
New Revision: 30877

Modified:
   grass-addons/gipe/i.dn2potrad.l5/main.c
Log:
Fixed i.dn2potar.l5, tested it too.

Modified: grass-addons/gipe/i.dn2potrad.l5/main.c
===================================================================
--- grass-addons/gipe/i.dn2potrad.l5/main.c	2008-04-06 04:34:56 UTC (rev 30876)
+++ grass-addons/gipe/i.dn2potrad.l5/main.c	2008-04-06 09:04:03 UTC (rev 30877)
@@ -644,11 +644,10 @@
 			d_rnetd 	= r_net_day(d_albedo,d_solar,tsw );
 			d_tempk		= dout[5];
 			d_etpot		= et_pot_day(d_albedo,d_solar,d_tempk,tsw,roh_w);
-//			d_etpot		= d_solar;
 			// End of process regular data
 
 			// write output to file
-			((DCELL *) outrast[0])[col] = d_solar;
+			((DCELL *) outrast[0])[col] = d_etpot;
 			// End of write output to file
 		}
 		if (G_put_raster_row (outfd[0], outrast[0], out_data_type) < 0)