--- trunk/libf/phylmd/aaam_bud.f	2008/08/01 15:24:12	15
+++ trunk/libf/phylmd/aaam_bud.f	2011/07/01 15:00:48	47
@@ -98,7 +98,7 @@
       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