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

Diff of /trunk/dyn3d/divergf.f

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

trunk/dyn3d/divergf.f revision 106 by guez, Tue Sep 9 12:54:30 2014 UTC trunk/Sources/dyn3d/divergf.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 41  contains Line 41  contains
41              / apols              / apols
42      end DO      end DO
43    
44      CALL filtreg(div, jjm + 1, klevel, 2, 2, .TRUE.)      CALL filtreg(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.106  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21