15 |
c |
c |
16 |
REAL, intent(in):: pdtime |
REAL, intent(in):: pdtime |
17 |
REAL, intent(in):: paprs(klon,klev+1) ! pression aux 1/2 couches (bas en haut) |
REAL, intent(in):: paprs(klon,klev+1) ! pression aux 1/2 couches (bas en haut) |
18 |
REAL 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 upd(klon,klev) ! saturated updraft mass flux |