30 |
|
|
31 |
REAL, intent(in):: dtime |
REAL, intent(in):: dtime |
32 |
! dtime----input-R- intervalle de temps (en second) |
! dtime----input-R- intervalle de temps (en second) |
33 |
REAL u1lay(klon), v1lay(klon) |
REAL, intent(in):: u1lay(klon), v1lay(klon) ! vent de la premiere |
34 |
! u1lay----input-R- vent u de la premiere couche (m/s) |
! couche (m/s) |
|
! v1lay----input-R- vent v de la premiere couche (m/s) |
|
35 |
REAL coef(klon, klev) |
REAL coef(klon, klev) |
36 |
! coef-----input-R- le coefficient d'echange (m**2/s) l>1 |
! coef-----input-R- le coefficient d'echange (m**2/s) l>1 |
37 |
REAL, intent(in):: t(klon, klev) ! temperature (K) |
REAL, intent(in):: t(klon, klev) ! temperature (K) |