Changeset 11056
- Timestamp:
- 2019-05-24T15:52:26+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyini.F90
r11049 r11056 937 937 ii = idx_bdy(ib_bdy)%nbi(icount,igrd) 938 938 ij = idx_bdy(ib_bdy)%nbj(icount,igrd) 939 if(( com_east .ne. 1) .and. (ii == (nlci-1)) .and. (nbondi .le. 0)) then939 if((ii == (nlci-1)) .and. (ij /= 1) .and. (ij /= nlcj) .and. (nbondi .le. 0)) then 940 940 com_east = 1 941 elseif(( com_west .ne. 1) .and. (ii == 2) .and. (nbondi .ge. 0) .and. (nbondi .ne. 2)) then941 elseif((ii == 2) .and. (ij /= 1) .and. (ij /= nlcj) .and. (nbondi .ge. 0) .and. (nbondi .ne. 2)) then 942 942 com_west = 1 943 943 endif 944 if(( com_south .ne. 1) .and. (ij == 2) .and. (nbondj .ge. 0) .and. (nbondj .ne. 2)) then944 if((ij == 2) .and. (ii /= 1) .and. (ii /= nlci) .and. (nbondj .ge. 0) .and. (nbondj .ne. 2)) then 945 945 com_south = 1 946 elseif(( com_north .ne. 1) .and. (ij == (nlcj-1)) .and. (nbondj .le. 0)) then946 elseif((ij == (nlcj-1)) .and. (ii /= 1) .and. (ii /= nlci) .and. (nbondj .le. 0)) then 947 947 com_north = 1 948 948 endif
Note: See TracChangeset
for help on using the changeset viewer.