Changeset 1059
- Timestamp:
- Nov 25, 2008, 3:46:40 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/wake.F
r974 r1059 1244 1244 DO i=1, klon 1245 1245 IF ((sigmaw(i).GT.0.9).or. 1246 $ ((wape(i).ge.wape2(i)).and.(wape2(i).le.1.0))) THEN 1246 $ ((wape(i).ge.wape2(i)).and.(wape2(i).le.1.0)).or. 1247 $ (ktopw(i).le.2)) THEN 1248 cIM cf NR/JYG 251108 $ ((wape(i).ge.wape2(i)).and.(wape2(i).le.1.0))) THEN 1247 1249 ccc IF (sigmaw(i).GT.0.9) THEN 1248 1250 dtls(i,k) = 0. … … 2314 2316 2315 2317 IF ((sigmaw.GT.0.9).or. 2316 . ((wape.ge.wape2).and.(wape2.le.1.0))) THEN 2318 . ((wape.ge.wape2).and.(wape2.le.1.0)).or.(ktopw.le.2)) THEN 2319 cIM cf NR/JYG 251108 . ((wape.ge.wape2).and.(wape2.le.1.0))) THEN 2317 2320 c IF (sigmaw.GT.0.9) THEN 2318 2321 DO k = 1,klev
Note: See TracChangeset
for help on using the changeset viewer.