Changeset 2234 for LMDZ5/trunk/libf

Timestamp:

Mar 16, 2015, 5:27:47 PM (9 years ago)

Author:

fhourdin

Message:

Correction d'un bug
Bug fixing

File:

• LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1368 +1368 @@
 !           ycdragm, ycdragh )
 ! Fuxing WANG, 04/03/2015, replace the clcdrag by the merged version: cdrag
-        DO i = 1, klon
+        DO i = 1, knon
+!          print*,'PBL ',i,RD
+!          print*,'PBL ',yt(i,1),ypaprs(i,1),ypplay(i,1)
            zgeo1(i) = RD * yt(i,1) / (0.5*(ypaprs(i,1)+ypplay(i,1))) &
                 * (ypaprs(i,1)-ypplay(i,1))