Changeset 2460 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Mar 9, 2016, 1:21:32 PM (9 years ago)
Author:
fhourdin
Message:

Correction d'une correction sur le coefficent de trainee neutre ...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cdrag.F90

    r2441 r2460  
    180180     zzzcd=CKAP/LOG(1.+zgeop1(i)/(RG*z0m(i)))
    181181     zcdn_m(i) = zzzcd*zzzcd
    182      zcdn_h(i) = zzzcd*(CKAP/LOG(1.+zgeop1(i)/(RG*z0m(i))))
     182     zcdn_h(i) = zzzcd*(CKAP/LOG(1.+zgeop1(i)/(RG*z0h(i))))
    183183
    184184     IF (zri(i) .GT. 0.) THEN      ! situation stable
Note: See TracChangeset for help on using the changeset viewer.