--- trunk/libf/dyn3d/inter_barxy.f90	2008/07/25 19:59:34	13
+++ trunk/libf/dyn3d/inter_barxy.f90	2010/03/03 13:23:49	24
@@ -17,7 +17,6 @@
     ! Author: P. Le Van
 
     use numer_rec, only: assert_eq, assert
-
     use dimens_m, only: iim, jjm
     use comgeom, only: aire_2d, apoln, apols
 
@@ -349,7 +348,7 @@
           dym        = 0.
           jmod       = jmod + 1
        ELSE
-          ! yjmod(jmod) == yjdat(jdat)
+          ! {yjmod(jmod) == yjdat(jdat)}
           dy         = yjmod(jmod) - y0
           dym        = dym + dy
           inter_bary(jmod) = (inter_bary(jmod) + dy * fdat(jdat)) / dym