Index: LMDZ4/branches/LMDZ4_AR5/libf/phylmd/traclmdz_mod.F90
===================================================================
--- LMDZ4/branches/LMDZ4_AR5/libf/phylmd/traclmdz_mod.F90	(revision 1409)
+++ LMDZ4/branches/LMDZ4_AR5/libf/phylmd/traclmdz_mod.F90	(revision 1410)
@@ -322,5 +322,5 @@
     
     DO it=1, nbtr
-       IF (couchelimite .AND. pbl_flg(it) == 0 .AND. rnpb) THEN ! couche limite avec quantite dans le sol calculee
+       IF (couchelimite .AND. pbl_flg(it) == 0 .AND. (it==id_rn .OR. it==id_pb)) THEN ! couche limite avec quantite dans le sol calculee
           CALL cltracrn(it, pdtphys, yu1, yv1,     &
                cdragh, coefh,t_seri,ftsol,pctsrf,  &