--- trunk/phylmd/Orography/drag_noro.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/Orography/drag_noro.f	2014/03/26 17:18:58	91
@@ -41,7 +41,7 @@
     REAL ppic(nlon), pval(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, kgwd, kdx(nlon), ktest(nlon)