Changeset 11056


Ignore:
Timestamp:
2019-05-24T15:52:26+02:00 (16 months ago)
Author:
girrmann
Message:

dev_r10984_HPC-13 : Bugfix following [11048], see #2285

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyini.F90

    r11049 r11056  
    937937                     ii = idx_bdy(ib_bdy)%nbi(icount,igrd) 
    938938                     ij = idx_bdy(ib_bdy)%nbj(icount,igrd) 
    939                      if((com_east .ne. 1) .and. (ii == (nlci-1)) .and. (nbondi .le. 0)) then 
     939                     if((ii == (nlci-1)) .and. (ij /= 1) .and. (ij /= nlcj) .and. (nbondi .le. 0)) then 
    940940                        com_east = 1 
    941                      elseif((com_west .ne. 1) .and. (ii == 2) .and. (nbondi .ge. 0) .and. (nbondi .ne. 2)) then 
     941                     elseif((ii == 2) .and. (ij /= 1) .and. (ij /= nlcj) .and. (nbondi .ge. 0) .and. (nbondi .ne. 2)) then 
    942942                        com_west = 1 
    943943                     endif  
    944                      if((com_south .ne. 1) .and. (ij == 2) .and. (nbondj .ge. 0) .and. (nbondj .ne. 2)) then 
     944                     if((ij == 2) .and. (ii /= 1) .and. (ii /= nlci) .and. (nbondj .ge. 0) .and. (nbondj .ne. 2)) then 
    945945                        com_south = 1 
    946                      elseif((com_north .ne. 1) .and. (ij == (nlcj-1)) .and. (nbondj .le. 0)) then 
     946                     elseif((ij == (nlcj-1)) .and. (ii /= 1) .and. (ii /= nlci) .and. (nbondj .le. 0)) then 
    947947                        com_north = 1 
    948948                     endif  
Note: See TracChangeset for help on using the changeset viewer.