/[lmdze]/trunk/phylmd/screenc.f
ViewVC logotype

Diff of /trunk/phylmd/screenc.f

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

trunk/Sources/phylmd/screenc.f revision 227 by guez, Thu Nov 2 15:47:03 2017 UTC trunk/phylmd/screenc.f revision 274 by guez, Wed Jul 11 16:50:27 2018 UTC
# Line 40  contains Line 40  contains
40      ! qsurf---input-R- humidite relative a la surface      ! qsurf---input-R- humidite relative a la surface
41      ! rugos---input-R- rugosite      ! rugos---input-R- rugosite
42      ! psol----input-R- pression au sol      ! psol----input-R- pression au sol
43      REAL, dimension(klon), intent(in):: ustar, testar, qstar      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent
44      ! ustar---input-R- facteur d'echelle pour le vent      REAL, dimension(klon), intent(in):: testar
45      ! testar--input-R- facteur d'echelle pour la temperature potentielle      ! testar--input-R- facteur d'echelle pour la temperature potentielle
46        REAL, dimension(klon), intent(in):: qstar
47      ! qstar---input-R- facteur d'echelle pour l'humidite relative      ! qstar---input-R- facteur d'echelle pour l'humidite relative
48    
49      REAL, dimension(klon), intent(out):: pref      REAL, intent(out):: pref(:) ! (knon) pression au niveau de reference
     ! pref----input-R- pression au niveau de reference  
50      REAL, dimension(klon), intent(out):: delu      REAL, dimension(klon), intent(out):: delu
51      ! delu----input-R- anomalie du vent par rapport au 1er niveau      ! delu----input-R- anomalie du vent par rapport au 1er niveau
52      REAL, dimension(klon), intent(out):: delte      REAL, dimension(klon), intent(out):: delte
# Line 57  contains Line 57  contains
57    
58      ! Local:      ! Local:
59      INTEGER i      INTEGER i
60      REAL, dimension(klon):: cdram, cdrah, cdran, zri1, gref      REAL, dimension(knon):: cdram, cdrah, gref
61    
62      !-------------------------------------------------------------------------      !-------------------------------------------------------------------------
63    
# Line 67  contains Line 67  contains
67    
68      ! Richardson at reference level      ! Richardson at reference level
69    
70      CALL coefcdrag (knon, nsrf, speed(:knon), temp(:knon), &      CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), &
71           q_zref(:knon), gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, &           gref(:knon), psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), &
72           cdrah, cdran, zri1, pref)           cdram, cdrah, pref)
73    
74      DO i = 1, knon      DO i = 1, knon
75         delu(i) = ustar(i) / sqrt(cdram(i))         delu(i) = ustar(i) / sqrt(cdram(i))
Legend:
Removed from v.227  
changed lines
  Added in v.274
  ViewVC Help
Powered by ViewVC 1.1.21