Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3198)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3199)
@@ -2635,8 +2635,13 @@
           ! Calculate the upmost level of deep convection loops: k_upper_cv
           !  (near 22 km)
-          izero = klon/2+1/klon
           k_upper_cv = klev
+          !izero = klon/2+1/klon
+          !DO k = klev,1,-1
+          !   IF (pphi(izero,k) > 22.e4) k_upper_cv = k
+          !ENDDO
+          ! FH : nouveau calcul base sur un profil global sans quoi
+          ! le modele etait sensible au decoupage de domaines
           DO k = klev,1,-1
-             IF (pphi(izero,k) > 22.e4) k_upper_cv = k
+             IF (-7*log(presnivs(k)/presnivs(1)) > 25.) k_upper_cv = k
           ENDDO
           IF (prt_level .ge. 5) THEN