/[lmdze]/trunk/dyn3d/Dissipation/nxgraro2.f
ViewVC logotype

Diff of /trunk/dyn3d/Dissipation/nxgraro2.f

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

trunk/libf/dyn3d/Dissipation/nxgraro2.f90 revision 65 by guez, Thu Sep 20 09:57:03 2012 UTC trunk/dyn3d/Dissipation/nxgraro2.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 11  contains Line 11  contains
11      ! P. Le Van      ! P. Le Van
12      ! Calcul de nxgrad(rot) du vecteur v      ! Calcul de nxgrad(rot) du vecteur v
13    
14      USE dimens_m, ONLY: iim, jjm      USE dimensions, ONLY: iim, jjm
15      USE filtreg_m, ONLY: filtreg      USE filtreg_v_m, ONLY: filtreg_v
16      use nr_util, only: assert, assert_eq      use nr_util, only: assert, assert_eq
17        use rotatf_m, only: rotatf
18    
19      ! Composantes covariantes de v :      ! Composantes covariantes de v :
20      REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, :)      REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, :)
# Line 49  contains Line 50  contains
50         CALL laplacien_rotgam(klevel, rot, rot)         CALL laplacien_rotgam(klevel, rot, rot)
51      ENDDO      ENDDO
52    
53      CALL filtreg(rot, jjm, klevel, 2, 1, .FALSE.)      CALL filtreg_v(rot, intensive = .true.)
54      CALL nxgrad(klevel, rot, grx, gry)      CALL nxgrad(klevel, rot, grx, gry)
55    
56      nugradrs = (-1.)**lr * crot      nugradrs = (-1.)**lr * crot
Legend:
Removed from v.65  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21