--- trunk/libf/phylmd/cltrac.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/cltrac.f	2011/01/06 17:52:19	38
@@ -5,7 +5,7 @@
      s                  d_tr)
       use dimens_m
        use dimphy
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
 c======================================================================
 c Auteur(s): O. Boucher (LOA/LMD) date: 19961127
@@ -26,12 +26,13 @@
 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)
       REAL, intent(in):: paprs(klon,klev+1)
-      real pplay(klon,klev), delp(klon,klev)
+      real, intent(in):: pplay(klon,klev)
+      real delp(klon,klev)
       REAL d_tr(klon,klev)
       REAL flux(klon), cdrag(klon), tr0(klon)
 c      REAL flux_tr(klon,klev)