Changeset 2720


Ignore:
Timestamp:
2011-04-06T10:45:27+02:00 (10 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.