Changeset 2520 for LMDZ5/trunk/libf/phylmd/cv30_routines.F90

Timestamp:

May 23, 2016, 10:32:55 AM (8 years ago)

Author:

lguez

Message:

Bug fix: icb1 was not made >= 2.

File:

• LMDZ5/trunk/libf/phylmd/cv30_routines.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cv30_routines.F90

@@ -407 +407 @@
 
   DO i = 1, len !convect3
-    icb1(i) = max(icb(i), 2) !convect3
-    icb1(i) = min(icb(i), nl) !convect3
+    icb1(i) = min(max(icb(i), 2), nl)
     ! if icb is below LCL, start loop at ICB+1:
     ! (icbs est le premier niveau au-dessus du LCL)