--- trunk/libf/dyn3d/gr_int_dyn_m.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/gr_int_dyn_m.f90	2011/08/24 11:43:14	49
@@ -25,8 +25,8 @@
 
     gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole
     gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole
-    gr_int_dyn(:iim, 2:jp1 - 1) = champin(:, 2:jp1 - 1)
-    gr_int_dyn(iim + 1, 2:jp1 - 1) = gr_int_dyn(1, 2:jp1 - 1)
+    gr_int_dyn(: iim, 2: jp1 - 1) = champin(:, 2: jp1 - 1)
+    gr_int_dyn(iim + 1, 2: jp1 - 1) = gr_int_dyn(1, 2: jp1 - 1)
 
   END function gr_int_dyn