Changeset 202 for trunk/NEMO/TOP_SRC/TRP/trcldf_iso.F90

Timestamp:

2004-12-22T16:55:48+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE142 : Check the consistency between passive tracers transport modules (in TRP directory) and those used for the active tracers

File:

• trunk/NEMO/TOP_SRC/TRP/trcldf_iso.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trcldf_iso.F90

@@ -14 +14 @@
    !! * Modules used
    USE oce_trc      ! ocean dynamics and tracers variables
-   USE trc          ! ocean space and time domain variables
-   USE lbclnk
+   USE trc          ! ocean passive tracers variables
 
    IMPLICIT NONE
@@ -200 +199 @@
          END DO                                        !   End of slab  
          !                                             ! ===============
-         IF( l_ctl .AND. lwp ) THEN         ! print mean trends (used for debugging)
-            ztra = SUM( tra(2:jpim1,2:jpjm1,1:jpkm1,jn) * tmask(2:jpim1,2:jpjm1,1:jpkm1) )
+         IF(l_ctl) THEN         ! print mean trends (used for debugging)
+            ztra = SUM( tra(2:nictl,2:njctl,1:jpkm1,jn) * tmask(2:nictl,2:njctl,1:jpkm1) )
             WRITE(numout,*) ' trc/ldf  - ',ctrcnm(jn),' : ', ztra-tra_ctl(jn)
             tra_ctl(jn) = ztra