Index: /LMDZ5/trunk/libf/phylmd/fisrtilp.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/fisrtilp.F90	(revision 2884)
+++ /LMDZ5/trunk/libf/phylmd/fisrtilp.F90	(revision 2885)
@@ -325,5 +325,4 @@
   ! BOUCLE VERTICALE (DU HAUT VERS LE BAS)
   !
-  zmqc(1:klon)=0.
   DO k = klev, 1, -1
      !
@@ -369,4 +368,9 @@
                 / (zmair(i)*zcpair + zrfl(i)*dtime*zcpeau)
          end if
+        ENDDO
+     ELSE  ! IF(k.LE.klevm1) 
+        DO i = 1, klon 
+           zmair(i)=(paprs(i,k)-paprs(i,k+1))/RG 
+           zmqc(i) = 0.
         ENDDO
      ENDIF ! end IF(k.LE.klevm1)