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

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

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

revision 238 by guez, Thu Nov 9 14:11:39 2017 UTC revision 245 by guez, Tue Nov 14 15:43:29 2017 UTC
# Line 26  contains Line 26  contains
26    
27      ! Local:      ! Local:
28      INTEGER i      INTEGER i
29      REAL zxmod, taux, tauy      REAL wind
30    
31      !---------------------------------------------------------------      !---------------------------------------------------------------
32    
33      DO i = 1, size(u)      DO i = 1, size(u)
34         zxmod = 1. + SQRT(u(i)**2 + v(i)**2)         wind = SQRT(u(i)**2 + v(i)**2)
35         taux = u(i) * zxmod * cd_m(i)         ustarhb(i) = wind * (1 + wind) * cd_m(i)
        tauy = v(i) * zxmod * cd_m(i)  
        ustarhb(i) = SQRT(taux**2 + tauy**2)  
36      ENDDO      ENDDO
37    
38    end function ustarhb    end function ustarhb
Legend:
Removed from v.238  
changed lines
  Added in v.245
  ViewVC Help
Powered by ViewVC 1.1.21