[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 494)

[rhaas at tapir.caltech.edu]

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 at 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