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

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-07-30 07:31:40 -0400 (Wed, 30 Jul 2008)
New Revision: 32368

Modified:
   grass-addons/gipe/i.eb.h_SEBAL95/main.c
Log:
bug fix altitude temperature correction

Modified: grass-addons/gipe/i.eb.h_SEBAL95/main.c
===================================================================
--- grass-addons/gipe/i.eb.h_SEBAL95/main.c	2008-07-30 09:54:31 UTC (rev 32367)
+++ grass-addons/gipe/i.eb.h_SEBAL95/main.c	2008-07-30 11:31:40 UTC (rev 32368)
@@ -704,7 +704,7 @@
 				(G_is_d_null_value(&d_dT)))){
 					/* do nothing */ 
 				}else{
-					d_t0dem = d_tempk + 0.001649*d_dem;
+					d_t0dem = d_tempk + 0.00649*d_dem;
 					if(d_t0dem<=250.0||d_tempk<=250.0){
 						/* do nothing */ 
 					} else {
@@ -1091,7 +1091,7 @@
 					d_albedo=0.001;
 				}
 				/* Calculate T0dem */
-				d_t0dem = (double)d_tempk + 0.001649 * (double) d_dem;
+				d_t0dem = (double)d_tempk + 0.00649 * (double) d_dem;
 			/*	G_message("**InLoop d_t0dem=%5.3f",d_t0dem);
 				G_message(" d_dem=%5.3f",d_dem);
 				G_message(" d_tempk=%5.3f",d_tempk);