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

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2013/01/14 08:23 AM

Modified:
 /trunk/src/
  GRHydro_Prim2ConM.F90

Log:
 GRHydro: output v2 when warning about NaN in w_lorentz
 
 From: Roland Haas <roland.haas at physics.gatech.edu>

File Changes:

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

File [modified]: GRHydro_Prim2ConM.F90
Delta lines: +2 -2
===================================================================
--- trunk/src/GRHydro_Prim2ConM.F90	2013-01-14 14:23:48 UTC (rev 463)
+++ trunk/src/GRHydro_Prim2ConM.F90	2013-01-14 14:23:49 UTC (rev 464)
@@ -255,8 +255,8 @@
     call CCTK_WARN(1, NaN_WarnLine)
     write(NaN_WarnLine,'(a100,3g15.6)') 'NaN produced in sqrt(): (x,y,z)', x, y, z
     call CCTK_WARN(1, NaN_WarnLine)
-    !write(NaN_WarnLine,'(a100,g15.6)') 'NaN produced in sqrt(): w', w
-    !call CCTK_WARN(GRHydro_NaN_verbose, NaN_WarnLine)
+    write(NaN_WarnLine,'(a100,g15.6)') 'NaN produced in sqrt(): v2', DOT2(dvelx(1),dvely(1),dvelz(1))
+    call CCTK_WARN(GRHydro_NaN_verbose, NaN_WarnLine)
     !$OMP END CRITICAL
   endif
 !!$ END: Check for NaN value