/[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 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 207 by guez, Thu Sep 1 10:30:53 2016 UTC
# Line 14  contains Line 14  contains
14           unsapolsga1           unsapolsga1
15      USE dimens_m, ONLY: iim, jjm      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_scal_m, ONLY: filtreg_scal
18      use grad_m, only: grad      use grad_m, only: grad
19        use laplacien_gam_m, only: laplacien_gam
20      use laplacien_m, only: laplacien      use laplacien_m, only: laplacien
21      use nr_util, only: assert_eq, assert      use nr_util, only: assert_eq, assert
22    
# Line 53  contains Line 54  contains
54         END DO         END DO
55      ENDIF      ENDIF
56    
57      CALL filtreg(div, direct = .true., intensive = .true.)      CALL filtreg_scal(div, direct = .true., intensive = .true.)
58      CALL grad(klevel, div, gdx, gdy)      CALL grad(klevel, div, gdx, gdy)
59      nugrads = (-1.)**ld * cdivu      nugrads = (-1.)**ld * cdivu
60    
Legend:
Removed from v.134  
changed lines
  Added in v.207
  ViewVC Help
Powered by ViewVC 1.1.21