29 |
! knon----input-I- nombre de points pour un type de surface |
! knon----input-I- nombre de points pour un type de surface |
30 |
INTEGER, intent(in):: nsrf |
INTEGER, intent(in):: nsrf |
31 |
! nsrf----input-I- indice pour le type de surface; voir indicesol.inc |
! nsrf----input-I- indice pour le type de surface; voir indicesol.inc |
32 |
REAL, dimension(klon), intent(in):: speed, temp, q_zref |
REAL, dimension(klon), intent(in):: speed |
33 |
! speed---input-R- module du vent au 1er niveau du modele |
! speed---input-R- module du vent au 1er niveau du modele |
34 |
|
REAL, dimension(klon), intent(in):: temp |
35 |
! temp----input-R- temperature de l'air au 1er niveau du modele |
! temp----input-R- temperature de l'air au 1er niveau du modele |
36 |
|
REAL, dimension(klon), intent(in):: q_zref |
37 |
! q_zref--input-R- humidite relative au 1er niveau du modele |
! q_zref--input-R- humidite relative au 1er niveau du modele |
38 |
REAL, intent(in):: zref |
REAL, intent(in):: zref |
39 |
! zref----input-R- altitude de reference |
! zref----input-R- altitude de reference |
40 |
REAL, dimension(klon), intent(in):: ts, qsurf, rugos, psol |
REAL, dimension(klon), intent(in):: ts |
41 |
! ts------input-R- temperature de l'air a la surface |
! ts------input-R- temperature de l'air a la surface |
42 |
! qsurf---input-R- humidite relative a la surface |
REAL, intent(in):: qsurf(:) ! (knon) humidite relative a la surface |
43 |
|
REAL, dimension(klon), intent(in):: rugos |
44 |
! rugos---input-R- rugosite |
! rugos---input-R- rugosite |
45 |
|
REAL, dimension(klon), intent(in):: psol |
46 |
! psol----input-R- pression au sol |
! psol----input-R- pression au sol |
47 |
REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent |
REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent |
48 |
REAL, dimension(klon), intent(in):: testar |
REAL, dimension(klon), intent(in):: testar |
72 |
! Richardson at reference level |
! Richardson at reference level |
73 |
|
|
74 |
CALL cdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), gref(:knon), & |
CALL cdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), gref(:knon), & |
75 |
psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), cdram, cdrah, pref) |
psol(:knon), ts(:knon), qsurf, rugos(:knon), cdram, cdrah, pref) |
76 |
|
|
77 |
DO i = 1, knon |
DO i = 1, knon |
78 |
delu(i) = ustar(i) / sqrt(cdram(i)) |
delu(i) = ustar(i) / sqrt(cdram(i)) |