Changeset 10983
- Timestamp:
- 2019-05-15T14:50:08+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdyini.F90
r10934 r10983 951 951 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 952 952 ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 953 if( (com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then953 if( ii == (nlcit(nowe+1)-1) ) then 954 954 ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 955 955 if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then … … 965 965 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 966 966 ii = nbidta(ib,igrd,ib_bdy)- iw_b(2)+2 967 if( (com_east_b .ne. 1) .and. (ii == 2)) then967 if( ii == 2 ) then 968 968 ij = nbjdta(ib,igrd,ib_bdy) - is_b(2)+2 969 969 if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then … … 980 980 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 981 981 ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 982 if( (com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then982 if( ii == (nlcit(nowe+1)-1) ) then 983 983 ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 984 984 if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then … … 995 995 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 996 996 ii = nbidta(ib,igrd,ib_bdy)- iw_b(2)+2 997 if( (com_east_b .ne. 1) .and. (ii == 2)) then997 if( ii == 2 ) then 998 998 ij = nbjdta(ib,igrd,ib_bdy) - is_b(2)+2 999 999 if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then
Note: See TracChangeset
for help on using the changeset viewer.