40 |
! qsurf---input-R- humidite relative a la surface |
! qsurf---input-R- humidite relative a la surface |
41 |
! rugos---input-R- rugosite |
! rugos---input-R- rugosite |
42 |
! psol----input-R- pression au sol |
! psol----input-R- pression au sol |
43 |
REAL, dimension(klon), intent(in):: ustar, testar, qstar |
REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent |
44 |
! ustar---input-R- facteur d'echelle pour le vent |
REAL, dimension(klon), intent(in):: testar |
45 |
! testar--input-R- facteur d'echelle pour la temperature potentielle |
! testar--input-R- facteur d'echelle pour la temperature potentielle |
46 |
|
REAL, dimension(klon), intent(in):: qstar |
47 |
! qstar---input-R- facteur d'echelle pour l'humidite relative |
! qstar---input-R- facteur d'echelle pour l'humidite relative |
48 |
|
|
49 |
REAL, dimension(klon), intent(out):: pref |
REAL, dimension(klon), intent(out):: pref |
68 |
|
|
69 |
! Richardson at reference level |
! Richardson at reference level |
70 |
|
|
71 |
CALL coefcdrag (knon, nsrf, speed(:knon), temp(:knon), & |
CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), & |
72 |
q_zref(:knon), gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, & |
gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, cdrah, cdran, & |
73 |
cdrah, cdran, zri1, pref) |
zri1, pref) |
74 |
|
|
75 |
DO i = 1, knon |
DO i = 1, knon |
76 |
delu(i) = ustar(i) / sqrt(cdram(i)) |
delu(i) = ustar(i) / sqrt(cdram(i)) |