Changeset 1271 for trunk/NEMO/TOP_SRC/TRP/trczdf_imp.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/trczdf_imp.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trczdf_imp.F90

@@ -75 +75 @@
       !!
       !!---------------------------------------------------------------------
-      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