/[lmdze]/trunk/libf/dyn3d/inigeom.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/inigeom.f90

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

revision 60 by guez, Mon Jan 30 14:37:26 2012 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 247  contains Line 247  contains
247      cvij4(:iim, jjp1) = cvij1(:iim, jjp1)      cvij4(:iim, jjp1) = cvij1(:iim, jjp1)
248    
249      ! Périodicité :      ! Périodicité :
250    
251      cvij1(iip1, :) = cvij1(1, :)      cvij1(iip1, :) = cvij1(1, :)
252      cvij2(iip1, :) = cvij2(1, :)      cvij2(iip1, :) = cvij2(1, :)
253      cvij3(iip1, :) = cvij3(1, :)      cvij3(iip1, :) = cvij3(1, :)
# Line 374  contains Line 374  contains
374    
375      ! Calcul aux pôles      ! Calcul aux pôles
376    
377      DO i = 1, iip1      cu_2d(:, 1) = 0.
378         cu_2d(i, 1) = 0.      unscu2_2d(:, 1) = 0.
379         unscu2_2d(i, 1) = 0.      cvu(:, 1) = 0.
380         cvu(i, 1) = 0.  
381        cu_2d(:, jjp1) = 0.
382         cu_2d(i, jjp1) = 0.      unscu2_2d(:, jjp1) = 0.
383         unscu2_2d(i, jjp1) = 0.      cvu(:, jjp1) = 0.
        cvu(i, jjp1) = 0.  
     END DO  
384    
385      DO j = 1, jjm      DO j = 1, jjm
386         DO i = 1, iim         DO i = 1, iim
Legend:
Removed from v.60  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21