--- trunk/libf/phylmd/cltrac.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/cltrac.f	2008/03/31 12:24:17	7
@@ -26,7 +26,7 @@
 c d_tr-----output-R- le changement de tr
 c flux_tr--output-R- flux de tr
 c======================================================================
-      REAL dtime
+      REAL, intent(in):: dtime
       REAL coef(klon,klev)
       REAL, intent(in):: t(klon,klev) ! temperature (K)
       real tr(klon,klev)