Ignore:
Timestamp:
2008-04-24T17:00:59+02:00 (13 years ago)
Author:
ctlod
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r904 r906  
    126126         ! ... mean surface ocean current at ice dynamics point 
    127127         !     C-grid dynamics :  U- & V-points as the ocean 
    128          DO jj = 2, jpj 
    129             DO ji = fs_2, jpi 
    130                u_oce(ji,jj) = ssu_m(ji,jj) * tmu(ji,jj) 
    131                v_oce(ji,jj) = ssv_m(ji,jj) * tmv(ji,jj) 
    132             END DO 
    133          END DO 
     128         u_oce(:,:) = ssu_m(:,:) * tmu(:,:) 
     129         v_oce(:,:) = ssv_m(:,:) * tmv(:,:) 
     130         ! 
    134131         CALL lbc_lnk( u_oce, 'U', -1. )   ! U-point 
    135132         CALL lbc_lnk( v_oce, 'V', -1. )   ! V-point 
Note: See TracChangeset for help on using the changeset viewer.