19 |
|
|
20 |
! Reference: Hess, Colman and McAvaney (1995) |
! Reference: Hess, Colman and McAvaney (1995) |
21 |
|
|
22 |
! Author: I. Musat, 01.07.2002 |
! Author: I. Musat, July 1st, 2002 |
23 |
|
|
24 |
INTEGER, intent(in):: klon |
INTEGER, intent(in):: klon |
25 |
! dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) |
! dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) |
26 |
|
|
27 |
INTEGER, intent(in):: knon |
INTEGER, intent(in):: knon ! nombre de points pour un type de surface |
28 |
! knon----input-I- nombre de points pour un type de surface |
|
29 |
INTEGER, intent(in):: nsrf |
INTEGER, intent(in):: nsrf |
30 |
! nsrf----input-I- indice pour le type de surface; voir indicesol.inc |
! indice pour le type de surface; voir indicesol.inc |
31 |
LOGICAL, intent(in):: zxli |
|
32 |
! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li |
LOGICAL, intent(in):: zxli ! calcul des cdrags selon Laurent Li |
33 |
REAL, dimension(klon), intent(in):: u1 |
REAL, dimension(klon), intent(in):: u1 ! vent zonal au 1er niveau du modele |
34 |
! u1------input-R- vent zonal au 1er niveau du modele |
|
35 |
REAL, dimension(klon), intent(in):: v1 |
REAL, dimension(klon), intent(in):: v1 |
36 |
! v1------input-R- vent meridien au 1er niveau du modele |
! vent meridien au 1er niveau du modele |
37 |
REAL, dimension(klon), intent(in):: t1 |
|
38 |
! t1------input-R- temperature de l'air au 1er niveau du modele |
REAL, dimension(klon), intent(in):: t1 |
39 |
|
! temperature de l'air au 1er niveau du modele |
40 |
|
|
41 |
REAL, dimension(klon), intent(in):: q1 |
REAL, dimension(klon), intent(in):: q1 |
42 |
! q1------input-R- humidite relative au 1er niveau du modele |
! humidite relative au 1er niveau du modele |
43 |
REAL, dimension(klon), intent(in):: z1 |
|
44 |
! z1------input-R- geopotentiel au 1er niveau du modele |
REAL, dimension(klon), intent(in):: z1 |
45 |
REAL, dimension(klon), intent(in):: ts1 |
! geopotentiel au 1er niveau du modele |
46 |
! ts1-----input-R- temperature de l'air a la surface |
|
47 |
REAL, dimension(klon), intent(in):: qsurf |
REAL, dimension(klon), intent(in):: ts1 ! temperature de l'air a la surface |
48 |
! qsurf---input-R- humidite relative a la surface |
REAL, dimension(klon), intent(in):: qsurf ! humidite relative a la surface |
49 |
REAL, dimension(klon), intent(in):: rugos |
REAL, dimension(klon), intent(in):: rugos ! rugosite |
50 |
! rugos---input-R- rugosite |
REAL, dimension(klon), intent(in):: psol ! pression au sol |
51 |
REAL, dimension(klon), intent(in):: psol |
REAL, dimension(klon), intent(in):: pat1 ! pression au 1er niveau du modele |
52 |
! psol----input-R- pression au sol |
REAL, dimension(klon), intent(out):: t_2m ! temperature de l'air a 2m |
53 |
REAL, dimension(klon), intent(in):: pat1 |
REAL, dimension(klon), intent(out):: q_2m ! humidite relative a 2m |
54 |
! pat1----input-R- pression au 1er niveau du modele |
REAL, dimension(klon), intent(out):: t_10m ! temperature de l'air a 10m |
55 |
|
REAL, dimension(klon), intent(out):: q_10m ! humidite specifique a 10m |
56 |
REAL, dimension(klon), intent(out):: t_2m |
REAL, dimension(klon), intent(out):: u_10m ! vitesse du vent a 10m |
|
! t_2m---output-R- temperature de l'air a 2m |
|
|
REAL, dimension(klon), intent(out):: q_2m |
|
|
! q_2m---output-R- humidite relative a 2m |
|
|
REAL, dimension(klon), intent(out):: t_10m |
|
|
! t_10m--output-R- temperature de l'air a 10m |
|
|
REAL, dimension(klon), intent(out):: q_10m |
|
|
! q_10m--output-R- humidite specifique a 10m |
|
|
REAL, dimension(klon), intent(out):: u_10m |
|
|
! u_10m--output-R- vitesse du vent a 10m |
|
57 |
REAL, intent(out):: ustar(klon) ! u* |
REAL, intent(out):: ustar(klon) ! u* |
58 |
|
|
59 |
! Local: |
! Local: |