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

Diff of /trunk/phylmd/coefkzmin.f

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 267 by guez, Thu May 3 16:14:08 2018 UTC
# Line 48  contains Line 48  contains
48    
49      knon = size(ypaprs, 1)      knon = size(ypaprs, 1)
50            
51      ! Debut de la partie qui doit etre incluse a terme dans clmain.      ! Debut de la partie qui doit etre incluse a terme dans pbl_surface.
52    
53      do i = 1, knon      do i = 1, knon
54         zlay(i, 1) = RD * yt(i, 1) * 2 / (ypaprs(i, 1) + ypplay(i, 1)) &         zlay(i, 1) = RD * yt(i, 1) * 2 / (ypaprs(i, 1) + ypplay(i, 1)) &
# Line 74  contains Line 74  contains
74      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))
75      ustar = SQRT(ycoefm * (yu(:, 1)**2 + yv(:, 1)**2))      ustar = SQRT(ycoefm * (yu(:, 1)**2 + yv(:, 1)**2))
76    
77      ! Fin de la partie qui doit être incluse à terme dans clmain      ! Fin de la partie qui doit être incluse à terme dans pbl_surface
78    
79      ! Cette routine est ecrite pour avoir en entree ustar, teta et zlev      ! Cette routine est ecrite pour avoir en entree ustar, teta et zlev
80      ! Ici, on a inclus le calcul de ces trois variables dans la routine      ! Ici, on a inclus le calcul de ces trois variables dans la routine
Legend:
Removed from v.254  
changed lines
  Added in v.267
  ViewVC Help
Powered by ViewVC 1.1.21