New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8373 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90 – NEMO

Ignore:
Timestamp:
2017-07-25T19:44:54+02:00 (7 years ago)
Author:
clem
Message:

remove most of wrk_alloc

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90

    r8355 r8373  
    141141      END DO 
    142142      !lateral boundary conditions 
    143       CALL lbc_lnk( u_ice(:,:), 'U', -1. ) 
    144       CALL lbc_lnk( v_ice(:,:), 'V', -1. ) 
     143      CALL lbc_lnk_multi( u_ice(:,:), 'U', -1., v_ice(:,:), 'V', -1. ) 
    145144      !mask velocities 
    146145      u_ice(:,:) = u_ice(:,:) * umask(:,:,1) 
Note: See TracChangeset for help on using the changeset viewer.