diff options
| author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-07-23 15:29:56 +0000 |
|---|---|---|
| committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-07-23 15:29:56 +0000 |
| commit | 10254df8c62dd286e5ba2ca68e76d993ed49889f (patch) | |
| tree | fc41d7bb1a291d6619cfdbffa557f5f35d3a4f39 /src/GRHydro_RoeSolver.F90 | |
| parent | c1454e6bc104a14c0f669389c5e90c1d5559c9bd (diff) | |
* remove incomplete and slow NaN checks.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@141 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_RoeSolver.F90')
| -rw-r--r-- | src/GRHydro_RoeSolver.F90 | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/GRHydro_RoeSolver.F90 b/src/GRHydro_RoeSolver.F90 index c661ed1..7d77599 100644 --- a/src/GRHydro_RoeSolver.F90 +++ b/src/GRHydro_RoeSolver.F90 @@ -47,8 +47,6 @@ subroutine GRHydro_RoeSolve(CCTK_ARGUMENTS) CCTK_INT :: type_bits, trivial, not_trivial - character(len=256) NaN_WarnLine - if (flux_direction == 1) then call SpaceMask_GetTypeBits(type_bits, "Hydro_RiemannProblemX") call SpaceMask_GetStateBits(trivial, "Hydro_RiemannProblemX", & @@ -222,13 +220,6 @@ subroutine GRHydro_RoeSolve(CCTK_ARGUMENTS) gzzh*velzave*velzave + 2*gxyh*velxave*velyave + & 2*gxzh*velxave *velzave + 2*gyzh*velyave*velzave)) -!!$ BEGIN: Check for NaN value - if (w_lorentzave .ne. w_lorentzave) then - write(NaN_WarnLine,'(a100,3g15.6)') 'NaN produced in sqrt(): (velxave, velyave, velzave))', velxave, velyave, velzave - call CCTK_WARN(GRHydro_NaN_verbose, NaN_WarnLine) - endif -!!$ END: Check for NaN value - if (flux_direction == 1) then !!$ call prim2con(GRHydro_eos_handle,gxxh, gxyh, gxzh, gyyh, & !!$ gyzh, gzzh, avg_det, & |