And this zoom plot confirms the fit even more.

Input := 

Show[pOil,p1new,p1Lnew,PlotRange->{{600,800},{0,10}}]

Output =

-Graphics-