Changeset 1669 for LMDZ5/branches/testing/libf/phylmd/wake.F

Timestamp:

Oct 16, 2012, 2:41:50 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1668

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

---

Testing release based on r1668

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/wake.F (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/wake.F

@@ -561 +561 @@
       ENDDO
 
-c      On evite kupper = 1
+c      On evite kupper = 1 et kupper = klev
       DO i=1,klon
         kupper(i) = max(kupper(i),2)
+        kupper(i) = min(kupper(i),klev-1)
       ENDDO