--- trunk/libf/phylmd/aaam_bud.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/aaam_bud.f	2011/07/01 15:00:48	47
@@ -1,4 +1,4 @@
-      subroutine aaam_bud (iam,nlon,nlev,rjour,rsec,
+      subroutine aaam_bud (iam,nlon,nlev,rsec,
      i                   rea,rg,ome,      
      i                   plat,plon,phis,
      i                   dragu,liftu,phyu,
@@ -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,
@@ -36,7 +37,6 @@
 c                 in physiq.F
 c nlon----input-I-Total number of horizontal points that get into physics
 c nlev----input-I-Number of vertical levels
-c rjour---input-R-Jour compte depuis le debut de la simu (run.def)
 c rsec----input-R-Seconde de la journee
 c rea-----input-R-Earth radius
 c rg------input-R-gravity constant
@@ -89,7 +89,6 @@
 c ARGUMENTS
 c
       INTEGER iam,nlon,nlev
-      REAL rjour
       real, intent(in):: rsec
       real rea
       real, intent(in):: rg
@@ -99,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