--- trunk/dyn3d/conf_dat2d.f	2014/04/25 14:58:31	97
+++ trunk/dyn3d/conf_dat2d.f	2018/02/05 10:39:38	254
@@ -103,8 +103,8 @@
        end do
 
        xf(i:) = xf(i:) - 2 * pi
-       xf(:) = cshift(xf, shift=i - 1)
-       champd(:, :) = cshift(champd, shift=i - 1)
+       xf(:) = cshift(xf, shift = i - 1)
+       champd(:, :) = cshift(champd, shift = i - 1)
     ENDIF
 
     IF (yd(1) < yd(lats)) THEN