59 |
! date0----input-R- jour initial |
! date0----input-R- jour initial |
60 |
INTEGER, INTENT (IN) :: itap |
INTEGER, INTENT (IN) :: itap |
61 |
! itap-----input-I- numero du pas de temps |
! itap-----input-I- numero du pas de temps |
62 |
REAL t(klon, klev), q(klon, klev) |
REAL, INTENT(IN):: t(klon, klev), q(klon, klev) |
63 |
! t--------input-R- temperature (K) |
! t--------input-R- temperature (K) |
64 |
! q--------input-R- vapeur d'eau (kg/kg) |
! q--------input-R- vapeur d'eau (kg/kg) |
65 |
REAL, INTENT (IN):: u(klon, klev), v(klon, klev) |
REAL, INTENT (IN):: u(klon, klev), v(klon, klev) |