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

Diff of /trunk/dyn3d/divergf.f

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

revision 106 by guez, Tue Sep 9 12:54:30 2014 UTC revision 107 by guez, Thu Sep 11 15:09:15 2014 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.107
  ViewVC Help
Powered by ViewVC 1.1.21