Index: LMDZ4/trunk/libf/phylmd/clcdrag.F90
===================================================================
--- LMDZ4/trunk/libf/phylmd/clcdrag.F90	(revision 1070)
+++ LMDZ4/trunk/libf/phylmd/clcdrag.F90	(revision 1071)
@@ -27,15 +27,18 @@
 ! pcfh---output-R- cdrag pour les flux de chaleur latente et sensible
 !
-      INTEGER, intent(in) :: klon, knon, nsrf
-      LOGICAL, intent(in) :: zxli
-      REAL, intent(in), dimension(klon) :: u, v, t, q, zgeop
-      REAL, intent(in), dimension(klon) :: ts, qsurf
-      REAL, intent(in), dimension(klon) :: rugos
-      REAL, intent(out), dimension(klon) :: pcfm, pcfh
+  INTEGER, INTENT(IN)                      :: knon, nsrf
+  REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
+  REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, t1, q1
+  REAL, DIMENSION(klon), INTENT(IN)        :: tsurf, qsurf
+  REAL, DIMENSION(klon), INTENT(IN)        :: rugos
+  REAL, DIMENSION(klon), INTENT(OUT)       :: pcfm, pcfh
+!
 ! ================================================================= c
 !
-      INCLUDE "YOMCST.h"
-      INCLUDE "YOETHF.h"
-      INCLUDE "indicesol.h"
+  INCLUDE "YOMCST.h"
+  INCLUDE "YOETHF.h"
+  INCLUDE "indicesol.h"
+  INCLUDE "clesphys.h"
 !
 ! Quelques constantes et options: