3 |
|
|
4 |
USE dimens_m |
USE dimens_m |
5 |
USE dimphy |
USE dimphy |
6 |
USE yomcst |
USE suphec_m |
7 |
IMPLICIT NONE |
IMPLICIT NONE |
8 |
!====================================================================== |
!====================================================================== |
9 |
! Auteur(s): F.Lott (LMD/CNRS) date: 19950201 |
! Auteur(s): F.Lott (LMD/CNRS) date: 19950201 |
30 |
REAL, INTENT (IN) :: pplay(klon,klev) |
REAL, INTENT (IN) :: pplay(klon,klev) |
31 |
REAL, INTENT (IN) :: plat(nlon) |
REAL, INTENT (IN) :: plat(nlon) |
32 |
REAL pmea(nlon) |
REAL pmea(nlon) |
33 |
REAL, INTENT (IN) :: pstd(nlon) |
REAL, INTENT (IN):: pstd(nlon) |
34 |
REAL ppic(nlon) |
REAL ppic(nlon) |
35 |
REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon) |
REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon) |
36 |
REAL t(nlon,nlev), u(nlon,nlev), v(nlon,nlev) |
REAL, INTENT (IN):: t(nlon,nlev) |
37 |
|
real, INTENT (IN):: u(nlon,nlev), v(nlon,nlev) |
38 |
REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev) |
REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev) |
39 |
|
|
40 |
INTEGER i, k, ktest(nlon) |
INTEGER i, k, ktest(nlon) |