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, |
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 |