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

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

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

revision 245 by guez, Thu Nov 2 15:47:03 2017 UTC revision 246 by guez, Wed Nov 15 13:56:45 2017 UTC
# Line 15  contains Line 15  contains
15      ! \`a la surface (pour theta et q) \`a partir des relations de      ! \`a la surface (pour theta et q) \`a partir des relations de
16      ! Dyer-Businger.      ! Dyer-Businger.
17    
18      ! Reference: Hess, Colman et McAvaney (1995)      ! Reference: Hess, Colman and McAvaney (1995)
19    
20      ! I. Musat, 01.07.2002      ! I. Musat, 01.07.2002
21    
# Line 23  contains Line 23  contains
23    
24      INTEGER, intent(in):: knon      INTEGER, intent(in):: knon
25      ! knon----input-I- nombre de points pour un type de surface      ! knon----input-I- nombre de points pour un type de surface
26      REAL, dimension(klon), intent(in):: speed, tair, qair      REAL, dimension(klon), intent(in):: speed
27      ! speed---input-R- module du vent au 1er niveau du modele      ! speed---input-R- module du vent au 1er niveau du modele
28        REAL, dimension(klon), intent(in):: tair
29      ! tair----input-R- temperature de l'air au 1er niveau du modele      ! tair----input-R- temperature de l'air au 1er niveau du modele
30        REAL, dimension(klon), intent(in):: qair
31      ! qair----input-R- humidite relative au 1er niveau du modele      ! qair----input-R- humidite relative au 1er niveau du modele
32      REAL, dimension(klon), intent(in):: ts, qsurf, rugos      REAL, dimension(klon), intent(in):: ts
33      ! ts------input-R- temperature de l'air a la surface      ! ts------input-R- temperature de l'air a la surface
34        REAL, dimension(klon), intent(in):: qsurf
35      ! qsurf---input-R- humidite relative a la surface      ! qsurf---input-R- humidite relative a la surface
36        REAL, dimension(klon), intent(in):: rugos
37      ! rugos---input-R- rugosite      ! rugos---input-R- rugosite
38      DOUBLE PRECISION, dimension(klon), intent(in):: lmon      DOUBLE PRECISION, dimension(klon), intent(in):: lmon
39      ! lmon----input-R- longueur de Monin-Obukov      ! lmon----input-R- longueur de Monin-Obukov
40      REAL, dimension(klon), intent(in):: ustar, testar, qstar      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent
41      ! ustar---input-R- facteur d'echelle pour le vent      REAL, dimension(klon), intent(in):: testar
42      ! testar--input-R- facteur d'echelle pour la temperature potentielle      ! testar--input-R- facteur d'echelle pour la temperature potentielle
43        REAL, dimension(klon), intent(in):: qstar
44      ! qstar---input-R- facteur d'echelle pour l'humidite relative      ! qstar---input-R- facteur d'echelle pour l'humidite relative
45      REAL, intent(in):: zref      REAL, intent(in):: zref
46      ! zref----input-R- altitude de reference      ! zref----input-R- altitude de reference

Legend:
Removed from v.245  
changed lines
  Added in v.246

  ViewVC Help
Powered by ViewVC 1.1.21