--- trunk/libf/phylmd/transp_lay.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/transp_lay.f	2011/09/23 12:28:01	52
@@ -4,7 +4,7 @@
 c
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
 c======================================================================
 c Auteur(s): Z.X.Li (LMD/CNRS)
@@ -15,7 +15,8 @@
 c
       REAL, intent(in):: paprs(klon,klev+1)
       real tsol(klon)
-      REAL t(klon,klev), q(klon,klev), u(klon,klev), v(klon,klev)
+      REAL, INTENT (IN):: t(klon,klev)
+      real q(klon,klev), u(klon,klev), v(klon,klev)
       REAL utran_e(klon,klev), utran_q(klon,klev)
       REAL vtran_e(klon,klev), vtran_q(klon,klev)
 c