Index: LMDZ6/trunk/libf/phylmd/tend_to_tke.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/tend_to_tke.F90	(revision 3209)
+++ LMDZ6/trunk/libf/phylmd/tend_to_tke.F90	(revision 3210)
@@ -36,4 +36,6 @@
  USE dimphy, ONLY: klon, klev
  USE indice_sol_mod, ONLY: nbsrf
+
+IMPLICIT NONE
 #include "YOMCST.h"
 
@@ -64,5 +66,5 @@
 
 
-  INTEGER ig,k,isrf                 ! indices
+  INTEGER i,k,isrf                 ! indices
   REAL    masse(klon,klev)          ! mass in the layers [kg/m2]
   REAL    unsmasse(klon,klev+1)     ! linear mass in the layers [kg/m2]