43 |
REAL, intent(out):: t_10m(klon) ! temperature de l'air a 10m |
REAL, intent(out):: t_10m(klon) ! temperature de l'air a 10m |
44 |
REAL, intent(out):: q_10m(klon) ! humidite specifique a 10m |
REAL, intent(out):: q_10m(klon) ! humidite specifique a 10m |
45 |
REAL, intent(out):: wind10m(:) ! (knon) norme du vent \`a 10m |
REAL, intent(out):: wind10m(:) ! (knon) norme du vent \`a 10m |
46 |
REAL, intent(out):: ustar(klon) ! u* |
REAL, intent(out):: ustar(:) ! (knon) u* |
47 |
|
|
48 |
! Local: |
! Local: |
49 |
REAL, PARAMETER:: RKAR = 0.4 ! constante de von Karman |
REAL, PARAMETER:: RKAR = 0.4 ! constante de von Karman |
72 |
ri1(i) = 0.0 |
ri1(i) = 0.0 |
73 |
ENDDO |
ENDDO |
74 |
|
|
75 |
CALL coefcdrag(knon, nsrf, speed(:knon), t1(:knon), q1(:knon), & |
CALL coefcdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), & |
76 |
z1(:knon), psol(:knon), ts1, qsurf, rugos, cdram, cdrah, cdran, & |
psol(:knon), ts1, qsurf, rugos, cdram, cdrah, cdran, zri1, pref) |
|
zri1, pref) |
|
77 |
|
|
78 |
! Star variables |
! Star variables |
79 |
|
|