Salt_r = sLoc(i,r)
resSalt_r = (Salt_r *thk_r-bblSalt_r *bblEta_r)/resThk_r
Salt_r = sLoc(r,j)
_RL Salt_r, bblSalt_d, bblSalt_r, resSalt_r