Changeset 2488 for LMDZ5/branches/testing/libf/phylmd/cdrag.F90

Timestamp:

Apr 3, 2016, 12:09:34 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2457:2487 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cdrag.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/cdrag.F90

@@ -180 +180 @@
      zzzcd=CKAP/LOG(1.+zgeop1(i)/(RG*z0m(i)))
      zcdn_m(i) = zzzcd*zzzcd
-     zcdn_h(i) = zzzcd*(CKAP/LOG(1.+zgeop1(i)/(RG*z0m(i))))
+     zcdn_h(i) = zzzcd*(CKAP/LOG(1.+zgeop1(i)/(RG*z0h(i))))
 
      IF (zri(i) .GT. 0.) THEN      ! situation stable