15 |
! \`a la surface (pour theta et q) \`a partir des relations de |
! \`a la surface (pour theta et q) \`a partir des relations de |
16 |
! Dyer-Businger. |
! Dyer-Businger. |
17 |
|
|
18 |
! Reference: Hess, Colman et McAvaney (1995) |
! Reference: Hess, Colman and McAvaney (1995) |
19 |
|
|
20 |
! I. Musat, 01.07.2002 |
! I. Musat, 01.07.2002 |
21 |
|
|
23 |
|
|
24 |
INTEGER, intent(in):: knon |
INTEGER, intent(in):: knon |
25 |
! knon----input-I- nombre de points pour un type de surface |
! knon----input-I- nombre de points pour un type de surface |
26 |
REAL, dimension(klon), intent(in):: speed, tair, qair |
REAL, dimension(klon), intent(in):: speed |
27 |
! speed---input-R- module du vent au 1er niveau du modele |
! speed---input-R- module du vent au 1er niveau du modele |
28 |
|
REAL, dimension(klon), intent(in):: tair |
29 |
! tair----input-R- temperature de l'air au 1er niveau du modele |
! tair----input-R- temperature de l'air au 1er niveau du modele |
30 |
|
REAL, dimension(klon), intent(in):: qair |
31 |
! qair----input-R- humidite relative au 1er niveau du modele |
! qair----input-R- humidite relative au 1er niveau du modele |
32 |
REAL, dimension(klon), intent(in):: ts, qsurf, rugos |
REAL, dimension(klon), intent(in):: ts |
33 |
! ts------input-R- temperature de l'air a la surface |
! ts------input-R- temperature de l'air a la surface |
34 |
|
REAL, dimension(klon), intent(in):: qsurf |
35 |
! qsurf---input-R- humidite relative a la surface |
! qsurf---input-R- humidite relative a la surface |
36 |
|
REAL, dimension(klon), intent(in):: rugos |
37 |
! rugos---input-R- rugosite |
! rugos---input-R- rugosite |
38 |
DOUBLE PRECISION, dimension(klon), intent(in):: lmon |
DOUBLE PRECISION, dimension(klon), intent(in):: lmon |
39 |
! lmon----input-R- longueur de Monin-Obukov |
! lmon----input-R- longueur de Monin-Obukov |
40 |
REAL, dimension(klon), intent(in):: ustar, testar, qstar |
REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent |
41 |
! ustar---input-R- facteur d'echelle pour le vent |
REAL, dimension(klon), intent(in):: testar |
42 |
! testar--input-R- facteur d'echelle pour la temperature potentielle |
! testar--input-R- facteur d'echelle pour la temperature potentielle |
43 |
|
REAL, dimension(klon), intent(in):: qstar |
44 |
! qstar---input-R- facteur d'echelle pour l'humidite relative |
! qstar---input-R- facteur d'echelle pour l'humidite relative |
45 |
REAL, intent(in):: zref |
REAL, intent(in):: zref |
46 |
! zref----input-R- altitude de reference |
! zref----input-R- altitude de reference |