Index: LMDZ6/trunk/libf/phylmd/thermcell_down.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/thermcell_down.F90	(revision 4350)
+++ LMDZ6/trunk/libf/phylmd/thermcell_down.F90	(revision 4351)
@@ -1,4 +1,4 @@
    SUBROUTINE thermcell_down(ngrid,nlay,po,pt,pu,pv,pplay,  &
-     &           pplev,lmax,fup,eup,dup)
+     &           pplev,deltaz,lmax,fup,eup,dup)
 
 !--------------------------------------------------------------
@@ -14,7 +14,7 @@
 
    integer,intent(in) :: ngrid,nlay
-   real,intent(in), dimension(ngrid,nlay) :: po,pt,pu,pv,pplay,eup,dup
+   real,intent(in), dimension(ngrid,nlay) :: po,pt,pu,pv,pplay,eup,dup,deltaz
    real,intent(in), dimension(ngrid,nlay+1) :: pplev,fup
-   integer, intent(out), dimension(ngrid) :: lmax
+   integer, intent(in), dimension(ngrid) :: lmax
 
 
@@ -38,8 +38,9 @@
    ! Pas évident qu'on veuille conserver ce choix
 
+   print*,'LMAX ',lmax(1)
    do ilay=nlay+1,1,-1
       do ig=1,ngrid
          if (ilay.le.lmax(ig)) then
-            edn(ig,ilay)=0.5*dup(ig,ilay)
+            edn(ig,ilay)=0.5*dup(ig,ilay)*deltaz(ig,ilay)
             ddn(ig,ilay)=0.
             fdn(ig,ilay)=-(-fdn(ig,ilay+1)+edn(ig,ilay)-ddn(ig,ilay))
Index: LMDZ6/trunk/libf/phylmd/thermcell_main.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/thermcell_main.F90	(revision 4350)
+++ LMDZ6/trunk/libf/phylmd/thermcell_main.F90	(revision 4351)
@@ -460,5 +460,5 @@
       print*,'WARNING !!! routine thermcell_down en cours de developpement'
       CALL thermcell_down(ngrid,nlay,po,pt,pu,pv,pplay,  &
-     &           pplev,lmax,fm,entr,detr)
+     &           pplev,deltaz,lmax,fm,entr,detr)
 #endif