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