User: knarf Date: 2010/09/08 02:04 PM
Modified: /trunk/src/util/ Riemann1d.f90
Log: get rid of deleted Fortran statement 'pause'
File Changes:
Directory: /trunk/src/util/ ===========================
File [modified]: Riemann1d.f90 Delta lines: +8 -2 =================================================================== --- trunk/src/util/Riemann1d.f90 2010-08-27 20:30:51 UTC (rev 152) +++ trunk/src/util/Riemann1d.f90 2010-09-08 19:04:46 UTC (rev 153) @@ -429,7 +429,10 @@ b = 1.d0 - a c = ha * (known(3) - guess(3)) / known(1) - ha * ha
- if (c > b * b / 4.d0 / a) pause "unphysical enthalpy" + if (c > b * b / 4.d0 / a) then + write (*,*) "unphysical enthalpy" + stop + endif
h = (-b + sqrt(b * b - 4.d0 * a * c)) / 2.d0 / a
@@ -727,7 +730,10 @@ b = 1.d0 - a c = ha * (known(3) - guess(3)) / known(1) - ha * ha
- if (c > b * b / 4.d0 / a) pause "unphysical enthalpy" + if (c > b * b / 4.d0 / a) then + write(*,*) "unphysical enthalpy" + stop + endif
h = (-b + sqrt(b * b - 4.d0 * a * c)) / 2.d0 / a