Parent Directory
|
Revision Log
|
Patch
trunk/dyn3d/conf_dat2d.f revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC | trunk/dyn3d/conf_dat2d.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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 |