Changeset 872

Timestamp:

2008-03-27T18:07:36+01:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: correct the computation of ice/ocean stress zvtau at U-point, see ticketc:#97

File:

• branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90 (modified) (1 diff)

branches/dev_001_SBC/NEMO/LIM_SRC/limsbc.F90

@@ -202 +202 @@
                ! ... ice-cover wheighted ice-ocean stress at U and V-points  (from I-point values)
                zutau  = 0.5 * ( ztio_u(ji+1,jj) + ztio_u(ji+1,jj+1) )
-               zvtau  = 0.5 * ( ztio_v(ji,jj+1) + ztio_u(ji+1,jj+1) )
+               zvtau  = 0.5 * ( ztio_v(ji,jj+1) + ztio_v(ji+1,jj+1) )
                ! ... open-ocean (lead) fraction at U- & V-points (from T-point values)
                zfrldu = 0.5 * ( frld (ji,jj) + frld (ji+1,jj  ) )