Changeset 132 for trunk/NEMO/OPA_SRC/TRA/traadv_cen2_atsk.h90

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/traadv_cen2_atsk.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv_cen2_atsk.h90

@@ -256 +256 @@
       ENDIF
 
-#if defined key_diaptr
       ! "zonal" mean advective heat and salt transport
-      IF( MOD( kt, nf_ptr ) == 0 ) THEN
+      IF( ln_diaptr .AND. ( 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(:) = ptr_vj( zwy(:,:,:) )
+         pst_adv(:) = ptr_vj( zwz(:,:,:) )
 # else
          DO jk = 1, jpkm1
@@ -271 +270 @@
             END DO
          END DO
-         pht_adv(:) = prt_vj( zwy(:,:,:) )
-         pst_adv(:) = prt_vj( zwz(:,:,:) )
+         pht_adv(:) = ptr_vj( zwy(:,:,:) )
+         pst_adv(:) = ptr_vj( zwz(:,:,:) )
 # endif
       ENDIF
-#endif
 
       ! II. Vertical advection