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

Diff of /trunk/phylmd/pbl_surface.f

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

revision 240 by guez, Mon Nov 13 11:29:18 2017 UTC revision 241 by guez, Mon Nov 13 11:51:04 2017 UTC
# Line 491  contains Line 491  contains
491               END DO               END DO
492            END DO            END DO
493                        
494            DO j = 1, knon            ycoefh(ni(:knon), 2:) = ycoefh(ni(:knon), 2:) + coefh(:knon, :)
495               i = ni(j)            ycoefh(ni(:knon), 1) = ycoefh(ni(:knon), 1) + ycdragh(:knon)
              DO k = 2, klev  
                 ycoefh(i, k) = ycoefh(i, k) + coefh(j, k)  
              END DO  
           END DO  
   
           DO j = 1, knon  
              i = ni(j)  
              ycoefh(i, 1) = ycoefh(i, 1) + ycdragh(j)  
           END DO  
496    
497            ! diagnostic t, q a 2m et u, v a 10m            ! diagnostic t, q a 2m et u, v a 10m
498    
Legend:
Removed from v.240  
changed lines
  Added in v.241
  ViewVC Help
Powered by ViewVC 1.1.21