Changeset 439 for LMDZ.3.3


Ignore:
Timestamp:
Jan 27, 2003, 11:10:09 AM (22 years ago)
Author:
lmdzadmin
Message:

On enleve le test sur le Ri IM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r418 r439  
     1!
     2! $Header$
     3!
     4!
    15      SUBROUTINE coefcdrag (klon, knon, nsrf, zxli, &
    26                            speed, t, q, zgeop, psol, &
    … …  
    7983! on teste zri1 par rapport au Richardson de la 1ere couche ri1
    8084!
     85!IM +++
     86       IF(1.EQ.0) THEN
    8187       IF (okri) THEN
    8288         IF (ri1(i).GE.0.0.AND.zri1(i).LT.0.0) THEN
    … …  
    8692         ENDIF
    8793       ENDIF
     94       ENDIF
     95!IM ---
    8896!
    8997       cdran(i) = (RKAR/log(1.+zdphi(i)/(RG*rugos(i))))**2
Note: See TracChangeset for help on using the changeset viewer.