[GRASS-SVN] r58142 - grass/trunk/raster/r.topmodel

[svn_grass at osgeo.org]

Author: hcho
Date: 2013-11-02 14:38:00 -0700 (Sat, 02 Nov 2013)
New Revision: 58142

Modified:
   grass/trunk/raster/r.topmodel/infiltration.c
Log:
Added accidentally removed code

Modified: grass/trunk/raster/r.topmodel/infiltration.c
===================================================================
--- grass/trunk/raster/r.topmodel/infiltration.c	2013-11-02 20:02:27 UTC (rev 58141)
+++ grass/trunk/raster/r.topmodel/infiltration.c	2013-11-02 21:38:00 UTC (rev 58142)
@@ -12,6 +12,14 @@
     int factorial;
     int i, j;
 
+    /* reset if there is no rainfall */
+    if (R <= 0.0) {
+	cumf = 0.0;
+	f = 0.0;
+	ponding = 0;
+	return 0.0;
+    }
+
     t = timestep * input.dt;
     f1 = cnst = pt = 0.0;
     psi_dtheta = params.psi * params.dtheta;