--- trunk/libf/phylmd/tlift.f90	2008/08/05 13:31:32	17
+++ trunk/libf/phylmd/tlift.f90	2011/01/06 17:52:19	38
@@ -4,7 +4,7 @@
 
   ! Argument NK ajoute (jyg) = Niveau de depart de la convection
 
-  use YOMCST, only: rcpd, RCPV, rcw, rcs, rv, rd, rlvtt, RLMLT
+  use SUPHEC_M, only: rcpd, RCPV, rcw, rcs, rv, rd, rlvtt, RLMLT
 
   implicit none