/[lmdze]/trunk/libf/dyn3d/Dissipation/gradiv2.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/Dissipation/gradiv2.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 17  contains Line 17  contains
17      USE filtreg_m, ONLY : filtreg      USE filtreg_m, ONLY : filtreg
18      use grad_m, only: grad      use grad_m, only: grad
19      use nr_util, only: assert_eq, assert      use nr_util, only: assert_eq, assert
20        use laplacien_m, only: laplacien
21    
22      ! Composantes covariantes de v :      ! Composantes covariantes de v :
23      REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, klevel)      REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, klevel)
# Line 43  contains Line 44  contains
44      CALL divergf(klevel, xcov, ycov, div)      CALL divergf(klevel, xcov, ycov, div)
45    
46      IF (ld > 1) THEN      IF (ld > 1) THEN
47         CALL laplacien(klevel, div, div)         CALL laplacien(klevel, div)
48    
49         ! Itération de l'opérateur laplacien_gam         ! Itération de l'opérateur laplacien_gam
50         DO iter = 1, ld -2         DO iter = 1, ld -2
Legend:
Removed from v.60  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21