[GRASS-CVS] [addons] r1247 - trunk/grassaddons/gipe/script_generator

grass-commit-addons at grass.itc.it grass-commit-addons at grass.itc.it
Wed Dec 5 07:21:41 EST 2007


Author: chemin
Date: 2007-12-05 13:21:24 +0100 (Wed, 05 Dec 2007)
New Revision: 1247

Modified:
   trunk/grassaddons/gipe/script_generator/l7_in_read.c
Log:
updated after bug fixing

Modified: trunk/grassaddons/gipe/script_generator/l7_in_read.c
===================================================================
--- trunk/grassaddons/gipe/script_generator/l7_in_read.c	2007-12-05 12:12:30 UTC (rev 1246)
+++ trunk/grassaddons/gipe/script_generator/l7_in_read.c	2007-12-05 12:21:24 UTC (rev 1247)
@@ -577,7 +577,7 @@
 	/*Calculate Latitude*/
 	system("echo \"\" >> temp.txt");
 	system("echo \"#LATITUDE, DOY, TSW\" >> temp.txt");
-	snprintf(sys_4,1000,"echo \"i.latitude input=%s.albedo latitude=%s.latitude --overwrite ; r.mapcalc %s.doy=%d ; r.mapcalc %s.tsw=0.7\" >> temp.txt", basedate, basedate, basedate, doy, basedate);
+	snprintf(sys_4,1000,"echo \"i.latitude input=%s.albedo latitude=%s.latitude --overwrite ; i.longitude input=%s.albedo longitude=%s.longitude --overwrite ; r.mapcalc %s.doy=%d ; r.mapcalc %s.tsw=0.7\" >> temp.txt", basedate, basedate, basedate, basedate, basedate, doy, basedate);
 	/*Create a doy layer*/
 	system(sys_4);
 	system("echo \"\" >> temp.txt");
@@ -626,7 +626,7 @@
 	sprintf(sys_11,"echo \"r.mapcalc \"%s.phi=%f\"\" >> temp.txt",basedate,sun_elevation);
 	system(sys_11);
 	system("echo \"\" >> temp.txt");
-	sprintf(sys_12," echo \"i.sattime doy=%s.doy lat=%s.latitude sun_elev=%s.phi sath=%s.sath --overwrite\" >> temp.txt",basedate,basedate,basedate,basedate);
+	sprintf(sys_12," echo \"i.sattime doy=%s.doy lat=%s.latitude long=%s.longitude sun_elev=%s.phi sath=%s.sath --overwrite\" >> temp.txt",basedate,basedate,basedate,basedate,basedate);
 	system(sys_12);
 	sprintf(sys_13," echo \"i.eb.deltat -w tempk=%s.61 delta=%s.delta --overwrite\" >> temp.txt",basedate,basedate);
 	system(sys_13);



More information about the grass-commit mailing list