1 |
c |
c |
2 |
c $Header: /home/cvsroot/LMDZ4/libf/phylmd/cvltr.F,v 1.1 2005/04/15 12:36:17 lmdzadmin Exp $ |
c $Header: /home/cvsroot/LMDZ4/libf/phylmd/cvltr.F,v 1.1 2005/04/15 12:36:17 lmdzadmin Exp $ |
3 |
c |
c |
4 |
SUBROUTINE cvltr(pdtime,da, phi, mp,paprs,pplay,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 YOMCST |
8 |
|
use yoecumf |
9 |
IMPLICIT NONE |
IMPLICIT NONE |
10 |
c===================================================================== |
c===================================================================== |
11 |
c Objet : convection des traceurs / KE |
c Objet : convection des traceurs / KE |
12 |
c Auteurs: M-A Filiberti and J-Y Grandpeix |
c Auteurs: M-A Filiberti and J-Y Grandpeix |
13 |
c===================================================================== |
c===================================================================== |
14 |
c |
c |
|
include "YOECUMF.h" |
|
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 pplay(klon,klev) ! pression pour le milieu de chaque couche |
REAL, intent(in):: x(klon,klev) ! q de traceur (bas en haut) |
|
REAL 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 |