Changeset 4649 for LMDZ6/trunk/libf/phylmd/yamada.F90

Timestamp:

Aug 28, 2023, 7:58:11 AM (10 months ago)

Author:

fhourdin

Message:

Supression de depassements de tableaux

Routines non utilisees dans les configurations standard

File:

• LMDZ6/trunk/libf/phylmd/yamada.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/yamada.F90

@@ -128 +128 @@
     l0(ig) = 100.
   END DO
-  DO k = 2, klev - 1
+  DO k = 2, klev
     DO ig = 1, ngrid
       l(ig, k) = l0(ig)*kap*zlev(ig, k)/(kap*zlev(ig,k)+l0(ig))
@@ -139 +139 @@
       sqz(ig) = 1.E-10
     END DO
-    DO k = 2, klev - 1
+    !DO k = 2, klev - 1
+    DO k = 2, klev
       DO ig = 1, ngrid
         q2(ig, k) = l(ig, k)**2*zz(ig, k)