Create pressure.f90