4 |
SUBROUTINE cvltr(pdtime,da, phi, mp,paprs,x,upd,dnd,dx) |
SUBROUTINE cvltr(pdtime,da, phi, mp,paprs,x,upd,dnd,dx) |
5 |
use dimens_m |
use dimens_m |
6 |
use dimphy |
use dimphy |
7 |
use YOMCST |
use SUPHEC_M |
8 |
use yoecumf |
use yoecumf |
9 |
IMPLICIT NONE |
IMPLICIT NONE |
10 |
c===================================================================== |
c===================================================================== |
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, 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) |