making simple solver with external pressure input
added declarations, p_ext to name list
set initial conditions
fixed typo