30 |
REAL, INTENT (IN):: play(klon, klev) |
REAL, INTENT (IN):: play(klon, klev) |
31 |
REAL, intent(in):: t(klon, klev) |
REAL, intent(in):: t(klon, klev) |
32 |
real q(klon, klev) ! input vapeur d'eau (en kg/kg) |
real q(klon, klev) ! input vapeur d'eau (en kg/kg) |
33 |
real u(klon, klev), v(klon, klev) |
real, INTENT (IN):: u(klon, klev), v(klon, klev) |
34 |
REAL, INTENT (IN):: tra(klon, klev, ntrac) |
REAL, INTENT (IN):: tra(klon, klev, ntrac) |
35 |
INTEGER, intent(in):: ntra ! number of tracers |
INTEGER, intent(in):: ntra ! number of tracers |
36 |
REAL, intent(inout):: sig1(klon, klev), w01(klon, klev) |
REAL, intent(inout):: sig1(klon, klev), w01(klon, klev) |