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 2721 for branches – NEMO

Changeset 2721 for branches


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

Correct bug in obcdta for nemo_v3_3, see ticket #809

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

    r2699 r2721  
    11911191               DO jj = 1, jpj 
    11921192                  DO jk = 1, jpkm1 
    1193                      ubtwdta(jj,nt_x) = ubtwdta(jj,nt_x) + uwdta(jj,jk,1)*fse3u(ji,jj,jk) 
    1194                      vbtwdta(jj,nt_x) = vbtwdta(jj,nt_x) + vwdta(jj,jk,1)*fse3v(ji,jj,jk) 
     1193                     ubtwdta(jj,nt_x) = ubtwdta(jj,nt_x) + uwdta(jj,jk,nt_x)*fse3u(ji,jj,jk) 
     1194                     vbtwdta(jj,nt_x) = vbtwdta(jj,nt_x) + vwdta(jj,jk,nt_x)*fse3v(ji,jj,jk) 
    11951195                  END DO 
    11961196               END DO 
Note: See TracChangeset for help on using the changeset viewer.