Changeset 1470 for trunk/NEMO/LIM_SRC_2/limdia_2.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_2/limdia_2.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limdia_2.F90

@@ -107 +107 @@
                zicevol = zarea   * hicif(ji,jj)
                zsnwvol = zarea   * hsnif(ji,jj)
-               zicespd = zicevol * ( ui_ice(ji,jj) * ui_ice(ji,jj)   &
-                  &                + vi_ice(ji,jj) * vi_ice(ji,jj) )
+               zicespd = zicevol * ( u_ice(ji,jj) * u_ice(ji,jj) + v_ice(ji,jj) * v_ice(ji,jj) )
                vinfor(nv+ 1) = vinfor(nv+ 1) + zarea
                vinfor(nv+ 3) = vinfor(nv+ 3) + zextent15
@@ -133 +132 @@
                 zicevol = zarea   * hicif(ji,jj)
                 zsnwvol = zarea   * hsnif(ji,jj)
-                zicespd = zicevol * ( ui_ice(ji,jj) * ui_ice(ji,jj)   &
-                   &                + vi_ice(ji,jj) * vi_ice(ji,jj) )
+                zicespd = zicevol * ( u_ice(ji,jj) * u_ice(ji,jj) + v_ice(ji,jj) * v_ice(ji,jj) )
                 vinfor(nv+ 1) = vinfor(nv+ 1) + zarea
                 vinfor(nv+ 3) = vinfor(nv+ 3) + zextent15