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

Diff of /trunk/dyn3d/conf_dat2d.f

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

revision 121 by guez, Fri Apr 25 14:58:31 2014 UTC revision 122 by guez, Tue Feb 3 19:30:48 2015 UTC
# Line 103  contains Line 103  contains
103         end do         end do
104    
105         xf(i:) = xf(i:) - 2 * pi         xf(i:) = xf(i:) - 2 * pi
106         xf(:) = cshift(xf, shift=i - 1)         xf(:) = cshift(xf, shift = i - 1)
107         champd(:, :) = cshift(champd, shift=i - 1)         champd(:, :) = cshift(champd, shift = i - 1)
108      ENDIF      ENDIF
109    
110      IF (yd(1) < yd(lats)) THEN      IF (yd(1) < yd(lats)) THEN
Legend:
Removed from v.121  
changed lines
  Added in v.122
  ViewVC Help
Powered by ViewVC 1.1.21