/[lmdze]/trunk/phylmd/Interface_surf/screenc.f90
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/screenc.f90

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

revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC revision 341 by guez, Mon Oct 21 06:11:44 2019 UTC
# Line 37  contains Line 37  contains
37      ! q_zref--input-R- humidite relative au 1er niveau du modele      ! q_zref--input-R- humidite relative au 1er niveau du modele
38      REAL, intent(in):: zref      REAL, intent(in):: zref
39      ! zref----input-R- altitude de reference      ! zref----input-R- altitude de reference
40      REAL, dimension(klon), intent(in):: ts      REAL, intent(in):: ts(:) ! (knon) temperature de l'air a la surface
     ! ts------input-R- temperature de l'air a la surface  
41      REAL, intent(in):: qsurf(:) ! (knon) humidite relative a la surface      REAL, intent(in):: qsurf(:) ! (knon) humidite relative a la surface
42      REAL, dimension(klon), intent(in):: rugos      REAL, dimension(klon), intent(in):: rugos
43      ! rugos---input-R- rugosite      ! rugos---input-R- rugosite
44      REAL, dimension(klon), intent(in):: psol      REAL, intent(in):: psol(:) ! (knon) pression au sol
     ! psol----input-R- pression au sol  
45      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent      REAL, intent(in):: ustar(:) ! (knon) facteur d'\'echelle pour le vent
46      REAL, dimension(klon), intent(in):: testar      REAL, dimension(klon), intent(in):: testar
47      ! testar--input-R- facteur d'echelle pour la temperature potentielle      ! testar--input-R- facteur d'echelle pour la temperature potentielle
# Line 71  contains Line 69  contains
69    
70      ! Richardson at reference level      ! Richardson at reference level
71    
72      CALL cdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), gref(:knon), &      CALL cdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), gref, psol, ts, &
73           psol(:knon), ts(:knon), qsurf, rugos(:knon), cdram, cdrah, pref)           qsurf, rugos(:knon), cdram, cdrah, pref)
74    
75      DO i = 1, knon      DO i = 1, knon
76         delu(i) = ustar(i) / sqrt(cdram(i))         delu(i) = ustar(i) / sqrt(cdram(i))
Legend:
Removed from v.328  
changed lines
  Added in v.341
  ViewVC Help
Powered by ViewVC 1.1.21