--- trunk/libf/phylmd/Orography/lift_noro.f90	2011/01/06 17:52:19	38
+++ trunk/libf/phylmd/Orography/lift_noro.f90	2011/09/23 12:28:01	52
@@ -30,10 +30,11 @@
       REAL, INTENT (IN) :: pplay(klon,klev)
       REAL, INTENT (IN) :: plat(nlon)
       REAL pmea(nlon)
-      REAL, INTENT (IN) :: pstd(nlon)
+      REAL, INTENT (IN):: pstd(nlon)
       REAL ppic(nlon)
       REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
-      REAL t(nlon,nlev), u(nlon,nlev), v(nlon,nlev)
+      REAL, INTENT (IN):: t(nlon,nlev)
+      real u(nlon,nlev), v(nlon,nlev)
       REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev)
 
       INTEGER i, k, ktest(nlon)