Changeset 1271 for trunk/NEMO/NST_SRC/agrif_top_interp.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/NST_SRC/agrif_top_interp.F90 (modified) (3 diffs)

trunk/NEMO/NST_SRC/agrif_top_interp.F90

@@ -6 +6 @@
    USE sol_oce
    USE agrif_oce
-   USE trcstp
-   USE sms
+   USE trc
 
    IMPLICIT NONE
@@ -22 +21 @@
    CONTAINS
 
-   SUBROUTINE Agrif_trc( kt )
+   SUBROUTINE Agrif_trc
       !!---------------------------------------------
       !!   *** ROUTINE Agrif_trc ***
@@ -29 +28 @@
 #  include "vectopt_loop_substitute.h90"
       
-      INTEGER, INTENT(in) :: kt
-
       INTEGER :: ji,jj,jk,jn
       REAL(wp) :: zrhox