Index: LMDZ4/trunk/libf/phylmd/calwake.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/calwake.F	(revision 989)
+++ LMDZ4/trunk/libf/phylmd/calwake.F	(revision 990)
@@ -70,5 +70,5 @@
       REAL aire
       REAL p(klon,klev),ph(klon,klev+1),pi(klon,klev)
-      REAL te(klon,klev),qe(klon,klev),omgbe(klon,klev)
+      REAL te(klon,klev),qe(klon,klev),omgbe(klon,klev+1)
       REAL dtdwn(klon,klev),dqdwn(klon,klev)
       REAL dta(klon,klev),dqa(klon,klev)
@@ -94,4 +94,5 @@
       RDCP=1./3.5
 
+
 c-----------------------------------------------------------
 cIM 290108     DO 999 i=1,klon   ! a vectoriser
@@ -119,4 +120,6 @@
       ENDDO
       ENDDO
+
+      omgbe(:,klev+1) = 0.
       
       DO i=1,klon