--- trunk/libf/phylmd/cltracrn.f90	2008/04/18 14:45:53	10
+++ trunk/phylmd/cltracrn.f90	2013/11/15 18:45:49	76
@@ -5,12 +5,11 @@
      lat, &
      d_tr,d_trs )
 
-  ! This procedure is clean: no C preprocessor directive, no include line.
   ! From phylmd/cltracrn.F,v 1.2 2005/05/25 13:10:09
 
   use indicesol, only: nbsrf
   use dimphy, only: klon, klev
-  use YOMCST, only: RD, rg
+  use SUPHEC_M, only: RD, rg
 
   IMPLICIT none
   !======================================================================