Ignore:
Timestamp:
2019-05-15T14:50:08+02:00 (18 months ago)
Author:
girrmann
Message:

trunk: Remove Potential MPI deadlock if rimwidth>1, see #2282

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/BDY/bdyini.F90

    r10934 r10983  
    951951                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    952952                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 
    953                        if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then 
     953                       if( ii == (nlcit(nowe+1)-1) ) then 
    954954                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 
    955955                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
     
    965965                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    966966                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(2)+2 
    967                        if((com_east_b .ne. 1) .and. (ii == 2)) then 
     967                       if( ii == 2 ) then 
    968968                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(2)+2 
    969969                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
     
    980980                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    981981                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 
    982                        if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then 
     982                       if( ii == (nlcit(nowe+1)-1) ) then 
    983983                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 
    984984                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
     
    995995                       & nbrdta(ib,igrd,ib_bdy) == ir  ) THEN 
    996996                       ii = nbidta(ib,igrd,ib_bdy)- iw_b(2)+2 
    997                        if((com_east_b .ne. 1) .and. (ii == 2)) then 
     997                       if( ii == 2 ) then 
    998998                          ij = nbjdta(ib,igrd,ib_bdy) - is_b(2)+2 
    999999                          if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then 
Note: See TracChangeset for help on using the changeset viewer.