Changeset 74 for trunk/NEMO/OPA_SRC/TRA/traadv_tvd.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_tvd.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv_tvd.F90

@@ -20 +20 @@
    USE trabbl          ! Advective term of BBL
    USE lib_mpp
-   USE lbclnk
+   USE lbclnk          ! ocean lateral boundary condition (or mpp link) 
+   USE ptr             ! poleward transport diagnostics
+
 
    IMPLICIT NONE
@@ -268 +270 @@
       IF( MOD( kt, nf_ptr ) == 0 ) THEN
          ! "zonal" mean advective heat and salt transport
-         pht_adv(:,:) = prt_vj( ztv(:,:,:) )
-         pst_adv(:,:) = prt_vj( zsv(:,:,:) )
+         pht_adv(:) = prt_vj( ztv(:,:,:) )
+         pst_adv(:) = prt_vj( zsv(:,:,:) )
       ENDIF
 #endif