--- trunk/libf/dyn3d/conf_dat2d.f90	2012/11/14 16:59:30	68
+++ trunk/dyn3d/conf_dat2d.f	2018/02/05 10:39:38	254
@@ -36,12 +36,11 @@
     ! (latitudes, in degrees or radians, in increasing or decreasing
     ! order, from pole to pole)
 
-    LOGICAL, intent(in), optional:: interbar
     REAL, intent(out):: xf(:), yf(:) ! longitudes and latitudes, in rad
     REAL, intent(inout):: champd(:, :)
+    LOGICAL, intent(in), optional:: interbar
 
-    ! Variables locales:
-
+    ! Local:
     INTEGER  lons, lats
     LOGICAL radianlon ! "xd" is in degrees
     logical invlon ! "xd" contains longitudes between 0 and 2 pi
@@ -104,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