Index: /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/screenp.F90
===================================================================
--- /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/screenp.F90	(revision 892)
+++ /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/screenp.F90	(revision 893)
@@ -60,5 +60,6 @@
 ! STABLE CASE
 !
-          IF (speed(i).GT.1.5.AND.lmon(i).LE.1.0) THEN
+          IF (speed(i).GT.1.5.AND.lmon(i).LE.1.0.AND.                   &
+     &                                rugos(i).LE.1) THEN
             delu(i) = (ustar(i)/RKAR)* &
                       (log(zref/(rugos(i))+1.) + &