Changeset 2260 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Apr 16, 2015, 4:22:45 PM (10 years ago)
Author:
fhourdin
Message:

Correction.
Bug fixing

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r2259 r2260  
    22452245     ! Calculate the upmost level of deep convection loops: k_upper_cv
    22462246     !  (near 22 km)
    2247    izero = igout
    2248    DO i = 1,klon
    2249      IF (abs(rlatd(i)) < 4.e-2 .AND. abs(rlond(i)) < 4.e-2) izero = i
    2250    ENDDO
    2251 !
     2247   izero = klon/2+1/klon
    22522248   k_upper_cv = klev
    22532249   DO k = klev,1,-1
Note: See TracChangeset for help on using the changeset viewer.