18 |
REAL, intent(in):: x(klon,klev) ! q de traceur (bas en haut) |
REAL, intent(in):: x(klon,klev) ! q de traceur (bas en haut) |
19 |
REAL dx(klon,klev) ! tendance de traceur (bas en haut) |
REAL dx(klon,klev) ! tendance de traceur (bas en haut) |
20 |
real da(klon,klev),phi(klon,klev,klev),mp(klon,klev) |
real da(klon,klev),phi(klon,klev,klev),mp(klon,klev) |
21 |
REAL upd(klon,klev) ! saturated updraft mass flux |
REAL, intent(in):: upd(klon,klev) ! saturated updraft mass flux |
22 |
REAL dnd(klon,klev) ! saturated downdraft mass flux |
REAL, intent(in):: dnd(klon,klev) ! saturated downdraft mass flux |
23 |
c |
c |
24 |
c--variables locales |
c--variables locales |
25 |
real zed(klon,klev),zmd(klon,klev,klev) |
real zed(klon,klev),zmd(klon,klev,klev) |