--- trunk/phylmd/CV3_routines/cv3_unsat.f	2014/04/25 14:58:31	97
+++ trunk/phylmd/CV3_routines/cv3_unsat.f	2014/09/04 10:40:24	105
@@ -33,7 +33,7 @@
     real b(nloc,na)
 
     ! local variables
-    integer i,j,k,il,num1
+    integer i,j,il,num1
     real tinv, delti
     real awat, afac, afac1, afac2, bfac
     real pr1, pr2, sigt, b6, c6, revap, tevap, delth