Changeset 877 for branches

Timestamp:

2008-04-04T14:07:44+02:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: use the tmu(:,:) sea-ice velocity mask when computing ocean mean velocities at I-points, see ticket: #102

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (1 diff)

branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -107 +107 @@
          DO jj = 2, jpj
             DO ji = fs_2, jpi   ! vector opt.
-               ui_oce(ji,jj) = 0.5 * ( ssu_m(ji-1,jj  ) + ssu_m(ji-1,jj-1) )
-               vi_oce(ji,jj) = 0.5 * ( ssv_m(ji  ,jj-1) + ssv_m(ji-1,jj-1) )
+               ui_oce(ji,jj) = 0.5 * ( ssu_m(ji-1,jj  ) + ssu_m(ji-1,jj-1) ) * tmu(ji,jj)
+               vi_oce(ji,jj) = 0.5 * ( ssv_m(ji  ,jj-1) + ssv_m(ji-1,jj-1) ) * tmu(ji,jj)
             END DO
          END DO