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

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-05-01 05:42:14 -0400 (Thu, 01 May 2008)
New Revision: 31190

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

Modified: grass-addons/gipe/i.evapo.potrad/main.c
===================================================================
--- grass-addons/gipe/i.evapo.potrad/main.c	2008-05-01 08:16:43 UTC (rev 31189)
+++ grass-addons/gipe/i.evapo.potrad/main.c	2008-05-01 09:42:14 UTC (rev 31190)
@@ -108,7 +108,7 @@
 	input5 = G_define_standard_option(G_OPT_R_INPUT) ;
 	input5->key        =_("tsw");
 	input5->required   = NO;
-	input5->description=_("Name of the single-way transmissivity map [0.05-1.0], use without -b flag, defaults to 0.7 if no -b and no input file");
+	input5->description=_("Name of the single-way transmissivity map [0.05-1.0], defaults to 1.0 if no input file");
 	input5->guisection = _("Optional");
 
 	input6 = G_define_option() ;
@@ -491,7 +491,7 @@
 					if(input5->answer){
 						/*do nothing, there is tsw input*/
 					} else {
-						d_tsw = 0.7;
+						d_tsw = 1.0;
 					}
 					d_rnetd = r_net_day(d_albedo,d_solar,d_tsw);
 				}
@@ -499,6 +499,9 @@
 					outrast2[col] = d_rnetd;
 				}
 				d = et_pot_day(d_rnetd,d_tempk,roh_w);
+				if(input5->answer&&flag3->answer){
+					d = d * d_tsw;
+				}
 				outrast1[col] = d;
 			}
 		}