Changeset 1059 for LMDZ4/trunk/libf

Timestamp:

Nov 25, 2008, 3:46:40 PM (16 years ago)

Author:

lmdzadmin

Message:

Ajout condition supplementaire disparition poche froide (si elle n'atteint pas au - 2eme niveau)
NR/JYG/IM

File:

• LMDZ4/trunk/libf/phylmd/wake.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/wake.F

@@ -1244 +1244 @@
        DO i=1, klon
          IF ((sigmaw(i).GT.0.9).or.
-     $     ((wape(i).ge.wape2(i)).and.(wape2(i).le.1.0))) THEN
+     $     ((wape(i).ge.wape2(i)).and.(wape2(i).le.1.0)).or.
+     $      (ktopw(i).le.2)) THEN
+cIM cf NR/JYG 251108  $     ((wape(i).ge.wape2(i)).and.(wape2(i).le.1.0))) THEN
 ccc      IF (sigmaw(i).GT.0.9) THEN
           dtls(i,k) = 0.
@@ -2314 +2316 @@
 
       IF ((sigmaw.GT.0.9).or.
-     .     ((wape.ge.wape2).and.(wape2.le.1.0))) THEN
+     .     ((wape.ge.wape2).and.(wape2.le.1.0)).or.(ktopw.le.2)) THEN
+cIM cf NR/JYG 251108    .     ((wape.ge.wape2).and.(wape2.le.1.0))) THEN
 c      IF (sigmaw.GT.0.9) THEN
         DO k = 1,klev