Index: trunk/NEMO/TOP_SRC/TRP/trcbbl.F90
===================================================================
--- trunk/NEMO/TOP_SRC/TRP/trcbbl.F90	(revision 1264)
+++ trunk/NEMO/TOP_SRC/TRP/trcbbl.F90	(revision 1271)
@@ -100,5 +100,5 @@
       !!     Beckmann, A., and R. Doscher, 1997, J. Phys.Oceanogr., 581-591.
       !!----------------------------------------------------------------------
-      USE oce_trc, ONLY :   ztrtrd => ua                      ! use ua as 3D workspace   
+      USE oce, ONLY :   ztrtrd => ua                      ! use ua as 3D workspace   
       !!
       INTEGER, INTENT( in ) ::   kt                         ! ocean time-step
Index: trunk/NEMO/TOP_SRC/TRP/trcnxt.F90
===================================================================
--- trunk/NEMO/TOP_SRC/TRP/trcnxt.F90	(revision 1264)
+++ trunk/NEMO/TOP_SRC/TRP/trcnxt.F90	(revision 1271)
@@ -70,7 +70,7 @@
       !! ** Action  : - update trb, trn
       !!----------------------------------------------------------------------
+      USE oce, ONLY :   ztrtrd => ua    ! use ua as 3D workspace 
       !! * Arguments
-      USE oce_trc, ONLY : ztrtrd => ua      ! use ua as a 3D workspace
-      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index
+      INTEGER, INTENT( in ) ::   kt     ! ocean time-step index
       !! * Local declarations
       INTEGER  ::   ji, jj, jk, jn   ! dummy loop indices
@@ -83,5 +83,4 @@
          WRITE(numout,*) 'trc_nxt : time stepping on passive tracers'
       ENDIF
-
 
       DO jn = 1, jptra
@@ -113,6 +112,6 @@
       END DO                                           !   End of slab
       !                                                ! ===============
-      ! Update tracers 
-      CALL Agrif_trc( kt )
+      ! Interp tracers on boundaries (coarse => fine)
+      CALL Agrif_trc
       !                                                ! ===============
       DO jn = 1, jptra                                 ! Horizontal slab
Index: trunk/NEMO/TOP_SRC/TRP/trctrp.F90
===================================================================
--- trunk/NEMO/TOP_SRC/TRP/trctrp.F90	(revision 1264)
+++ trunk/NEMO/TOP_SRC/TRP/trctrp.F90	(revision 1271)
@@ -42,4 +42,8 @@
 
    USE zpshde_trc      ! partial step: hor. derivative   (zps_hde_trc routine)
+
+#if defined key_agrif
+   USE agrif_top_sponge ! Momemtum and tracers sponges
+#endif
 
    IMPLICIT NONE
@@ -104,4 +108,8 @@
       IF( l_trcldf_iso_zps )   CALL trc_ldf_iso_zps( kt )        ! partial step iso-neutral laplacian
       IF( l_trcldf_lap     )   CALL trc_ldf_lap    ( kt )        ! iso-level laplacian
+
+#if defined key_agrif
+      IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_trc               ! tracers sponge
+#endif
  
       !                                                      ! vertical diffusion
Index: trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90
===================================================================
--- trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90	(revision 1264)
+++ trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90	(revision 1271)
@@ -76,5 +76,5 @@
       !!
       !!---------------------------------------------------------------------
-      USE oce_trc, ONLY :   ztrtrd => ua    ! use ua as 3D workspace
+      USE oce, ONLY :   ztrtrd => ua    ! use ua as 3D workspace
       !! * Arguments
       INTEGER, INTENT( in ) ::   kt           ! ocean time-step index
Index: trunk/NEMO/TOP_SRC/TRP/trczdf_imp.F90
===================================================================
--- trunk/NEMO/TOP_SRC/TRP/trczdf_imp.F90	(revision 1264)
+++ trunk/NEMO/TOP_SRC/TRP/trczdf_imp.F90	(revision 1271)
@@ -75,7 +75,8 @@
       !!
       !!---------------------------------------------------------------------
-      USE oce_trc, ONLY : ztrtrd => ua      ! use ua as 3D workspace
       !!
       !! * Arguments
+      USE oce, ONLY :   ztrtrd => ua    ! use ua as 3D workspace 
+
       INTEGER, INTENT( in ) ::   kt           ! ocean time-step index
       INTEGER ::   ikst, ikenm2, ikstp1
Index: trunk/NEMO/TOP_SRC/TRP/trczdf_iso.F90
===================================================================
--- trunk/NEMO/TOP_SRC/TRP/trczdf_iso.F90	(revision 1264)
+++ trunk/NEMO/TOP_SRC/TRP/trczdf_iso.F90	(revision 1271)
@@ -118,5 +118,5 @@
       !!---------------------------------------------------------------------
       !! * Modules used
-      USE oce_trc , ONLY :    zavs => va, ztrtrd => ua
+      USE oce , ONLY :    zavs => va, ztrtrd => ua
 
       !! * Arguments
Index: trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90
===================================================================
--- trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90	(revision 1264)
+++ trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90	(revision 1271)
@@ -85,5 +85,5 @@
       ! -----------------------------------------------------
 
-      CALL trc_zdf_iso
+      CALL trc_zdf_iso( kt )
 
       IF( ln_ctl ) THEN    ! print mean trends (used for debugging)
@@ -151,5 +151,5 @@
       !!              - Save the trend in trtrd  ('key_trdmld_trc')
       !!---------------------------------------------------------------------
-      USE oce_trc, ONLY :   zwd   => ua,  &  ! ua, va used as
+      USE oce, ONLY :       zwd   => ua,  &  ! ua, va used as
                             zws   => va      ! workspace
       INTEGER, INTENT( in ) ::   kt          ! ocean time-step index
@@ -369,5 +369,5 @@
 
 
-   SUBROUTINE trc_zdf_iso
+   SUBROUTINE trc_zdf_iso ( kt )
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE trc_zdf_iso  ***
@@ -408,6 +408,7 @@
       !!         Save in trtrd arrays the trends if 'key_trdmld_trc' defined
       !!---------------------------------------------------------------------
-      USE oce_trc, ONLY :   zwx => ua,  &  ! use ua, va as
+      USE oce, ONLY :   zwx => ua,  &  ! use ua, va as
                             zwy => va      ! workspace arrays
+      INTEGER, INTENT(in) :: kt
 
       INTEGER ::   ji, jj, jk, jn                ! dummy loop indices
