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

Diff of /trunk/phylmd/screenc.f

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

revision 274 by guez, Wed Jul 11 16:50:27 2018 UTC revision 275 by guez, Wed Jul 11 17:06:09 2018 UTC
# Line 19  contains Line 19  contains
19    
20      ! I. Musat, 01.07.2002      ! I. Musat, 01.07.2002
21    
22      use coefcdrag_m, only: coefcdrag      use cdrag_m, only: cdrag
23      use SUPHEC_M, only: RG      use SUPHEC_M, only: RG
24    
25      INTEGER, intent(in):: klon      INTEGER, intent(in):: klon
# Line 67  contains Line 67  contains
67    
68      ! Richardson at reference level      ! Richardson at reference level
69    
70      CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), &      CALL cdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), gref(:knon), &
71           gref(:knon), psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), &           psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), cdram, cdrah, pref)
          cdram, cdrah, pref)  
72    
73      DO i = 1, knon      DO i = 1, knon
74         delu(i) = ustar(i) / sqrt(cdram(i))         delu(i) = ustar(i) / sqrt(cdram(i))
Legend:
Removed from v.274  
changed lines
  Added in v.275
  ViewVC Help
Powered by ViewVC 1.1.21