/[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 272 by guez, Wed Jul 11 14:51:28 2018 UTC revision 274 by guez, Wed Jul 11 16:50:27 2018 UTC
# Line 57  contains Line 57  contains
57    
58      ! Local:      ! Local:
59      INTEGER i      INTEGER i
60      REAL, dimension(klon):: cdram, cdrah, gref      REAL, dimension(knon):: cdram, cdrah, gref
61    
62      !-------------------------------------------------------------------------      !-------------------------------------------------------------------------
63    
# Line 68  contains Line 68  contains
68      ! Richardson at reference level      ! Richardson at reference level
69    
70      CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), &      CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), &
71           gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, cdrah, pref)           gref(:knon), psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), &
72             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.272  
changed lines
  Added in v.274
  ViewVC Help
Powered by ViewVC 1.1.21