25 |
! Coefficient d'echange (m**2 / s) multiplié par le cisaillement du |
! Coefficient d'echange (m**2 / s) multiplié par le cisaillement du |
26 |
! vent (dV / dz) |
! vent (dV / dz) |
27 |
|
|
28 |
REAL, intent(in):: cdrag(:) ! (knon) sans unité |
REAL, intent(in):: cdrag(:) ! (knon) sans dimension |
29 |
REAL, intent(in):: t(:, :) ! (knon, klev) ! temperature (K) |
REAL, intent(in):: t(:, :) ! (knon, klev) ! temperature (K) |
30 |
REAL, intent(in):: ven(:, :) ! (knon, klev) vitesse horizontale (m / s) |
REAL, intent(in):: ven(:, :) ! (knon, klev) vitesse horizontale (m / s) |
31 |
REAL, intent(in):: paprs(:, :) ! (knon, klev + 1) pression a |
REAL, intent(in):: paprs(:, :) ! (knon, klev + 1) pression a |
33 |
real, intent(in):: pplay(:, :) ! (knon, klev) pression au milieu |
real, intent(in):: pplay(:, :) ! (knon, klev) pression au milieu |
34 |
! de couche (Pa) |
! de couche (Pa) |
35 |
real, intent(in):: delp(:, :) ! (knon, klev) epaisseur de couche (Pa) |
real, intent(in):: delp(:, :) ! (knon, klev) epaisseur de couche (Pa) |
36 |
REAL, intent(out):: d_ven(:, :) ! (knon, klev) ! le changement de "ven" |
|
37 |
|
REAL, intent(out):: d_ven(:, :) ! (knon, klev) |
38 |
|
! le changement de "ven", en m s-1 |
39 |
|
|
40 |
REAL, intent(out):: flux_v(:) ! (knon) |
REAL, intent(out):: flux_v(:) ! (knon) |
41 |
! (diagnostic) flux du vent à la surface, en (kg m / s) / (m**2 s) |
! (diagnostic) stress du vent à la surface, en Pa |
42 |
! flux_v est le flux de moment angulaire (positif vers bas) |
! flux_v est le flux de quantité de mouvement (positif vers bas) |
43 |
|
|
44 |
! Local: |
! Local: |
45 |
INTEGER k |
INTEGER k |
46 |
REAL zx_cv(size(u1lay), 2:klev) ! (knon, 2:klev) |
REAL zx_cv(size(u1lay), 2:klev) ! (knon, 2:klev) |
47 |
REAL zx_dv(size(u1lay), 2:klev) ! (knon, 2:klev) |
REAL zx_dv(size(u1lay), 2:klev) ! (knon, 2:klev) |
48 |
REAL zx_buf(size(u1lay)) ! (knon) |
REAL zx_buf(size(u1lay)) ! (knon) |
49 |
REAL zx_coef(size(u1lay), klev) ! (knon, klev) |
REAL zx_coef(size(u1lay), klev) ! (knon, klev) in Pa |
50 |
REAL local_ven(size(u1lay), klev) ! (knon, klev) |
REAL local_ven(size(u1lay), klev) ! (knon, klev) in m s-1 |
51 |
|
|
52 |
!------------------------------------------------------------------ |
!------------------------------------------------------------------ |
53 |
|
|