[GRASS-SVN] r30910 - grass-addons/gipe/i.eb.h_SEBAL95

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-04-09 01:26:47 -0400 (Wed, 09 Apr 2008)
New Revision: 30910

Modified:
   grass-addons/gipe/i.eb.h_SEBAL95/main.c
Log:
Bug fixing

Modified: grass-addons/gipe/i.eb.h_SEBAL95/main.c
===================================================================
--- grass-addons/gipe/i.eb.h_SEBAL95/main.c	2008-04-09 02:36:14 UTC (rev 30909)
+++ grass-addons/gipe/i.eb.h_SEBAL95/main.c	2008-04-09 05:26:47 UTC (rev 30910)
@@ -505,7 +505,7 @@
 			}
 			switch(data_type_DEM){
 				case CELL_TYPE:
-					d_dem = (double) ((CELL *) inrast_DEM)[col_dry];
+					d_dem = (double) ((CELL *) inrast_DEM)[col];
 					break;
 				case FCELL_TYPE:
 					d_dem = (double) ((FCELL *) inrast_DEM)[col];