Changeset 10629 for NEMO/trunk/src/OCE/BDY
- Timestamp:
- 2019-02-04T17:07:39+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdyini.F90
r10537 r10629 941 941 ii = idx_bdy(ib_bdy)%nbi(icount,igrd) 942 942 ij = idx_bdy(ib_bdy)%nbj(icount,igrd) 943 if((com_east .ne. 1) .and. (ii == nlci) .and. (nbondi .le. 0)) then943 if((com_east .ne. 1) .and. (ii == (nlci-1)) .and. (nbondi .le. 0)) then 944 944 com_east = 1 945 945 elseif((com_west .ne. 1) .and. (ii == 2) .and. (nbondi .ge. 0) .and. (nbondi .ne. 2)) then … … 948 948 if((com_south .ne. 1) .and. (ij == 2) .and. (nbondj .ge. 0) .and. (nbondj .ne. 2)) then 949 949 com_south = 1 950 elseif((com_north .ne. 1) .and. (ij == nlcj) .and. (nbondj .le. 0)) then950 elseif((com_north .ne. 1) .and. (ij == (nlcj-1)) .and. (nbondj .le. 0)) then 951 951 com_north = 1 952 952 endif … … 960 960 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 961 961 ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 962 if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1) ))) then962 if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then 963 963 ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 964 964 if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then … … 989 989 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 990 990 ii = nbidta(ib,igrd,ib_bdy)- iw_b(1)+2 991 if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1) ))) then991 if((com_west_b .ne. 1) .and. (ii == (nlcit(nowe+1)-1))) then 992 992 ij = nbjdta(ib,igrd,ib_bdy) - is_b(1)+2 993 993 if((ij == 2) .and. (nbondj == 0 .or. nbondj == 1)) then … … 1030 1030 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 1031 1031 ij = nbjdta(ib,igrd,ib_bdy)- is_b(3)+2 1032 if((com_south_b .ne. 1) .and. (ij == (nlcjt(noso+1) ))) then1032 if((com_south_b .ne. 1) .and. (ij == (nlcjt(noso+1)-1))) then 1033 1033 com_south_b = 1 1034 1034 endif … … 1052 1052 & nbrdta(ib,igrd,ib_bdy) == ir ) THEN 1053 1053 ij = nbjdta(ib,igrd,ib_bdy)- is_b(3)+2 1054 if((com_south_b .ne. 1) .and. (ij == (nlcjt(noso+1) ))) then1054 if((com_south_b .ne. 1) .and. (ij == (nlcjt(noso+1)-1))) then 1055 1055 com_south_b = 1 1056 1056 endif
Note: See TracChangeset
for help on using the changeset viewer.