Index: LMDZ6/trunk/libf/phylmd/cv3_routines.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3_routines.f90	(revision 5702)
+++ LMDZ6/trunk/libf/phylmd/cv3_routines.f90	(revision 5703)
@@ -2355,6 +2355,6 @@
 ! ori        do 360 i=1,ncum*nlp
   DO j = 1, nl
-    DO i = 1, ncum
-      nent(i, j) = 0
+    DO il = 1, ncum
+      nent(il, j) = 0
 ! in convect3, m is computed in cv3_closure
 ! ori          m(i,1)=0.0
@@ -2366,9 +2366,9 @@
   DO j = 1, nl
     DO k = 1, nl
-      DO i = 1, ncum
-        qent(i, k, j) = rr(i, j)
-        uent(i, k, j) = u(i, j)
-        vent(i, k, j) = v(i, j)
-        elij(i, k, j) = 0.0
+      DO il = 1, ncum
+        qent(il, k, j) = rr(il, j)
+        uent(il, k, j) = u(il, j)
+        vent(il, k, j) = v(il, j)
+        elij(il, k, j) = 0.0
 !ym            ment(i,k,j)=0.0
 !ym            sij(i,k,j)=0.0
Index: LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90	(revision 5702)
+++ LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90	(revision 5703)
@@ -117,6 +117,6 @@
 ! ori        do 360 i=1,ncum*nlp
   DO j = 1, nl
-    DO i = 1, ncum
-      nent(i, j) = 0
+    DO il = 1, ncum
+      nent(il, j) = 0
 ! in convect3, m is computed in cv3_closure
 ! ori          m(i,1)=0.0
@@ -128,10 +128,10 @@
   DO j = 1, nl
     DO k = 1, nl
-      DO i = 1, ncum
-        Qent(i, k, j) = rr(i, j)
-        uent(i, k, j) = u(i, j)
-        vent(i, k, j) = v(i, j) 
-        elij(i, k, j) = 0.0
-        hent(i, k, j) = 0.0
+      DO il = 1, ncum
+        Qent(il, k, j) = rr(il, j)
+        uent(il, k, j) = u(il, j)
+        vent(il, k, j) = v(il, j) 
+        elij(il, k, j) = 0.0
+        hent(il, k, j) = 0.0
 !AC!            Ment(i,k,j)=0.0
 !AC!            Sij(i,k,j)=0.0