Changeset 1550 for LMDZ5/trunk/libf/phylmd/coefkzmin.F

Timestamp:

Jul 5, 2011, 11:44:55 AM (13 years ago)

Author:

lguez

Message:

Bug fix in "bilan_dyn_p". The index was out of bounds in the removed
assignment . Also, the removed assignment was useless.

Bug fix in "coefkzmin". The size of a dummy array cannot exceed the
size of the associated actual array. ("coefkzmin" is called by
"coef_diff_turb".) "km(:, klev+1)" and "kn(:, klev+1)" were not
defined in "coefkzmin" so this was maybe an innocuous bug.

File:

• LMDZ5/trunk/libf/phylmd/coefkzmin.F (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/coefkzmin.F

@@ -50 +50 @@
       REAL teta(klon,klev)
 
-      REAL km(klon,klev+1)
-      REAL kn(klon,klev+1)
+      REAL km(klon,klev)
+      REAL kn(klon,klev)
       integer knon