Ignore:
Timestamp:
Jul 5, 2011, 11:44:55 AM (14 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.

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/coefkzmin.F

    r1067 r1550  
    5050      REAL teta(klon,klev)
    5151
    52       REAL km(klon,klev+1)
    53       REAL kn(klon,klev+1)
     52      REAL km(klon,klev)
     53      REAL kn(klon,klev)
    5454      integer knon
    5555

  • LMDZ5/trunk/libf/phylmd/hgardfou.F

    r1279 r1550  
    4545         jbad = 0
    4646         DO i = 1, klon
    47          IF (zt(i).GT.370.0) THEN
     47         IF (zt(i) > 370.) THEN
    4848            jbad = jbad + 1
    4949            jadrs(jbad) = i
Note: See TracChangeset for help on using the changeset viewer.