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

Diff of /trunk/dyn3d/divergf.f

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

trunk/libf/dyn3d/divergf.f90 revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC trunk/dyn3d/divergf.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 12  contains Line 12  contains
12      ! Calcule la divergence à tous les niveaux d'un vecteur de      ! Calcule la divergence à tous les niveaux d'un vecteur de
13      ! composantes x et y. x et y sont des composantes covariantes.      ! composantes x et y. x et y sont des composantes covariantes.
14    
     USE dimens_m, ONLY: iim  
     USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1, jjp1  
15      USE comgeom, ONLY: apoln, apols, cuvsurcv, cvusurcu, unsaire      USE comgeom, ONLY: apoln, apols, cuvsurcv, cvusurcu, unsaire
16        USE dimens_m, ONLY: iim
17      USE filtreg_m, ONLY: filtreg      USE filtreg_m, ONLY: filtreg
18        USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1, jjp1
19    
20      INTEGER, intent(in):: klevel      INTEGER, intent(in):: klevel
21      REAL, intent(in):: x(ip1jmp1, klevel), y(ip1jm, klevel)      REAL, intent(in):: x(ip1jmp1, klevel), y(ip1jm, klevel)
# 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.61  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21