/[lmdze]/trunk/dyn3d/divergf.f
ViewVC logotype

Diff of /trunk/dyn3d/divergf.f

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

revision 60 by guez, Mon Jan 30 14:37:26 2012 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE divergf(klevel, x, y, div)    SUBROUTINE divergf(klevel, x, y, div)
8    
9      ! From libf/dyn3d/divergf.F, v 1.1.1.1 2004/05/19 12:53:05      ! From libf/dyn3d/divergf.F, version 1.1.1.1 2004/05/19 12:53:05
10    
11      ! P. Le Van      ! P. Le Van
12      ! Calcule la divergence à tous les niveaux d'un vecteur de      ! Calcule la divergence à tous les niveaux d'un vecteur de
# Line 55  contains Line 55  contains
55         ENDDO         ENDDO
56      end DO      end DO
57    
58      CALL filtreg(div, jjp1, klevel, 2, 2, .TRUE., 1)      CALL filtreg(div, jjp1, klevel, 2, 2, .TRUE.)
59    
60      DO l = 1, klevel      DO l = 1, klevel
61         DO ij = iip2, ip1jm         DO ij = iip2, ip1jm
Legend:
Removed from v.60  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21