--- trunk/libf/phylmd/concvl.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/concvl.f	2008/07/21 16:05:07	12
@@ -53,11 +53,11 @@
       integer NTRAC
       PARAMETER (NTRAC=nqmx-2)
 c
-       INTEGER iflag_con
+       INTEGER, intent(in):: iflag_con
 c
-       REAL dtime
+       REAL, intent(in):: 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