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