Changeset 1470 for trunk/NEMO/LIM_SRC_3/limdyn.F90

Timestamp:

2009-06-11T15:01:25+02:00 (15 years ago)

Author:

smasson

Message:

[uv]i_ice and [uv]i_oce renamed [uv]_ice and [uv]_oce, see ticket:453

File:

• trunk/NEMO/LIM_SRC_3/limdyn.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/limdyn.F90

@@ -154 +154 @@
          ! computation of friction velocity
          ! --------------------------------
-         ! ice-ocean velocity at U & V-points (u_ice vi_ice at U- & V-points ; ssu_m, ssv_m at U- & V-points)
+         ! ice-ocean velocity at U & V-points (u_ice v_ice at U- & V-points ; ssu_m, ssv_m at U- & V-points)
          zu_io(:,:) = u_ice(:,:) - ssu_m(:,:)
          zv_io(:,:) = v_ice(:,:) - ssv_m(:,:)