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

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

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

revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC revision 196 by guez, Mon May 23 13:50:39 2016 UTC
# Line 83  contains Line 83  contains
83      real l0(ngrid)      real l0(ngrid)
84      real sq(ngrid), sqz(ngrid), zz(ngrid, klev+1)      real sq(ngrid), sqz(ngrid), zz(ngrid, klev+1)
85      integer iter      integer iter
86      real:: ric = 0.195, rifc = 0.191, b1 = 16.6, kap = 0.4      real:: ric = 0.195, rifc = 0.191, b1 = 16.6
87    
88      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
89    
# Line 141  contains Line 141  contains
141         enddo         enddo
142      enddo      enddo
143    
144      ! Au premier appel, on d\'etermine l et q2 de façon it\'erative.      ! Au premier appel, on d\'etermine l et q2 de fa\ccon it\'erative.
145      ! It\'eration pour d\'eterminer la longueur de m\'elange      ! It\'eration pour d\'eterminer la longueur de m\'elange
146    
147      if (first .or. iflag_pbl == 6) then      if (first .or. iflag_pbl == 6) then
Legend:
Removed from v.178  
changed lines
  Added in v.196
  ViewVC Help
Powered by ViewVC 1.1.21