Changeset 555 for trunk


Ignore:
Timestamp:
Mar 2, 2012, 12:16:35 PM (13 years ago)
Author:
acolaitis
Message:

Modif call to yamada4

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/vdifc.F

    r545 r555  
    378378      ELSE
    379379
    380       pt(:,:)=zh(:,:)*ppopsk(:,:)
     380      pt(:,:)=ph(:,:)*ppopsk(:,:)
    381381      CALL yamada4(ngrid,nlay,ptimestep,g,r,pplev,pt
    382      s   ,pzlev,pzlay,pu,pv,ph,zcdv_true,pq2,zkv,zkh,zkq,ust
     382     s   ,pzlev,pzlay,pu,pv,ph,pq,zcdv_true,pq2,zkv,zkh,zkq,ust
    383383     s   ,8)
    384384
Note: See TracChangeset for help on using the changeset viewer.