Changeset 341 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Feb 27, 2002, 3:58:43 PM (23 years ago)

Author:

lmdzadmin

Message:

Quelques problemes dans les modifs de Jan et Ionela
Lf

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F

@@ -1176 +1176 @@
 c Calculer le frottement au sol (Cdrag)
 c
-      CALL clcdrag(knon, nsrf, is_oce, zxli, u, v, t, q, zgeop,
+      CALL clcdrag(knon, nsrf, zxli, u, v, t, q, zgeop,
      .             ts, qsurf, rugos, pcfm, pcfh, zcdn, zri)
 c
@@ -1298 +1298 @@
       END
 
-      SUBROUTINE clcdrag(knon, nsrf, is_oce, zxli, 
+      SUBROUTINE clcdrag(knon, nsrf, zxli, 
      .                   u, v, t, q, zgeop, 
      .                   ts, qsurf, rugos,
@@ -1310 +1310 @@
 #include "dimphy.h"
 #include "YOMCST.h"
+#include "YOETHF.h"
 #include "indicesol.h"
 c
-      INTEGER knon, nsrf, is_oce
+      INTEGER knon, nsrf
       REAL ts(klon), qsurf(klon)
       REAL u(klon,klev), v(klon,klev), t(klon,klev), q(klon,klev)