Index: LMDZ4/trunk/libf/phylmd/cv3_routines.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/cv3_routines.F	(revision 990)
+++ LMDZ4/trunk/libf/phylmd/cv3_routines.F	(revision 991)
@@ -1494,5 +1494,5 @@
      :                    ,ph,t,rr,rs,u,v,tra,h,lv,qnk
      :                    ,unk,vnk,hp,tv,tvp,ep,clw,m,sig
-     :   ,ment,qent,uent,vent,sij,elij,ments,qents,traent)
+     :   ,ment,qent,uent,vent,nent,sij,elij,ments,qents,traent)
       implicit none
 
@@ -1525,9 +1525,9 @@
       real ments(nloc,nd,nd), qents(nloc,nd,nd)
       real sigij(nloc,nd,nd)
+      integer nent(nloc,nd)
 
 c local variables:
       integer i, j, k, il, im, jm
       integer num1, num2
-      integer nent(nloc,na)
       real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
       real alt, smid, sjmin, sjmax, delp, delm
Index: LMDZ4/trunk/libf/phylmd/cv3p_mixing.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/cv3p_mixing.F	(revision 990)
+++ LMDZ4/trunk/libf/phylmd/cv3p_mixing.F	(revision 991)
@@ -2,5 +2,5 @@
      :                    ,ph,t,rr,rs,u,v,tra,h,lv,qnk
      :                    ,unk,vnk,hp,tv,tvp,ep,clw,sig
-     :                    ,ment,qent,hent,uent,vent
+     :                    ,ment,qent,hent,uent,vent,nent
      :                   ,sij,elij,supmax,ments,qents,traent)
 ***************************************************************
@@ -43,9 +43,9 @@
       real sigij(nloc,nd,nd)
       real hent(nloc,nd,nd)
+      integer nent(nloc,nd)
 
 c local variables:
       integer i, j, k, il, im, jm
       integer num1, num2
-      integer nent(nloc,na)
       real rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
       real alt, delp, delm
Index: LMDZ4/trunk/libf/phylmd/cva_driver.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/cva_driver.F	(revision 990)
+++ LMDZ4/trunk/libf/phylmd/cva_driver.F	(revision 991)
@@ -737,5 +737,5 @@
      :                       ,ph,t,q,qs,u,v,tra,h,lv,qnk
      :                       ,unk,vnk,hp,tv,tvp,ep,clw,sig
-     :                    ,ment,qent,hent,uent,vent
+     :                    ,ment,qent,hent,uent,vent,nent
      :                   ,sij,elij,supmax,ments,qents,traent)
 !        print*, 'cv3p_mixing-> supmax ', (supmax(1,k), k=1,nd)
@@ -793,5 +793,5 @@
      :                       ,ph,t,q,qs,u,v,tra,h,lv,qnk
      :                       ,unk,vnk,hp,tv,tvp,ep,clw,m,sig
-     o   ,ment,qent,uent,vent,sij,elij,ments,qents,traent)
+     o   ,ment,qent,uent,vent,nent,sij,elij,ments,qents,traent)
          CALL zilch(hent,nloc*klev*klev)
         ELSE