Changeset 1470 for trunk/NEMO/LIM_SRC_2/limtrp_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/limtrp_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/limtrp_2.F90

@@ -110 +110 @@
          DO jj = 1, jpjm1
             DO ji = 1, jpim1
-               zui_u(ji,jj) = ( ui_ice(ji+1,jj  ) + ui_ice(ji+1,jj+1) ) / ( MAX( tmu(ji+1,jj  ) + tmu(ji+1,jj+1), zvbord ) )
-               zvi_v(ji,jj) = ( vi_ice(ji  ,jj+1) + vi_ice(ji+1,jj+1) ) / ( MAX( tmu(ji  ,jj+1) + tmu(ji+1,jj+1), zvbord ) )
+               zui_u(ji,jj) = ( u_ice(ji+1,jj  ) + u_ice(ji+1,jj+1) ) / ( MAX( tmu(ji+1,jj  ) + tmu(ji+1,jj+1), zvbord ) )
+               zvi_v(ji,jj) = ( v_ice(ji  ,jj+1) + v_ice(ji+1,jj+1) ) / ( MAX( tmu(ji  ,jj+1) + tmu(ji+1,jj+1), zvbord ) )
             END DO
          END DO