--- trunk/libf/phylmd/concvl.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/concvl.f	2008/04/18 14:45:53	10
@@ -57,7 +57,7 @@
 c
        REAL dtime
        real, intent(in):: paprs(klon,klev+1)
-       real pplay(klon,klev)
+       real, intent(in):: pplay(klon,klev)
        REAL t(klon,klev),q(klon,klev),u(klon,klev),v(klon,klev)
        REAL tra(klon,klev,ntrac)
        INTEGER ntra