Changeset 74 for trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

Timestamp:

2004-04-22T14:38:42+02:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX048 : Bug correction of Poleward Transport diagnostics

File:

• trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

@@ -13 +13 @@
    USE oce             ! ocean dynamics and active tracers
    USE dom_oce         ! ocean space and time domain
-   USE trdtra_oce     ! ocean active tracer trends
+   USE trdtra_oce      ! ocean active tracer trends
    USE flxrnf          !
    USE trabbl          ! advective term in the BBL
-   USE ocfzpt           !
+   USE ocfzpt          !
    USE lib_mpp
-   USE lbclnk
+   USE lbclnk          ! ocean lateral boundary condition (or mpp link)
    USE in_out_manager  ! I/O manager
+   USE ptr             ! poleward transport diagnostics
 
    IMPLICIT NONE
@@ -299 +300 @@
       !                                                ! ===============
 
-      IF( l_ctl .AND. lwp ) THEN
+      IF(l_ctl) THEN
          zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) )
          zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) )
@@ -310 +311 @@
       IF( MOD( kt, nf_ptr ) == 0 ) THEN
 # if defined key_s_coord || defined key_partial_steps
-         pht_adv(:,:) = prt_vj( zwy(:,:,:) )
-         pst_adv(:,:) = prt_vj( zwz(:,:,:) )
+         pht_adv(:) = prt_vj( zwy(:,:,:) )
+         pst_adv(:) = prt_vj( zwz(:,:,:) )
 # else
          DO jk = 1, jpkm1
@@ -321 +322 @@
             END DO
          END DO
-         pht_adv(:,:) = prt_vj( zwy(:,:,:) )
-         pst_adv(:,:) = prt_vj( zwz(:,:,:) )
+         pht_adv(:) = prt_vj( zwy(:,:,:) )
+         pst_adv(:) = prt_vj( zwz(:,:,:) )
 # endif
       ENDIF
@@ -394 +395 @@
       END DO
 
-      IF( l_ctl .AND. lwp ) THEN
+      IF(l_ctl) THEN
          zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) )
          zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) )