Index: /trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90
===================================================================
--- /trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90	(revision 1658)
+++ /trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90	(revision 1659)
@@ -221,5 +221,5 @@
         ratio_mod(k,l) = 1.
 ! ATM PROFONDE DESACTIVEE !
-        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
+        if (   (1 .EQ. 0)  .AND.(ypk(k,l).gt.ypklim)) then
 	   ratio_mod(k,l) = mmm0 /                                      &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
@@ -292,5 +292,5 @@
         ratio_mod(i,j,l) = 1.
 ! ATM PROFONDE DESACTIVEE !
-        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
+        if (   (1 .EQ. 0)  .AND.(ypk(i,j,l).gt.ypklim)) then
 	   ratio_mod(i,j,l) = mmm0 /                                    &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &
@@ -363,5 +363,5 @@
         ratio_mod(k,l) = 1.
 ! ATM PROFONDE DESACTIVEE !
-        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
+        if (   (1 .EQ. 0)  .AND.(ypk(k,l).gt.ypklim)) then
 	   ratio_mod(k,l) = mmm0 /                                      &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
@@ -432,5 +432,5 @@
         ratio_mod(i,j,l) = 1.
 ! ATM PROFONDE DESACTIVEE !
-        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
+        if (   (1 .EQ. 0)  .AND.(ypk(i,j,l).gt.ypklim)) then
 	   ratio_mod(i,j,l) = mmm0 /                                    &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &