& num_shifwflx
_RL num_shifwflx(nSx,nSy)
CALL GLOBAL_SUM_TILE_RL( num_shifwflx, no_shifwflx, myThid )
& num_shifwflx(bi,bj) = num_shifwflx(bi,bj)
num_shifwflx(bi,bj) = 0. _d 0