--- trunk/libf/phylmd/aaam_bud.f	2008/03/31 12:24:17	7
+++ trunk/libf/phylmd/aaam_bud.f	2011/09/20 09:14:34	51
@@ -16,12 +16,13 @@
 C File. 
 c
 c Modif : I.Musat (LMD/CNRS) date : 20041020
-c Outputs : axial components of wind AAM "aam" and total surface torque "torsfc",
+c Outputs : axial components of wind AAM "aam" and total surface torque 
+C "torsfc",
 c but no write in the iam file.
 c
 C WARNING: Only valid for regular rectangular grids.
 C REMARK: CALL DANS PHYSIQ AFTER lift_noro:
-C        CALL aaam_bud (27,klon,klev,rjourvrai,gmtime,
+C        CALL aaam_bud (27,klon,klev, gmtime,
 C    C               ra,rg,romega,
 C    C               rlat,rlon,pphis,
 C    C               zustrdr,zustrli,zustrph,
@@ -93,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