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 868 for trunk/NEMO/LIM_SRC_3/limtrp.F90 – NEMO

Ignore:
Timestamp:
2008-03-14T19:53:00+01:00 (16 years ago)
Author:
rblod
Message:

First optimisation of LIM3, limrhg optimisation induces computation change

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_3/limtrp.F90

    r867 r868  
    127127         zvbord = 1.0 + ( 1.0 - bound ) 
    128128         DO jj = 1, jpjm1 
    129             DO ji = 1, jpim1 
     129            DO ji = 1, fs_jpim1 
    130130               zui_u(ji,jj) = u_ice(ji,jj) 
    131131               zvi_v(ji,jj) = v_ice(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.