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 15302 – NEMO

Changeset 15302


Ignore:
Timestamp:
2021-09-29T17:00:15+02:00 (3 years ago)
Author:
smasson
Message:

trunk: minor improvment in pt2pt (east-west comm only send/recv inner values)

Location:
NEMO/trunk/src/OCE/LBC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/LBC/lbc_lnk_pt2pt_generic.h90

    r15050 r15302  
    123123      !cd     sides:     west  east south north      ;   corners: so-we, so-ea, no-we, no-ea 
    124124      isizei(1:4) = (/ ihls, ihls,  ipi,  ipi /)   ;   isizei(5:8) = ihls              ! i- count 
    125       isizej(1:4) = (/  ipj,  ipj, ihls, ihls /)   ;   isizej(5:8) = ihls              ! j- count 
     125      isizej(1:4) = (/ Nj_0, Nj_0, ihls, ihls /)   ;   isizej(5:8) = ihls              ! j- count 
    126126      ishtSi(1:4) = (/ ip1i, im1i, ip0i, ip0i /)   ;   ishtSi(5:8) = ishtSi( iwewe )   ! i- shift send data 
    127       ishtSj(1:4) = (/ ip0j, ip0j, ip1j, im1j /)   ;   ishtSj(5:8) = ishtSj( issnn )   ! j- shift send data 
     127      ishtSj(1:4) = (/ ip1j, ip1j, ip1j, im1j /)   ;   ishtSj(5:8) = ishtSj( issnn )   ! j- shift send data 
    128128      ishtRi(1:4) = (/ ip0i, im0i, ip0i, ip0i /)   ;   ishtRi(5:8) = ishtRi( iwewe )   ! i- shift received data location 
    129       ishtRj(1:4) = (/ ip0j, ip0j, ip0j, im0j /)   ;   ishtRj(5:8) = ishtRj( issnn )   ! j- shift received data location 
     129      ishtRj(1:4) = (/ ip1j, ip1j, ip0j, im0j /)   ;   ishtRj(5:8) = ishtRj( issnn )   ! j- shift received data location 
    130130      ishtPi(1:4) = (/ im1i, ip1i, ip0i, ip0i /)   ;   ishtPi(5:8) = ishtPi( iwewe )   ! i- shift data used for periodicity 
    131       ishtPj(1:4) = (/ ip0j, ip0j, im1j, ip1j /)   ;   ishtPj(5:8) = ishtPj( issnn )   ! j- shift data used for periodicity 
     131      ishtPj(1:4) = (/ ip1j, ip1j, im1j, ip1j /)   ;   ishtPj(5:8) = ishtPj( issnn )   ! j- shift data used for periodicity 
    132132      ! 
    133133      ! -------------------------------- ! 

  • NEMO/trunk/src/OCE/LBC/mppini.F90

    r15299 r15302  
    11801180         IF( nn_comm == 1 ) THEN  
    11811181            iist =  0   ;   iisz = ipi 
    1182             ijst =  0   ;   ijsz = ipj 
     1182            ijst = jh   ;   ijsz = Nj_0 
    11831183         ELSE 
    11841184            iist = jh   ;   iisz = Ni_0 
Note: See TracChangeset for help on using the changeset viewer.