diff --git a/src/frun_CEMANEIGE.f90 b/src/frun_CEMANEIGE.f90
index 959dff227f6a6ef33ee25f002d74df2bd0eed75b..69f8e8ffc4be7736169532be33e882b1ef70ff0d 100644
--- a/src/frun_CEMANEIGE.f90
+++ b/src/frun_CEMANEIGE.f90
@@ -60,7 +60,7 @@
 
 
 
-      
+
 
 
       Implicit None
@@ -183,8 +183,7 @@
           IF (dG.GT.0.) THEN
             Gratio = MIN(Gratio+(Psol-Melt)/Gacc,1.d0) !Psol - Melt = dG
             IF (Gratio.EQ.1.) Glocalmax = Gthreshold
-          ENDIF
-          IF (dG.LE.0.) THEN
+          ELSE
             Gratio=MIN(G/Glocalmax,1.d0)
           ENDIF
         ELSE