17 |
INTEGER knon |
INTEGER knon |
18 |
REAL, intent(in):: dtime ! intervalle de temps (en s) |
REAL, intent(in):: dtime ! intervalle de temps (en s) |
19 |
|
|
20 |
REAL u1lay(klon), v1lay(klon) |
REAL, intent(in):: u1lay(:), v1lay(:) ! (knon) |
21 |
! u1lay----input-R- vent u de la premiere couche (m/s) |
! vent de la premiere couche (m/s) |
|
! v1lay----input-R- vent v de la premiere couche (m/s) |
|
22 |
|
|
23 |
REAL, intent(in):: coef(:, :) ! (knon, klev) |
REAL, intent(in):: coef(:, :) ! (knon, klev) |
24 |
! Coefficient d'echange (m**2/s) multiplié par le cisaillement du |
! Coefficient d'echange (m**2/s) multiplié par le cisaillement du |