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

Timestamp:

Jan 27, 2003, 11:10:09 AM (22 years ago)

Author:

lmdzadmin

Message:

On enleve le test sur le Ri IM

File:

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

LMDZ.3.3/branches/rel-LF/libf/phylmd/coefcdrag.F90

@@ +1 @@
+!
+! $Header$
+!
+!
       SUBROUTINE coefcdrag (klon, knon, nsrf, zxli, &
                             speed, t, q, zgeop, psol, &
@@ -79 +83 @@
 ! on teste zri1 par rapport au Richardson de la 1ere couche ri1 
 !
+!IM +++
+       IF(1.EQ.0) THEN
        IF (okri) THEN
          IF (ri1(i).GE.0.0.AND.zri1(i).LT.0.0) THEN
@@ -86 +92 @@
          ENDIF 
        ENDIF
+       ENDIF
+!IM ---
 ! 
        cdran(i) = (RKAR/log(1.+zdphi(i)/(RG*rugos(i))))**2