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

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-06-16 22:00:10 -0400 (Mon, 16 Jun 2008)
New Revision: 31728

Modified:
   grass-addons/gipe/i.eb.h_SEBAL95/main.c
Log:
Further refining of automatic procedure for avoiding Temperature artifacts

Modified: grass-addons/gipe/i.eb.h_SEBAL95/main.c
===================================================================
--- grass-addons/gipe/i.eb.h_SEBAL95/main.c	2008-06-16 23:42:57 UTC (rev 31727)
+++ grass-addons/gipe/i.eb.h_SEBAL95/main.c	2008-06-17 02:00:10 UTC (rev 31728)
@@ -488,6 +488,7 @@
 			DCELL d_tempk;
 			DCELL d_dem;
 			DCELL d_t0dem;
+			DCELL d_Rn_max=100.0;//for flag 1
 			G_percent(row,nrows,2);
 			if(G_get_raster_row(infd_albedo,inrast_albedo,row,data_type_albedo)<0)
 				G_fatal_error(_("Could not read from <%s>"),albedo);
@@ -596,9 +597,11 @@
 						}
 						if(flag1->answer&&
 						d_tempk>=(double)i_peak3-0.5&&
-						d_tempk<(double)i_peak3+0.5){
+						d_tempk<(double)i_peak3+0.5&&
+						d_Rn>100.0&&d_Rn>d_Rn_max){
 							tempk_max=d_tempk;
 							d_tempk_dry=d_tempk;
+							d_Rn_max=d_Rn;
 							d_Rn_dry=d_Rn;
 							d_g0_dry=d_g0;
 							d_dem_dry=d_dem;