--- trunk/libf/phylmd/transp.f	2011/01/06 17:52:19	38
+++ trunk/phylmd/transp.f	2013/11/15 18:45:49	76
@@ -18,7 +18,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), utran_q(klon), vtran_e(klon), vtran_q(klon)
 c
       INTEGER i, l