/[lmdze]/trunk/Sources/phylmd/stdlevvar.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/stdlevvar.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/phylmd/stdlevvar.f revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC trunk/Sources/phylmd/stdlevvar.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 9  contains Line 9  contains
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
# Line 22  contains Line 23  contains
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
Legend:
Removed from v.104  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21