25 |
! vent (dV/dz). La première valeur indique la valeur de Cdrag (sans |
! vent (dV/dz). La première valeur indique la valeur de Cdrag (sans |
26 |
! unité). |
! unité). |
27 |
|
|
28 |
REAL t(klon, klev), ven(klon, klev) |
REAL, intent(in):: t(klon, klev), ven(klon, klev) |
29 |
! t--------input-R- temperature (K) |
! t--------input-R- temperature (K) |
30 |
! ven------input-R- vitesse horizontale (m/s) |
! ven------input-R- vitesse horizontale (m/s) |
31 |
REAL paprs(klon, klev+1), pplay(klon, klev), delp(klon, klev) |
REAL paprs(klon, klev+1), pplay(klon, klev), delp(klon, klev) |