8 |
dragv, liftv, phyv, p, u, v, aam, torsfc) |
dragv, liftv, phyv, p, u, v, aam, torsfc) |
9 |
|
|
10 |
! Author: F. Lott (LMD/CNRS). Date: 2003/10/20. Object: Compute |
! Author: F. Lott (LMD/CNRS). Date: 2003/10/20. Object: Compute |
11 |
! different terms of the axial AAAM Budget and mountain torque. |
! different terms of the axial AAAM budget and mountain torque. |
12 |
! Only valid for regular rectangular grids. Should be called after |
! Only valid for regular rectangular grids. Should be called after |
13 |
! "lift_noro". |
! "lift_noro". |
14 |
|
|
49 |
REAL tmou(3) ! resolved mountain torque (3 components) |
REAL tmou(3) ! resolved mountain torque (3 components) |
50 |
REAL tsso(3) ! parameterised moutain drag torque (3 components) |
REAL tsso(3) ! parameterised moutain drag torque (3 components) |
51 |
REAL tbls(3) ! parameterised boundary layer torque (3 components) |
REAL tbls(3) ! parameterised boundary layer torque (3 components) |
|
integer iax |
|
52 |
|
|
53 |
REAL ZS(801, 401) ! topographic height |
REAL ZS(801, 401) ! topographic height |
54 |
REAL PS(801, 401) ! surface pressure |
REAL PS(801, 401) ! surface pressure |