Index: LMDZ6/trunk/libf/phylmd/cdrag_mod.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cdrag_mod.f90	(revision 5940)
+++ LMDZ6/trunk/libf/phylmd/cdrag_mod.f90	(revision 5941)
@@ -528,6 +528,6 @@
          cdh(i)=MIN(cdhh(i),cdhmax)
        ENDIF
-       z0m = rugos_itm(:,2)
-       z0h = rugos_ith(:,2)
+       z0m(i) = rugos_itm(i,2)
+       z0h(i) = rugos_ith(i,2)
      ELSE ! (nsrf == is_oce)
        zri(i) = zgeop1(i)*(ztvd-ztsolv)/(zdu2*ztvd)