Changeset 439 for LMDZ.3.3/branches
- Timestamp:
- Jan 27, 2003, 11:10:09 AM (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/coefcdrag.F90
r418 r439 1 ! 2 ! $Header$ 3 ! 4 ! 1 5 SUBROUTINE coefcdrag (klon, knon, nsrf, zxli, & 2 6 speed, t, q, zgeop, psol, & … … 79 83 ! on teste zri1 par rapport au Richardson de la 1ere couche ri1 80 84 ! 85 !IM +++ 86 IF(1.EQ.0) THEN 81 87 IF (okri) THEN 82 88 IF (ri1(i).GE.0.0.AND.zri1(i).LT.0.0) THEN … … 86 92 ENDIF 87 93 ENDIF 94 ENDIF 95 !IM --- 88 96 ! 89 97 cdran(i) = (RKAR/log(1.+zdphi(i)/(RG*rugos(i))))**2
Note: See TracChangeset
for help on using the changeset viewer.