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) |