Ignore:
Timestamp:
May 28, 2001, 12:12:41 PM (24 years ago)
Author:
lmdz
Message:

Bug sur la vitesse verticale. P LeVan?
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/calfis.F

    r37 r221  
    312312c
    313313      DO l=1,llm
    314         pvervel(1,l)=pw(1,1,l)/apoln
     314        pvervel(1,l)=pw(1,1,l) * g /apoln
    315315        ig0=2
    316316       DO j=2,jjm
    317317           DO i = 1, iim
    318               pvervel(ig0,l) = pw(i,j,l) * unsaire(i,j)
     318              pvervel(ig0,l) = pw(i,j,l) * g * unsaire(i,j)
    319319              ig0 = ig0 + 1
    320320           ENDDO
    321321       ENDDO
    322         pvervel(ig0,l)=pw(1,jjp1,l)/apols
     322        pvervel(ig0,l)=pw(1,jjp1,l) * g /apols
    323323      ENDDO
    324324
Note: See TracChangeset for help on using the changeset viewer.