Index: LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90	(revision 2263)
+++ LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90	(revision 2264)
@@ -208,12 +208,11 @@
 
 ELSE IF (iflag_z0_oce==1) THEN
-    DO i = 1, knon
-       tmp = MAX(cepdu2,u1(i)**2+v1(i)**2)
-       z0m(i) = 0.018*cdragm(i) * (u1(i)**2+v1(i)**2)/RG  &
-            +  0.11*14e-6 / SQRT(cdragm(i) * tmp)
-       z0m(i) = MAX(1.5e-05,z0m(i))
-       z0h(i)=0.62*14e-6 / SQRT(cdragm(i) * tmp)
-    ENDDO  
-
+    DO i = 1, knon
+       tmp = MAX(cepdu2,u1(i)**2+v1(i)**2)
+       z0m(i) = 0.018*cdragm(i) * (u1(i)**2+v1(i)**2)/RG  &
+            + 0.11*14e-6 / SQRT(cdragm(i) * tmp)
+       z0m(i) = MAX(1.5e-05,z0m(i))
+       z0h(i)=0.62*14e-6 / SQRT(cdragm(i) * tmp)
+    ENDDO
 ELSE
        STOP'version non prevue'