- Timestamp:
- 2012-11-28T11:02:28+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90
r3680 r3703 263 263 zwgt = idx_bdy(ib_bdy)%nbd(jb,igrd) 264 264 DO jk = 1, jpkm1 265 ua(ii,ij,jk) = ( ua(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%u3d(jb,jk) - ub(ii,ij,jk) + pu2d(ii,ij)) ) * umask(ii,ij,jk) 265 ua(ii,ij,jk) = ( ua(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%u3d(jb,jk) - & 266 ub(ii,ij,jk) + pu2d(ii,ij)) ) * umask(ii,ij,jk) 266 267 END DO 267 268 END DO … … 273 274 zwgt = idx_bdy(ib_bdy)%nbd(jb,igrd) 274 275 DO jk = 1, jpkm1 275 va(ii,ij,jk) = ( va(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%v3d(jb,jk) - vb(ii,ij,jk) + pv2d(ii,ij)) ) * vmask(ii,ij,jk) 276 va(ii,ij,jk) = ( va(ii,ij,jk) + zwgt * ( dta_bdy(ib_bdy)%v3d(jb,jk) - & 277 vb(ii,ij,jk) + pv2d(ii,ij)) ) * vmask(ii,ij,jk) 276 278 END DO 277 279 END DO
Note: See TracChangeset
for help on using the changeset viewer.