Index: LMDZ6/trunk/libf/phylmd/ener_conserv.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/ener_conserv.F90	(revision 3070)
+++ LMDZ6/trunk/libf/phylmd/ener_conserv.F90	(revision 3071)
@@ -222,5 +222,4 @@
       DO k=1,klev
         bils_ec(:)=bils_ec(:)-d_t_ec(:,k)*masse(:,k)
-        bils_tke(:)=bils_tke(:)+0.5*(dtke(:,k)+dtke(:,k+1))*masse(:,k)
         bils_diss(:)=bils_diss(:)-d_t_diss(:,k)*masse(:,k)
         bils_kinetic(:)=bils_kinetic(:)+masse(:,k)* &
@@ -235,9 +234,16 @@
       ENDDO
       bils_ec(:)=rcpd*bils_ec(:)/pdtphys
-      bils_tke(:)=bils_tke(:)/pdtphys
       bils_diss(:)=rcpd*bils_diss(:)/pdtphys
       bils_kinetic(:)= 0.5*bils_kinetic(:)/pdtphys
       bils_enthalp(:)=rcpd*bils_enthalp(:)/pdtphys
       bils_latent(:)=rlvtt*bils_latent(:)/pdtphys
+!jyg<
+      IF (iflag_pbl > 1) THEN
+        DO k=1,klev
+          bils_tke(:)=bils_tke(:)+0.5*(dtke(:,k)+dtke(:,k+1))*masse(:,k)
+        ENDDO
+        bils_tke(:)=bils_tke(:)/pdtphys
+      ENDIF  ! (iflag_pbl > 1)
+!>jyg
 
 IF (iflag_ener_conserv>=1) THEN
Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3070)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3071)
@@ -1400,11 +1400,15 @@
 !jyg<
        IF (klon_glo==1) THEN
-          pbl_tke(:,:,is_ave) = 0.
-          DO nsrf=1,nbsrf
-            DO k = 1,klev+1
-                 pbl_tke(:,k,is_ave) = pbl_tke(:,k,is_ave) &
-                     +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf)
-            ENDDO
-          ENDDO
+          IF (iflag_pbl > 1) THEN          
+              pbl_tke(:,:,is_ave) = 0.
+              DO nsrf=1,nbsrf
+                DO k = 1,klev+1
+                     pbl_tke(:,k,is_ave) = pbl_tke(:,k,is_ave) &
+                         +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf)
+                ENDDO
+              ENDDO
+          ELSE   ! (iflag_pbl > 1)
+              pbl_tke(:,:,:) = 0.
+          ENDIF  ! (iflag_pbl > 1)
 !>jyg
        ENDIF