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

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

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

revision 102 by guez, Wed Mar 5 14:57:53 2014 UTC revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 12  contains Line 12  contains
12    
13      USE comgeom, ONLY: cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, &      USE comgeom, ONLY: cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, &
14           unsapolsga1           unsapolsga1
15      USE dimens_m, ONLY: iim, jjm, llm      USE dimens_m, ONLY: iim, jjm
16      use divergf_m, only: divergf      use divergf_m, only: divergf
17      USE filtreg_m, ONLY: filtreg      USE filtreg_m, ONLY: filtreg
18      use grad_m, only: grad      use grad_m, only: grad
# Line 29  contains Line 29  contains
29      real, intent(in):: cdivu      real, intent(in):: cdivu
30    
31      ! Variables locales :      ! Variables locales :
32      REAL nugrads, div(iim + 1, jjm + 1, llm)      REAL nugrads, div(iim + 1, jjm + 1, size(xcov, 3))
33      INTEGER iter, klevel      INTEGER iter, klevel
34    
35      !--------------------------------------------------------------      !--------------------------------------------------------------
# Line 47  contains Line 47  contains
47         CALL laplacien(klevel, 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
51            CALL laplacien_gam(klevel, cuvscvgam1, cvuscugam1, unsair_gam1, &            CALL laplacien_gam(klevel, cuvscvgam1, cvuscugam1, unsair_gam1, &
52                 unsapolnga1, unsapolsga1, div, div)                 unsapolnga1, unsapolsga1, div, div)
53         END DO         END DO
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21