--- trunk/phylmd/pbl_surface.f	2018/07/20 17:08:44	283
+++ trunk/phylmd/Interface_surf/pbl_surface.f	2018/07/26 16:02:11	297
@@ -215,7 +215,6 @@
     ydelp = 0.
     yu = 0.
     yv = 0.
-    yt = 0.
     yq = 0.
     yrugoro = 0.
     d_ts = 0.
@@ -346,7 +345,6 @@
                ypplay(:knon, :), ydelp(:knon, :), y_d_v(:knon, :), &
                y_flux_v(:knon))
 
-          ! calculer la diffusion de "q" et de "h"
           CALL clqh(dtime, julien, firstcal, nsrf, ni(:knon), &
                ytsoil(:knon, :), yqsol(:knon), mu0, yrugos(:knon), &
                yrugoro(:knon), yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), &
@@ -475,8 +473,8 @@
           END DO
 
           CALL hbtm(ypaprs, ypplay, yt2m, yq2m, ustar(:knon), y_flux_t(:knon), &
-               y_flux_q(:knon), yu, yv, yt, yq, ypblh(:knon), ycapcl, &
-               yoliqcl, ycteicl, ypblt, ytherm, ylcl)
+               y_flux_q(:knon), yu, yv, yt(:knon, :), yq, ypblh(:knon), &
+               ycapcl, yoliqcl, ycteicl, ypblt, ytherm, ylcl)
 
           DO j = 1, knon
              i = ni(j)