9 |
|
|
10 |
! From LMDZ4/libf/phylmd/stdlevvar.F90, version 1.3 2005/05/25 13:10:09 |
! From LMDZ4/libf/phylmd/stdlevvar.F90, version 1.3 2005/05/25 13:10:09 |
11 |
|
|
12 |
|
use coefcdrag_m, only: coefcdrag |
13 |
USE suphec_m, ONLY: rg, rkappa |
USE suphec_m, ONLY: rg, rkappa |
14 |
|
|
15 |
! Objet : calcul de la température et de l'humidité relative à 2 m |
! Objet : calcul de la température et de l'humidité relative à 2 m |
23 |
INTEGER, intent(in):: klon |
INTEGER, intent(in):: klon |
24 |
! dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) |
! dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) |
25 |
|
|
26 |
INTEGER, intent(in):: knon, nsrf |
INTEGER, intent(in):: knon |
27 |
! knon----input-I- nombre de points pour un type de surface |
! knon----input-I- nombre de points pour un type de surface |
28 |
|
INTEGER, intent(in):: nsrf |
29 |
! nsrf----input-I- indice pour le type de surface; voir indicesol.inc |
! nsrf----input-I- indice pour le type de surface; voir indicesol.inc |
30 |
LOGICAL, intent(in):: zxli |
LOGICAL, intent(in):: zxli |
31 |
! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li |
! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li |
32 |
REAL, dimension(klon), intent(in):: u1, v1, t1, q1, z1, ts1 |
REAL, dimension(klon), intent(in):: u1 |
33 |
! u1------input-R- vent zonal au 1er niveau du modele |
! u1------input-R- vent zonal au 1er niveau du modele |
34 |
|
REAL, dimension(klon), intent(in):: v1 |
35 |
! v1------input-R- vent meridien au 1er niveau du modele |
! v1------input-R- vent meridien au 1er niveau du modele |
36 |
|
REAL, dimension(klon), intent(in):: t1 |
37 |
! t1------input-R- temperature de l'air au 1er niveau du modele |
! t1------input-R- temperature de l'air au 1er niveau du modele |
38 |
|
REAL, dimension(klon), intent(in):: q1 |
39 |
! q1------input-R- humidite relative au 1er niveau du modele |
! q1------input-R- humidite relative au 1er niveau du modele |
40 |
|
REAL, dimension(klon), intent(in):: z1 |
41 |
! z1------input-R- geopotentiel au 1er niveau du modele |
! z1------input-R- geopotentiel au 1er niveau du modele |
42 |
|
REAL, dimension(klon), intent(in):: ts1 |
43 |
! ts1-----input-R- temperature de l'air a la surface |
! ts1-----input-R- temperature de l'air a la surface |
44 |
REAL, dimension(klon), intent(in):: qsurf, rugos |
REAL, dimension(klon), intent(in):: qsurf |
45 |
! qsurf---input-R- humidite relative a la surface |
! qsurf---input-R- humidite relative a la surface |
46 |
|
REAL, dimension(klon), intent(in):: rugos |
47 |
! rugos---input-R- rugosite |
! rugos---input-R- rugosite |
48 |
REAL, dimension(klon), intent(in):: psol, pat1 |
REAL, dimension(klon), intent(in):: psol |
49 |
! psol----input-R- pression au sol |
! psol----input-R- pression au sol |
50 |
|
REAL, dimension(klon), intent(in):: pat1 |
51 |
! pat1----input-R- pression au 1er niveau du modele |
! pat1----input-R- pression au 1er niveau du modele |
52 |
|
|
53 |
REAL, dimension(klon), intent(out):: t_2m, q_2m, t_10m, q_10m |
REAL, dimension(klon), intent(out):: t_2m |
54 |
! t_2m---output-R- temperature de l'air a 2m |
! t_2m---output-R- temperature de l'air a 2m |
55 |
|
REAL, dimension(klon), intent(out):: q_2m |
56 |
! q_2m---output-R- humidite relative a 2m |
! q_2m---output-R- humidite relative a 2m |
57 |
|
REAL, dimension(klon), intent(out):: t_10m |
58 |
! t_10m--output-R- temperature de l'air a 10m |
! t_10m--output-R- temperature de l'air a 10m |
59 |
|
REAL, dimension(klon), intent(out):: q_10m |
60 |
! q_10m--output-R- humidite specifique a 10m |
! q_10m--output-R- humidite specifique a 10m |
61 |
REAL, dimension(klon), intent(out):: u_10m |
REAL, dimension(klon), intent(out):: u_10m |
62 |
! u_10m--output-R- vitesse du vent a 10m |
! u_10m--output-R- vitesse du vent a 10m |