Update src/simulation/m_pressure_relaxation.fpp

Co-authored-by: qodo-merge-pro[bot] <151058649+qodo-merge-pro[bot]@users.noreply.github.com>

Author: JRChreim

src/simulation/m_pressure_relaxation.fpp

@@ -177,7 +177,7 @@ contains
                 ! Enforce pressure bounds
                 do i = 1, num_fluids
                     if (pres_relax <= -(1._wp - 1.e-8_wp)*ps_inf(i) + 1.e-8_wp) &
-                        pres_relax = -(1._wp - 1.e-8_wp)*ps_inf(i) + 1._wp
+                        pres_relax = -(1._wp - 1.e-8_wp)*ps_inf(i) + 1.e-8_wp
                 end do
 
                 ! Newton-Raphson step