Changeset 1271 for trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.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_iso_vopt.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

@@ -85 +85 @@
       ! -----------------------------------------------------
 
-      CALL trc_zdf_iso
+      CALL trc_zdf_iso( kt )
 
       IF( ln_ctl ) THEN    ! print mean trends (used for debugging)
@@ -151 +151 @@
       !!              - 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 +369 @@
 
 
-   SUBROUTINE trc_zdf_iso
+   SUBROUTINE trc_zdf_iso ( kt )
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE trc_zdf_iso  ***
@@ -408 +408 @@
       !!         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