C lipbufthick is thickenes of lipid buffore
sslipi=sscalelip(fracinbuf)
ssgradlipi=-sscagradlip(fracinbuf)/lipbufthick
elseif (zi.gt.bufliptop) then
C lipbufthick is thickenes of lipid buffore
sslipi=sscalelip(fracinbuf)
ssgradlipi=-sscagradlip(fracinbuf)/lipbufthick
elseif (zi.gt.bufliptop) then