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 2720 for tags/nemo_v3_2_2/NEMO/OPA_SRC/OBC/obcdta.F90 – NEMO

Ignore:
Timestamp:
2011-04-06T10:45:27+02:00 (13 years ago)
Author:
rblod
Message:

Correct bug in obcdta for nemo_v3_2_2, see ticket #809

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tags/nemo_v3_2_2/NEMO/OPA_SRC/OBC/obcdta.F90

    r2166 r2720  
    11651165               DO jj = 1, jpj 
    11661166                  DO jk = 1, jpkm1 
    1167                      ubtwdta(jj,nt_x) = ubtwdta(jj,nt_x) + uwdta(jj,jk,1)*fse3u(ji,jj,jk) 
    1168                      vbtwdta(jj,nt_x) = vbtwdta(jj,nt_x) + vwdta(jj,jk,1)*fse3v(ji,jj,jk) 
     1167                     ubtwdta(jj,nt_x) = ubtwdta(jj,nt_x) + uwdta(jj,jk,nt_x)*fse3u(ji,jj,jk) 
     1168                     vbtwdta(jj,nt_x) = vbtwdta(jj,nt_x) + vwdta(jj,jk,nt_x)*fse3v(ji,jj,jk) 
    11691169                  END DO 
    11701170               END DO 
Note: See TracChangeset for help on using the changeset viewer.