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/dynhpg.F90

    r10888 r11613  
    115115         ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 
    116116         ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 
    117          CALL trd_dyn( ztrdu, ztrdv, jpdyn_hpg, kt ) 
     117         CALL trd_dyn( ztrdu, ztrdv, jpdyn_hpg_save, kt ) 
    118118         DEALLOCATE( ztrdu , ztrdv ) 
    119119      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.