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

Write current entropy at each generation.

Browse source
This commit is contained in:
Paul Romano 2012-12-06 21:08:51 -05:00
parent aebce4d86e
commit bd35fbf6a4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/output.F90
View file

@ -1236,7 +1236,7 @@ contains
! write out entropy info
if (entropy_on) write(UNIT=OUTPUT_UNIT, FMT='(3X, F8.5)', ADVANCE='NO') &
entropy(current_batch)
entropy(current_gen + gen_per_batch*(current_batch - 1))
! next line
write(UNIT=OUTPUT_UNIT, FMT=*)
@ -1258,7 +1258,7 @@ contains
! write out entropy info
if (entropy_on) write(UNIT=OUTPUT_UNIT, FMT='(3X, F8.5)', ADVANCE='NO') &
entropy(current_batch)
entropy(current_batch*gen_per_batch)
! write out accumulated k-effective if after first active batch
if (current_batch > n_inactive + 1) then