--- trunk/libf/phylmd/plevel.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/plevel.f	2008/07/21 16:05:07	12
@@ -34,7 +34,7 @@
       logical lnew
 
       REAL, intent(in):: pgcm(ilon,ilev)
-      REAL Qgcm(ilon,ilev)
+      REAL, intent(in):: Qgcm(ilon,ilev)
       real pres
       REAL Qpres(ilon)