13 |
! From phylmd/concvl.F, version 1.3 2005/04/15 12:36:17 |
! From phylmd/concvl.F, version 1.3 2005/04/15 12:36:17 |
14 |
! Author: Z.X. Li (LMD/CNRS) |
! Author: Z.X. Li (LMD/CNRS) |
15 |
! date: 1993/08/18 |
! date: 1993/08/18 |
16 |
! Objet: schema de convection de Emanuel (1991) interface |
! Objet: schéma de convection de Emanuel (1991) interface |
17 |
|
|
18 |
USE dimens_m, ONLY : nqmx |
USE dimens_m, ONLY : nqmx |
19 |
USE dimphy, ONLY : klev, klon |
USE dimphy, ONLY : klev, klon |
20 |
USE suphec_m, ONLY : retv, rtt |
USE suphec_m, ONLY : retv, rtt |
21 |
USE yoethf_m, ONLY : r2es |
USE yoethf_m, ONLY : r2es |
22 |
USE fcttre, ONLY : foeew |
USE fcttre, ONLY : foeew |
23 |
|
use cv_driver_m, only: cv_driver |
24 |
|
|
25 |
! Arguments: |
! Arguments: |
26 |
! dtime--input-R-pas d'integration (s) |
! dtime--input-R-pas d'integration (s) |
59 |
REAL, INTENT (IN) :: dtime |
REAL, INTENT (IN) :: dtime |
60 |
REAL, INTENT (IN) :: paprs(klon, klev+1) |
REAL, INTENT (IN) :: paprs(klon, klev+1) |
61 |
REAL, INTENT (IN) :: pplay(klon, klev) |
REAL, INTENT (IN) :: pplay(klon, klev) |
62 |
REAL t(klon, klev), q(klon, klev), u(klon, klev), v(klon, klev) |
REAL, intent(in):: t(klon, klev) |
63 |
|
real q(klon, klev), u(klon, klev), v(klon, klev) |
64 |
REAL, INTENT (IN):: tra(klon, klev, ntrac) |
REAL, INTENT (IN):: tra(klon, klev, ntrac) |
65 |
INTEGER ntra |
INTEGER ntra |
66 |
REAL work1(klon, klev), work2(klon, klev) |
REAL work1(klon, klev), work2(klon, klev) |