--- trunk/libf/phylmd/aaam_bud.f	2008/08/01 15:24:12	15
+++ trunk/libf/phylmd/aaam_bud.f	2011/09/20 09:14:34	51
@@ -94,11 +94,11 @@
       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)
-      real u(nlon,nlev), v(nlon,nlev)
+      real, intent(in):: u(nlon,nlev), v(nlon,nlev)
 c
 c Variables locales:
 c