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

Diff of /trunk/dyn3d/divergf.f90

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 137 by guez, Wed May 6 15:51:03 2015 UTC
# Line 15  contains Line 15  contains
15    
16      USE comgeom, ONLY: apoln, apols, cuvsurcv_2d, cvusurcu_2d, unsaire_2d      USE comgeom, ONLY: apoln, apols, cuvsurcv_2d, cvusurcu_2d, unsaire_2d
17      USE dimens_m, ONLY: iim, jjm      USE dimens_m, ONLY: iim, jjm
18      USE filtreg_m, ONLY: filtreg      USE filtreg_scal_m, ONLY: filtreg_scal
19    
20      INTEGER, intent(in):: klevel      INTEGER, intent(in):: klevel
21      REAL, intent(in):: x(iim + 1, jjm + 1, klevel), y(iim + 1, jjm, klevel)      REAL, intent(in):: x(iim + 1, jjm + 1, klevel), y(iim + 1, jjm, klevel)
# Line 41  contains Line 41  contains
41              / apols              / apols
42      end DO      end DO
43    
44      CALL filtreg(div, direct = .true., intensive = .false.)      CALL filtreg_scal(div, direct = .true., intensive = .false.)
45    
46      DO l = 1, klevel      DO l = 1, klevel
47         div(:, 2:jjm, l) = div(:, 2:jjm, l) * unsaire_2d(:, 2:jjm)         div(:, 2:jjm, l) = div(:, 2:jjm, l) * unsaire_2d(:, 2:jjm)
Legend:
Removed from v.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21