--- trunk/libf/phylmd/cltracrn.f90	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/cltracrn.f90	2008/03/31 12:24:17	7
@@ -46,7 +46,7 @@
   ! d_trs----output-R- le changement de "trs"
   !======================================================================
   !======================================================================
-  REAL dtime
+  REAL, intent(in):: dtime
   REAL u1lay(klon), v1lay(klon)
   REAL coef(klon,klev)
   REAL, intent(in):: t(klon,klev) ! temperature (K)