[GRASS-SVN] r31566 - grass-addons/gipe/r.soiltex2prop

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-05-29 04:27:21 -0400 (Thu, 29 May 2008)
New Revision: 31566

Modified:
   grass-addons/gipe/r.soiltex2prop/prct2hf.c
   grass-addons/gipe/r.soiltex2prop/prct2ksat.c
   grass-addons/gipe/r.soiltex2prop/prct2porosity.c
Log:
bug fix in percentage texture to soil properties conversion

Modified: grass-addons/gipe/r.soiltex2prop/prct2hf.c
===================================================================
--- grass-addons/gipe/r.soiltex2prop/prct2hf.c	2008-05-28 21:15:28 UTC (rev 31565)
+++ grass-addons/gipe/r.soiltex2prop/prct2hf.c	2008-05-29 08:27:21 UTC (rev 31566)
@@ -27,6 +27,10 @@
 		cls[0].clay=0.0;
 		cls[0].silt=0.0;
 	}
+	//transform input from [0,1] to [0,100]
+	sand_input *= 100.0;
+	clay_input *= 100.0;
+	//fill up initial polygon points
 	cls[0].sand=0.0;
 	cls[0].clay=100.0;
 	cls[1].sand=0.0;

Modified: grass-addons/gipe/r.soiltex2prop/prct2ksat.c
===================================================================
--- grass-addons/gipe/r.soiltex2prop/prct2ksat.c	2008-05-28 21:15:28 UTC (rev 31565)
+++ grass-addons/gipe/r.soiltex2prop/prct2ksat.c	2008-05-29 08:27:21 UTC (rev 31566)
@@ -27,6 +27,10 @@
 		cls[0].clay=0.0;
 		cls[0].silt=0.0;
 	}
+	//transform input from [0,1] to [0,100]
+	sand_input *= 100.0;
+	clay_input *= 100.0;
+	//fill up initial polygon points
 	cls[0].sand=0.0;
 	cls[0].clay=100.0;
 	cls[1].sand=0.0;

Modified: grass-addons/gipe/r.soiltex2prop/prct2porosity.c
===================================================================
--- grass-addons/gipe/r.soiltex2prop/prct2porosity.c	2008-05-28 21:15:28 UTC (rev 31565)
+++ grass-addons/gipe/r.soiltex2prop/prct2porosity.c	2008-05-29 08:27:21 UTC (rev 31566)
@@ -24,6 +24,10 @@
 		cls[0].clay=0.0;
 		cls[0].silt=0.0;
 	}
+	//transform input from [0,1] to [0,100]
+	sand_input *= 100.0;
+	clay_input *= 100.0;
+	//fill up initial polygon points
 	cls[0].sand=0.0;
 	cls[0].clay=100.0;
 	cls[1].sand=10.0;