User: rhaas Date: 2013/03/27 08:46 PM

Modified: /trunk/src/ GRHydro_Eigenproblem.F90

Log: GRHydro: reduce size of critical section in eigenbalues routine

From: Roland Haas rhaas@tapir.caltech.edu

File Changes:

Directory: /trunk/src/ ======================

File [modified]: GRHydro_Eigenproblem.F90 Delta lines: +2 -2 =================================================================== --- trunk/src/GRHydro_Eigenproblem.F90 2013-03-28 01:46:32 UTC (rev 493) +++ trunk/src/GRHydro_Eigenproblem.F90 2013-03-28 01:46:34 UTC (rev 494) @@ -86,16 +86,16 @@ (1.0d0 + eps + press/rho)

if(cs2.lt.0.0d0) then - !$OMP CRITICAL if (abs(cs2) .gt. 1.0d-4) then + !$OMP CRITICAL write(warnline,'(a60,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(1,"cs2 < 0! Check speed of sound calculation!") + !$OMP END CRITICAL cs2 = 0.0d0 else cs2 = 0.0d0 endif - !$OMP END CRITICAL endif