Changeset 1624 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Nov 4, 2016, 12:18:03 PM (8 years ago)
Author:
emillour
Message:

Venus GCM:
Bug fix in clmain.
EM+SL

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

    r1621 r1624  
    10271027        modgam(i,k) = 0.
    10281028       if (pplay(i,k).gt.p_lim) then
    1029            modgam(i,k) = 0.56/(log(p_ref)-log(p_lim))/R
     1029           modgam(i,k) = 0.56E-3/(log(p_ref)-log(p_lim))/R
    10301030       endif
    10311031      ENDDO
Note: See TracChangeset for help on using the changeset viewer.