--- trunk/Sources/dyn3d/etat0.f	2017/02/27 15:44:55	213
+++ trunk/Sources/dyn3d/etat0.f	2017/03/22 13:40:27	214
@@ -269,7 +269,7 @@
     ! Ad\'equation avec le maque terre/mer
     WHERE (pctsrf(:, is_lic) < EPSFRA) pctsrf(:, is_lic) = 0.
     WHERE (zmasq < EPSFRA) pctsrf(:, is_lic) = 0.
-    pctsrf(:, is_ter) = zmasq
+    where (zmasq <= EPSFRA) pctsrf(:, is_ter) = zmasq
     where (zmasq > EPSFRA)
        where (pctsrf(:, is_lic) >= zmasq)
           pctsrf(:, is_lic) = zmasq