Index: /LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90
===================================================================
--- /LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90	(revision 5863)
+++ /LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90	(revision 5864)
@@ -139,8 +139,10 @@
 ! Normalize to force total fraction to be equal one
        DO i= 1, klon
-          tmpsum = SUM(pctsrf(i,:))
-          DO nsrf = 1, nbsrf
-             pctsrf(i,nsrf) = pctsrf(i,nsrf) / tmpsum
-          END DO
+         tmpsum = SUM(pctsrf(i,:))
+         IF (tmpsum-1. > 1.e-14) THEN ! avoid rounding erreur that change land fraction
+           DO nsrf = 1, nbsrf
+              pctsrf(i,nsrf) = pctsrf(i,nsrf) / tmpsum
+           END DO
+         ENDIF
        END DO