Changeset 13500


Ignore:
Timestamp:
2020-09-22T15:36:58+02:00 (4 months ago)
Author:
davestorkey
Message:

branches/UKMO/NEMO_4.0.1_momentum_trends : bug fix for vtrd_zdf term.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_momentum_trends/src/OCE/TRD/trddyn.F90

    r11934 r13500  
    127127         DO jk = 1, jpkm1 
    128128            putrd(:,:,jk) = zutrd_tau(:,:) + zutrd_bfr(:,:,jk) + putrd(:,:,jk) - zue(:,:) * r1_hu_a(:,:) 
    129             pvtrd(:,:,jk) = zutrd_tau(:,:) + zvtrd_bfr(:,:,jk) + pvtrd(:,:,jk) - zve(:,:) * r1_hv_a(:,:) 
     129            pvtrd(:,:,jk) = zvtrd_tau(:,:) + zvtrd_bfr(:,:,jk) + pvtrd(:,:,jk) - zve(:,:) * r1_hv_a(:,:) 
    130130         END DO 
    131131         DEALLOCATE( zue, zve, zutrd_tau, zvtrd_tau, zutrd_bfr, zvtrd_bfr ) 
Note: See TracChangeset for help on using the changeset viewer.