--- trunk/Sources/phylmd/phytrac.f	2017/10/16 12:35:41	225
+++ trunk/Sources/phylmd/phytrac.f	2017/11/06 17:47:03	230
@@ -77,9 +77,9 @@
 
     REAL pde_u(klon, llm) ! flux detraine dans le panache montant
     REAL pen_d(klon, llm) ! flux entraine dans le panache descendant
-    REAL coefh(klon, llm) ! coeff melange couche limite
+    REAL coefh(:, :) ! (klon, llm) coeff melange couche limite
     real fm_therm(klon, llm+1), entr_therm(klon, llm) ! thermiques
-    REAL, intent(in):: yu1(klon), yv1(klon) ! vent au premier niveau
+    REAL, intent(in):: yu1(:), yv1(:) ! (klon) vent au premier niveau
 
     ! Arguments n\'ecessaires pour les sources et puits de traceur :
     real, intent(in):: ftsol(:, :) ! (klon, nbsrf) surface temperature (K)
@@ -297,7 +297,7 @@
              source(i) = 0. ! pas de source, pour l'instant
           ENDDO
 
-          CALL cltrac(pdtphys, coefh, t_seri, tr_seri(:, :, it), source, &
+          CALL cltrac(pdtphys, coefh(:, 2:llm), t_seri, tr_seri(:, :, it), source, &
                paprs, pplay, delp, d_tr_cl(1, 1, it))
           DO k = 1, llm
              DO i = 1, klon