From 52d7f2ffa9c499f1b35b24771b889302bc61f50f Mon Sep 17 00:00:00 2001 From: reisswig Date: Thu, 16 Feb 2012 23:18:45 +0000 Subject: Cosmetic change to ePPM3. Improved handling of cs2 < 0. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@314 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- src/GRHydro_Eigenproblem.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GRHydro_Eigenproblem.F90') diff --git a/src/GRHydro_Eigenproblem.F90 b/src/GRHydro_Eigenproblem.F90 index 605f372..1bbcf35 100644 --- a/src/GRHydro_Eigenproblem.F90 +++ b/src/GRHydro_Eigenproblem.F90 @@ -87,7 +87,7 @@ subroutine eigenvalues(handle,rho,velx,vely,velz,eps, & if(cs2.lt.0.0d0) then if (abs(cs2) .gt. 1.0d-4) then - write(warnline,'(a50,6g16.7)') 'rho, dpdrho, press*dpdeps/rho**2, eps, press/rho: ', abs(cs2), rho, dpdrho, press * dpdeps / (rho**2), eps, press/rho + write(warnline,'(a50,6g16.7)') 'abs(cs2), rho, dpdrho, press*dpdeps/rho**2, eps, press/rho: ', abs(cs2), rho, dpdrho, press * dpdeps / (rho**2), eps, press/rho call CCTK_WARN(1,warnline) call CCTK_WARN(0,"cs2 < 0! Check speed of sound calculation!") else -- cgit v1.2.3