Changeset 132 for trunk/NEMO/OPA_SRC/TRA/traldf_iso.F90

Timestamp:

2004-07-07T14:51:53+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE082 : Finalization of the poleward transport diagnostics

File:

• trunk/NEMO/OPA_SRC/TRA/traldf_iso.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traldf_iso.F90

@@ -19 +19 @@
    USE in_out_manager  ! I/O manager
    USE ldfslp          ! iso-neutral slopes
-   USE ptr             ! poleward transport diagnostics
+   USE diaptr          ! poleward transport diagnostics
 
    IMPLICIT NONE
@@ -239 +239 @@
       ENDIF
 
-#if defined key_diaptr
       !!bug  no separation of diff iso and eiv
-      IF( MOD( kt, nf_ptr ) == 0 ) THEN
-      ! "zonal" mean lateral diffusive heat and salt transports
-         pht_ldf(:) = prt_vj( zftv(:,:,:) )
-         pst_ldf(:) = prt_vj( zfsv(:,:,:) )
+      IF( ln_diaptr .AND. ( MOD( kt, nf_ptr ) == 0 ) ) THEN
+         ! "zonal" mean lateral diffusive heat and salt transports
+         pht_ldf(:) = ptr_vj( zftv(:,:,:) )
+         pst_ldf(:) = ptr_vj( zfsv(:,:,:) )
          ! "zonal" mean lateral eddy induced velocity heat and salt transports
-         pht_eiv(:) = prt_vj( zftv(:,:,:) )
-         pst_eiv(:) = prt_vj( zfsv(:,:,:) )
+         pht_eiv(:) = ptr_vj( zftv(:,:,:) )
+         pst_eiv(:) = ptr_vj( zfsv(:,:,:) )
       ENDIF
-#endif
 
    END SUBROUTINE tra_ldf_iso