Changeset 604 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Mar 28, 2012, 5:46:33 PM (13 years ago)
Author:
acolaitis
Message:

Bug correction in the Ri surface layer. This actually does not change results (or by a few tenth of a Kelvin) because of the way the parametrization depend on the Richardson number, and the range of the variation.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r499 r604  
    159159!     &         /zu2
    160160
    161           rib(ig) = (pg/ph(ig,1))
     161          rib(ig) = (pg/pts(ig))
    162162!     &      *pz(ig,1)*pz0(ig)/sqrt(pz(ig,1)*pz0t)
    163163     &      *sqrt(pz(ig,1)*pz0(ig))
Note: See TracChangeset for help on using the changeset viewer.