/[lmdze]/trunk/phylmd/aaam_bud.f90
ViewVC logotype

Diff of /trunk/phylmd/aaam_bud.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 16  C No outputs, every AAM quantities are w Line 16  C No outputs, every AAM quantities are w
16  C File.  C File.
17  c  c
18  c Modif : I.Musat (LMD/CNRS) date : 20041020  c Modif : I.Musat (LMD/CNRS) date : 20041020
19  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
20    C "torsfc",
21  c but no write in the iam file.  c but no write in the iam file.
22  c  c
23  C WARNING: Only valid for regular rectangular grids.  C WARNING: Only valid for regular rectangular grids.
24  C REMARK: CALL DANS PHYSIQ AFTER lift_noro:  C REMARK: CALL DANS PHYSIQ AFTER lift_noro:
25  C        CALL aaam_bud (27,klon,klev,rjourvrai,gmtime,  C        CALL aaam_bud (27,klon,klev, gmtime,
26  C    C               ra,rg,romega,  C    C               ra,rg,romega,
27  C    C               rlat,rlon,pphis,  C    C               rlat,rlon,pphis,
28  C    C               zustrdr,zustrli,zustrph,  C    C               zustrdr,zustrli,zustrph,
# Line 97  c Line 98  c
98        REAL dragu(nlon),liftu(nlon),phyu(nlon)                    REAL dragu(nlon),liftu(nlon),phyu(nlon)            
99        REAL dragv(nlon),liftv(nlon),phyv(nlon)                    REAL dragv(nlon),liftv(nlon),phyv(nlon)            
100        REAL, intent(in):: p(nlon,nlev+1)        REAL, intent(in):: p(nlon,nlev+1)
101        real u(nlon,nlev), v(nlon,nlev)        real, intent(in):: u(nlon,nlev), v(nlon,nlev)
102  c  c
103  c Variables locales:  c Variables locales:
104  c  c
Legend:
Removed from v.7  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21