--- trunk/libf/phylmd/aaam_bud.f	2011/08/24 13:33:28	50
+++ trunk/libf/phylmd/aaam_bud.f	2011/09/20 09:14:34	51
@@ -94,7 +94,7 @@
       real, intent(in):: rg
       real ome
       REAL, intent(in):: plat(nlon),plon(nlon)
-      real phis(nlon)
+      real, intent(in):: phis(nlon)
       REAL dragu(nlon),liftu(nlon),phyu(nlon)             
       REAL dragv(nlon),liftv(nlon),phyv(nlon)             
       REAL, intent(in):: p(nlon,nlev+1)