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 15088 for NEMO/trunk/src/OCE/ICB/icbrst.F90 – NEMO

Ignore:
Timestamp:
2021-07-06T15:03:34+02:00 (3 years ago)
Author:
acc
Message:

Check in ICB changes from 2021/ticket2696_icb_halo1_halo2_compatibility (#2696) to restore halo1 - halo2 equivalence with ORCA2_ICE_PISCES and icebergs. The benefit won't be apparent until the reproducibility issue with icedyn_rhg_evp.F90 is sorted. This fix closes #2696

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/ICB/icbrst.F90

    r13286 r15088  
    8888            CALL iom_get( ncid, 'yj'     ,localpt%yj  , ktime=jn ) 
    8989 
    90             ii = INT( localpt%xi + 0.5 ) 
    91             ij = INT( localpt%yj + 0.5 ) 
     90            ii = INT( localpt%xi + 0.5 ) + ( nn_hls-1 ) 
     91            ij = INT( localpt%yj + 0.5 ) + ( nn_hls-1 ) 
    9292            ! Only proceed if this iceberg is on the local processor (excluding halos). 
    9393            IF ( ii >= mig(Nis0) .AND. ii <= mig(Nie0) .AND.   & 
Note: See TracChangeset for help on using the changeset viewer.