Changeset 1271 for trunk/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2009-01-15T09:12:00+01:00 (15 years ago)

Author:

rblod

Message:

Addapt AGRIF routines to the new TOP organization, clean some routines and add a sponge layer for passive tracers, see ticket #293

File:

• trunk/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -70 +70 @@
       !! ** 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 +83 @@
          WRITE(numout,*) 'trc_nxt : time stepping on passive tracers'
       ENDIF
-
 
       DO jn = 1, jptra
@@ -113 +112 @@
       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