diff --git a/src/frun_CEMANEIGE.f90 b/src/frun_CEMANEIGE.f90
index 047f2c3212436426858198822803c51a8a05cc9a..959dff227f6a6ef33ee25f002d74df2bd0eed75b 100644
--- a/src/frun_CEMANEIGE.f90
+++ b/src/frun_CEMANEIGE.f90
@@ -184,7 +184,7 @@
             Gratio = MIN(Gratio+(Psol-Melt)/Gacc,1.d0) !Psol - Melt = dG
             IF (Gratio.EQ.1.) Glocalmax = Gthreshold
           ENDIF
-          IF (dG.LT.0.) THEN
+          IF (dG.LE.0.) THEN
             Gratio=MIN(G/Glocalmax,1.d0)
           ENDIF
         ELSE