New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13500 for NEMO/branches/UKMO – NEMO

Changeset 13500 for NEMO/branches/UKMO


Ignore:
Timestamp:
2020-09-22T15:36:58+02:00 (4 years 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.