--- trunk/libf/filtrez/filtreg.f90	2012/01/10 19:02:02	56
+++ trunk/libf/filtrez/filtreg.f90	2012/01/30 12:54:02	57
@@ -124,8 +124,8 @@
           jffil = jffil2
        END IF
 
-       DO l = 1, nbniv
-          DO j = jdfil, jffil
+       loop_vertical: DO l = 1, nbniv
+          loop_latitude: DO j = jdfil, jffil
              DO i = 1, iim
                 champ(i, j, l) = champ(i, j, l)*sdd1(i)
              END DO
@@ -206,8 +206,8 @@
              END IF
 
              champ(iim + 1, j, l) = champ(1, j, l)
-          END DO
-       END DO
+          END DO loop_latitude
+       END DO loop_vertical
     end DO
 
   END SUBROUTINE filtreg