crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Lowered FP_PRECISION and added more output geometry error.

Browse source
This commit is contained in:
Paul Romano 2011-12-05 13:01:58 -05:00
parent f95cb888d7
commit 1272f5b347
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/constants.f90
View file

@ -19,10 +19,10 @@ module constants
real(8), parameter :: FREE_GAS_THRESHOLD = 400.0
! Used for surface current tallies
real(8), parameter :: TINY_BIT = 1e-8
real(8), parameter :: TINY_BIT = 1e-8_8
! User for precision in geometry
real(8), parameter :: FP_PRECISION = 1e-9_8
real(8), parameter :: FP_PRECISION = 1e-8_8
! Maximum number of collisions/crossings
integer, parameter :: MAX_EVENTS = 10000

5
src/geometry.f90
View file

@ -406,8 +406,9 @@ contains
! Couldn't find next cell anywhere!
if ((.not. found) .and. (.not. plotting)) then
message = "After particle crossed surface " // trim(int_to_str(p%surface)) &
// ", it could not be located in any cell and it did not leak."
message = "After particle crossed surface " // trim(int_to_str( &
surfaces(abs(p%surface)) % id)) // " it could not be located in " &
// "any cell and it did not leak."
call fatal_error()
end if