Changeset 1874 for LMDZ5/trunk/libf

Timestamp:

Sep 20, 2013, 12:01:19 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Bug correction
FH

File:

• LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F

@@ -420 +420 @@
           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 +494 @@
 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 +660 @@
       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