--- trunk/phylmd/Orography/lift_noro.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/Orography/lift_noro.f	2014/03/26 17:18:58	91
@@ -34,7 +34,7 @@
       REAL ppic(nlon)
       REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
       REAL, INTENT (IN):: t(nlon,nlev)
-      real u(nlon,nlev), v(nlon,nlev)
+      real, INTENT (IN):: u(nlon,nlev), v(nlon,nlev)
       REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev)
 
       INTEGER i, k, ktest(nlon)