Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |