--- trunk/libf/dyn3d/gr_int_dyn_m.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/gr_int_dyn_m.f90	2011/09/23 12:28:01	52
@@ -1,7 +1,5 @@
 module gr_int_dyn_m
 
-  ! Clean: no C preprocessor directive, no include line
-
   implicit none
 
 contains
@@ -25,8 +23,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