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

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

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

revision 302 by guez, Thu Sep 6 13:19:51 2018 UTC revision 303 by guez, Thu Sep 6 14:25:07 2018 UTC
# Line 64  contains Line 64  contains
64    
65         zlev(:, 1) = 0.         zlev(:, 1) = 0.
66         forall (k = 2:klev) zlev(:, k) = 0.5 * (zlay(:, k) + zlay(:, k-1))         forall (k = 2:klev) zlev(:, k) = 0.5 * (zlay(:, k) + zlay(:, k-1))
67         zlev(:, klev + 1) = 2. * zlay(:, klev) - zlay(:, klev - 1)         zlev(:, klev + 1) = 2. * zlay(:, klev) - zlev(:, klev)
68    
69         CALL yamada4(zlev, zlay, u, v, teta, q2, coefm, coefh, &         CALL yamada4(zlev, zlay, u, v, teta, q2, coefm, coefh, &
70              ustarhb(u(:, 1), v(:, 1), cdragm))              ustarhb(u(:, 1), v(:, 1), cdragm))
Legend:
Removed from v.302  
changed lines
  Added in v.303
  ViewVC Help
Powered by ViewVC 1.1.21