& wshifwflx0
_RL wshifwflx0
& max(wshifwflx(i,j,bi,bj),wshifwflx0)
wshifwflx0 = 0. _d 0
& , mult_shifwflx, wshifwflx0, shifwflx_errfile