Changeset 1071

Timestamp:

Jan 11, 2009, 11:40:07 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Mauvaise integration des modifications faites sous cvs
LF

File:

• LMDZ4/trunk/libf/phylmd/clcdrag.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/clcdrag.F90

@@ -27 +27 @@
 ! 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: