Ignore:
Timestamp:
2019-09-30T11:07:57+02:00 (14 months ago)
Author:
davestorkey
Message:

UKMO/NEMO_4.0_momentum_trends branch : first set of code changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_momentum_trends/src/OCE/DYN/dynvor.F90

    r10888 r11613  
    133133         ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 
    134134         ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 
    135          CALL trd_dyn( ztrdu, ztrdv, jpdyn_pvo, kt ) 
     135         CALL trd_dyn( ztrdu, ztrdv, jpdyn_pvo_save, kt ) 
    136136         ! 
    137137         IF( n_dynadv /= np_LIN_dyn ) THEN   !* relative vorticity or metric trend (only in non-linear case) 
Note: See TracChangeset for help on using the changeset viewer.