Changeset 604


Ignore:
Timestamp:
Mar 16, 2005, 11:12:17 AM (19 years ago)
Author:
Laurent Fairhead
Message:

Repere par GG
LF

Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F

    r546 r604  
    310310      Q(:,:,:,iang)=ang(:,:,:)
    311311      Q(:,:,:,iu)=unat(:,:,:)
    312       Q(:,:,:,iovap)=q(:,:,:,1)
     312      Q(:,:,:,iovap)=trac(:,:,:,1)
    313313      Q(:,:,:,iun)=1.
    314314
    … …  
    401401c=====================================================================
    402402
    403       print*,'Pas d ecriture'
     403c      print*,'Pas d ecriture'
    404404
    405405c   Normalisation

  • LMDZ4/trunk/libf/dyn3d/bilan_dyn.F

    r566 r604  
    320320      Q(:,:,:,iang)=ang(:,:,:)
    321321      Q(:,:,:,iu)=unat(:,:,:)
    322       Q(:,:,:,iovap)=q(:,:,:,1)
     322      Q(:,:,:,iovap)=trac(:,:,:,1)
    323323      Q(:,:,:,iun)=1.
    324324
Note: See TracChangeset for help on using the changeset viewer.