diff --git a/src/bc.f90 b/src/bc.f90 index ccd73d7e7ef89940b542c3eb43141de0c8506afa..191a4ffd5a8c3cba623abc93005fef015426445d 100755 --- a/src/bc.f90 +++ b/src/bc.f90 @@ -116,6 +116,7 @@ real(kind=pr) :: myvar(ii,jj,ll) integer :: m + call sync(myvar) ! between procs through the sync routines if (bcx.eq.'w') then if (myid.eq.0) then do 1 m=1,gc @@ -128,7 +129,7 @@ 2 enddo endif elseif (bcx.eq.'p') then - call sync(myvar) ! done through the sync routines + ! between procs through the sync routines elseif (bcx.eq.'i') then if (myid.eq.0) then do 7 m=1,gc