Index: LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/inter_barxy_m.F90
===================================================================
--- LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/inter_barxy_m.F90	(revision 1338)
+++ LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/inter_barxy_m.F90	(revision 1339)
@@ -118,7 +118,7 @@
     IMPLICIT NONE
 
-    REAL, intent(in):: dlonid(:)
-    real, intent(in):: fdat(:)
-    real, intent(in):: rlonimod(:)
+    REAL, intent(in):: dlonid(:) ! dim(idatmax)
+    real, intent(in):: fdat(:) ! dim(idatmax)
+    real, intent(in):: rlonimod(:) ! dim(imodmax)
 
     real inter_barx(size(rlonimod))
@@ -176,5 +176,5 @@
 
     DO idat = 1, idatmax
-       xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
+       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
        fdd(idat) = fdat (idat)
     ENDDO
Index: LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/inter_barxy_m.F90
===================================================================
--- LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/inter_barxy_m.F90	(revision 1338)
+++ LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/inter_barxy_m.F90	(revision 1339)
@@ -118,7 +118,7 @@
     IMPLICIT NONE
 
-    REAL, intent(in):: dlonid(:)
-    real, intent(in):: fdat(:)
-    real, intent(in):: rlonimod(:)
+    REAL, intent(in):: dlonid(:) ! dim(idatmax)
+    real, intent(in):: fdat(:) ! dim(idatmax)
+    real, intent(in):: rlonimod(:) ! dim(imodmax)
 
     real inter_barx(size(rlonimod))
@@ -176,5 +176,5 @@
 
     DO idat = 1, idatmax
-       xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
+       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
        fdd(idat) = fdat (idat)
     ENDDO