/[lmdze]/trunk/dyn3d/rotatf.f90
ViewVC logotype

Diff of /trunk/dyn3d/rotatf.f90

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

revision 107 by guez, Thu Sep 11 15:09:15 2014 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 13  contains Line 13  contains
13      ! Calcule le rotationnel à tous les niveaux d'un vecteur de      ! Calcule le rotationnel à tous les niveaux d'un vecteur de
14      ! composantes covariantes x et y.      ! composantes covariantes x et y.
15    
16      USE dimens_m      USE dimensions
17      USE paramet_m      USE paramet_m
18      USE comgeom      USE comgeom
19      USE filtreg_m, ONLY: filtreg      USE filtreg_v_m, ONLY: filtreg_v
20    
21    
22      ! .....  variables en arguments  ......      ! .....  variables en arguments  ......
# Line 39  contains Line 39  contains
39         rot(iim + 1, :, l) = rot(1, :, l)         rot(iim + 1, :, l) = rot(1, :, l)
40      END DO      END DO
41    
42      CALL filtreg(rot, direct = .true., intensive = .false.)      CALL filtreg_v(rot, intensive = .false.)
43    
44      DO l = 1, klevel      DO l = 1, klevel
45         rot(:, :, l) = rot(:, :, l)*unsairez_2d         rot(:, :, l) = rot(:, :, l)*unsairez_2d
Legend:
Removed from v.107  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21