The following plot shows that the initial and 10 minute later data fit the model very well.

Input := 

Show[pOil,p1new,p1Lnew]

Output =

-Graphics-