Index: LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F
===================================================================
--- LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F	(revision 1873)
+++ LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F	(revision 1874)
@@ -420,5 +420,5 @@
           masse_cum(:,jjb:jje,l)=0.
           flux_u_cum(:,jjb:jje,l)=0.
-          Q_cum(:,jjb:jje,:,l)=0.
+          Q_cum(:,jjb:jje,l,:)=0.
           flux_uQ_cum(:,jjb:jje,l,:)=0.
           if (pole_sud) jje=jj_end-1
@@ -494,5 +494,5 @@
 c    -------------
       do iQ=1,nQ
-        call Register_Hallo_u(Q(1,1,1,iQ),llm,0,1,1,0,Req)
+        call Register_Hallo_u(Q(1,jjb_u,1,iQ),llm,0,1,1,0,Req) 
       enddo
       call SendRequest(Req)
@@ -660,5 +660,5 @@
       call Register_Hallo_u(masse_cum,llm,1,1,1,1,Req)
       do iQ=1,nQ
-        call Register_Hallo_u(Q_cum(1,1,1,iQ),llm,0,1,1,0,Req)
+        call Register_Hallo_u(Q_cum(1,jjb_u,1,iQ),llm,0,1,1,0,Req)
       enddo