Index: LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3p_mixing.f90
===================================================================
--- LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3p_mixing.f90	(revision 3716)
+++ LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3p_mixing.f90	(revision 3717)
@@ -111,4 +111,5 @@
     REAL, DIMENSION(nloc, nd)          :: ASij
     REAL, DIMENSION(nloc, nd, nd)      :: Sij
+    real :: Sjmin(nd), Sjmax(nd), Qmixmax(nd), Qmixmin(nd), Rmixmax(nd), Rmixmin(nd)
 
     INTEGER, SAVE                      :: igout = 1
@@ -276,5 +277,4 @@
         block
           real :: signhpmh, Scrit
-          real :: Sjmin(icb(il)-1:inb(il)), Sjmax(icb(il)-1:inb(il)), Qmixmax(icb(il)-1:inb(il)), Qmixmin(icb(il)-1:inb(il)), Rmixmax(icb(il)-1:inb(il)), Rmixmin(icb(il)-1:inb(il))
 
           block