--- trunk/phylmd/concvl.f	2014/04/25 14:58:31	97
+++ trunk/phylmd/concvl.f	2014/07/02 18:39:15	99
@@ -56,7 +56,7 @@
     REAL qcondc(klon, klev)
     REAL wd(klon)
     REAL pmflxr(klon, klev+1), pmflxs(klon, klev+1)
-    REAL da(klon, klev), phi(klon, klev, klev), mp(klon, klev)
+    REAL, intent(inout):: da(klon, klev), phi(klon, klev, klev), mp(klon, klev)
 
     ! Local: