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

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

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

trunk/Sources/phylmd/ustarhb.f revision 227 by guez, Thu Nov 2 15:47:03 2017 UTC trunk/phylmd/ustarhb.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# Line 12  contains Line 12  contains
12      ! Couche limite non-locale. Adaptation du code du CCM3.      ! Couche limite non-locale. Adaptation du code du CCM3.
13      ! Code non test\'e, donc \`a ne pas utiliser.      ! Code non test\'e, donc \`a ne pas utiliser.
14    
15      ! Nonlocal scheme that determines eddy diffusivities based on a      ! Non-local scheme that determines eddy diffusivities based on a
16      ! diagnosed boundary layer height and a turbulent velocity scale.      ! diagnosed boundary layer height and a turbulent velocity scale.
17      ! Also countergradient effects for heat and moisture are included.      ! Also countergradient effects for heat and moisture are included.
18    
# 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.227  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21