Ticket #1475: bdyini.diff

File bdyini.diff, 1.4 KB (added by anders, 6 years ago)
  • bdyini.F90

     
    10121012                       endif  
    10131013                     ENDIF 
    10141014                  ELSEIF(nbondj .eq. 1) THEN 
    1015                      IF( com_south_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(3)-1 .OR. & 
    1016                        & nbidta(ib,igrd,ib_bdy) == ie_b(3)+1) .AND. & 
     1015                     IF( com_south_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(3) .OR. & 
     1016                       & nbidta(ib,igrd,ib_bdy) == ie_b(3)) .AND. & 
    10171017                       & nbjdta(ib,igrd,ib_bdy) == in_b(3) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 
    10181018                       com_south_b = 1  
    10191019                     ENDIF 
     
    10261026                       endif  
    10271027                     ENDIF 
    10281028                  ELSEIF(nbondj .eq. -1) THEN 
    1029                      IF(com_north_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(4)-1  & 
    1030                        & .OR. nbidta(ib,igrd,ib_bdy) == ie_b(4)+1) .AND. & 
     1029                     IF(com_north_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(4)  & 
     1030                       & .OR. nbidta(ib,igrd,ib_bdy) == ie_b(4)) .AND. & 
    10311031                       & nbjdta(ib,igrd,ib_bdy) == is_b(4) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 
    10321032                       com_north_b = 1  
    10331033                     ENDIF