Changeset 2520


Ignore:
Timestamp:
May 23, 2016, 10:32:55 AM (8 years ago)
Author:
lguez
Message:

Bug fix: icb1 was not made >= 2.

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

Legend:

Unmodified
Added
Removed

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

    r2481 r2520  
    407407
    408408  DO i = 1, len !convect3
    409     icb1(i) = max(icb(i), 2) !convect3
    410     icb1(i) = min(icb(i), nl) !convect3
     409    icb1(i) = min(max(icb(i), 2), nl)
    411410    ! if icb is below LCL, start loop at ICB+1:
    412411    ! (icbs est le premier niveau au-dessus du LCL)

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

    r2508 r2520  
    583583
    584584  DO i = 1, len                                           !convect3
    585     icb1(i) = max(icb(i), 2)                              !convect3
    586     icb1(i) = min(icb(i), nl)                             !convect3
     585    icb1(i) = min(max(icb(i), 2), nl)
    587586! if icb is below LCL, start loop at ICB+1:
    588587! (icbs est le premier niveau au-dessus du LCL)
Note: See TracChangeset for help on using the changeset viewer.