Ignore:
Timestamp:
Sep 20, 2013, 12:01:19 PM (11 years ago)
Author:
Laurent Fairhead
Message:

Bug correction
FH

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F

    r1848 r1874  
    420420          masse_cum(:,jjb:jje,l)=0.
    421421          flux_u_cum(:,jjb:jje,l)=0.
    422           Q_cum(:,jjb:jje,:,l)=0.
     422          Q_cum(:,jjb:jje,l,:)=0.
    423423          flux_uQ_cum(:,jjb:jje,l,:)=0.
    424424          if (pole_sud) jje=jj_end-1
     
    494494c    -------------
    495495      do iQ=1,nQ
    496         call Register_Hallo_u(Q(1,1,1,iQ),llm,0,1,1,0,Req)
     496        call Register_Hallo_u(Q(1,jjb_u,1,iQ),llm,0,1,1,0,Req)
    497497      enddo
    498498      call SendRequest(Req)
     
    660660      call Register_Hallo_u(masse_cum,llm,1,1,1,1,Req)
    661661      do iQ=1,nQ
    662         call Register_Hallo_u(Q_cum(1,1,1,iQ),llm,0,1,1,0,Req)
     662        call Register_Hallo_u(Q_cum(1,jjb_u,1,iQ),llm,0,1,1,0,Req)
    663663      enddo
    664664
Note: See TracChangeset for help on using the changeset viewer.