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

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

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

revision 245 by guez, Thu Nov 2 15:47:03 2017 UTC revision 246 by guez, Wed Nov 15 13:56:45 2017 UTC
# Line 43  contains Line 43  contains
43      REAL, intent(out):: t_10m(klon) ! temperature de l'air a 10m      REAL, intent(out):: t_10m(klon) ! temperature de l'air a 10m
44      REAL, intent(out):: q_10m(klon) ! humidite specifique a 10m      REAL, intent(out):: q_10m(klon) ! humidite specifique a 10m
45      REAL, intent(out):: wind10m(:) ! (knon) norme du vent \`a 10m      REAL, intent(out):: wind10m(:) ! (knon) norme du vent \`a 10m
46      REAL, intent(out):: ustar(klon) ! u*      REAL, intent(out):: ustar(:) ! (knon) u*
47    
48      ! Local:      ! Local:
49      REAL, PARAMETER:: RKAR = 0.4 ! constante de von Karman      REAL, PARAMETER:: RKAR = 0.4 ! constante de von Karman
# Line 72  contains Line 72  contains
72         ri1(i) = 0.0         ri1(i) = 0.0
73      ENDDO      ENDDO
74    
75      CALL coefcdrag(knon, nsrf, speed(:knon), t1(:knon), q1(:knon), &      CALL coefcdrag(nsrf, speed(:knon), t1(:knon), q1(:knon), z1(:knon), &
76           z1(:knon), psol(:knon), ts1, qsurf, rugos, cdram, cdrah, cdran, &           psol(:knon), ts1, qsurf, rugos, cdram, cdrah, cdran, zri1, pref)
          zri1, pref)  
77    
78      ! Star variables      ! Star variables
79    
Legend:
Removed from v.245  
changed lines
  Added in v.246
  ViewVC Help
Powered by ViewVC 1.1.21