/[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

revision 207 by guez, Tue Mar 22 16:31:39 2016 UTC revision 208 by guez, Wed Dec 7 16:44:53 2016 UTC
# Line 19  contains Line 19  contains
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:
Legend:
Removed from v.207  
changed lines
  Added in v.208
  ViewVC Help
Powered by ViewVC 1.1.21