Changeset 906 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2008-04-24T17:00:59+02:00 (16 years ago)

Author:

ctlod

Message:

remove the explicit loop which is not necessary in the computation of [uv]_oce(:,:) arrays, see ticket: #123

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -126 +126 @@
          ! ... mean surface ocean current at ice dynamics point
          !     C-grid dynamics :  U- & V-points as the ocean
-         DO jj = 2, jpj
-            DO ji = fs_2, jpi
-               u_oce(ji,jj) = ssu_m(ji,jj) * tmu(ji,jj)
-               v_oce(ji,jj) = ssv_m(ji,jj) * tmv(ji,jj)
-            END DO
-         END DO
+         u_oce(:,:) = ssu_m(:,:) * tmu(:,:)
+         v_oce(:,:) = ssv_m(:,:) * tmv(:,:)
+         !
          CALL lbc_lnk( u_oce, 'U', -1. )   ! U-point
          CALL lbc_lnk( v_oce, 'V', -1. )   ! V-point