Index: LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90	(revision 4746)
+++ LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90	(revision 4747)
@@ -1641,5 +1641,5 @@
          ENDDO
         ENDIF
-        IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x
+        IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x(1:knon)
 !
 ! Faire disparaitre les lignes commentees fin 2015 (le temps des tests)
@@ -1671,5 +1671,5 @@
          ENDDO
         ENDIF
-        IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w
+        IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w(1:knon)
 !!!
        ENDIF  ! (iflag_split .eq.0)
@@ -2633,5 +2633,5 @@
         IF (prt_level >=10) THEN
          print *, 'After climbing up, lfuxlat_x, fluxlat_w ', &
-               yfluxlat_x, yfluxlat_w
+               yfluxlat_x(1:knon), yfluxlat_w(1:knon)
         ENDIF
 !