Index: trunk/LMDZ.COMMON/libf/evolution/glaciers.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/glaciers.F90	(revision 4170)
+++ trunk/LMDZ.COMMON/libf/evolution/glaciers.F90	(revision 4180)
@@ -18,5 +18,5 @@
 ! DEPENDENCIES
 ! ------------
-use numerics, only: dp, di, k4, minieps
+use numerics, only: dp, di, k4, eps
 
 ! DECLARATION
@@ -301,5 +301,5 @@
                     iaval = islope + 1
                 end if
-                do while (iaval /= iflat .and. abs(subslope_dist(ig,iaval)) < minieps)
+                do while (iaval /= iflat .and. abs(subslope_dist(ig,iaval)) < eps)
                     if (iaval > iflat) then
                         iaval = iaval - 1