- Timestamp:
- 2011-04-06T11:05:21+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90
r2715 r2722 1191 1191 DO jj = 1, jpj 1192 1192 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) 1195 1195 END DO 1196 1196 END DO
Note: See TracChangeset
for help on using the changeset viewer.