Changeset 11934 for NEMO/branches/UKMO/NEMO_4.0.1_momentum_trends/src/OCE/DYN/dynvor.F90

Timestamp:

2019-11-20T10:47:16+01:00 (5 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.1_momentum_trends : code changes (equivalent to rev 11917 of NEMO 4.0 branch).

File:

• NEMO/branches/UKMO/NEMO_4.0.1_momentum_trends/src/OCE/DYN/dynvor.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.1_momentum_trends/src/OCE/DYN/dynvor.F90

@@ -133 +133 @@
          ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:)
          ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:)
-         CALL trd_dyn( ztrdu, ztrdv, jpdyn_pvo, kt )
+         CALL trd_dyn( ztrdu, ztrdv, jpdyn_pvo_save, kt )
          !
          IF( n_dynadv /= np_LIN_dyn ) THEN   !* relative vorticity or metric trend (only in non-linear case)