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

Add description of print_cmfd

Browse source
This commit is contained in:
Shikhar Kumar 2018-02-20 14:46:03 -05:00
parent 4aae63ff77
commit 552a8b9c0c
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/output.F90
View file

@ -368,7 +368,7 @@ contains
! write out entropy info
if (entropy_on) write(UNIT=OUTPUT_UNIT, FMT='(3X, F8.5)', ADVANCE='NO') &
entropy % data(i)
! write out accumulated k-effective if after first active batch
if (n > 1) then
write(UNIT=OUTPUT_UNIT, FMT='(3X, F8.5," +/-",F8.5)', ADVANCE='NO') &
@ -380,8 +380,9 @@ contains
end subroutine print_batch_keff
!===============================================================================
! PRINT_BATCH_KEFF displays the last batch's tallied value of the neutron
! multiplication factor as well as the average value if we're in active batches
! PRINT_CMFD displays the CMFD related information to output after CMFD is
! executed. Will print blank line if CMFD is not on, to ensure consistent
! formatting of output columns
!===============================================================================
subroutine print_cmfd()
@ -405,9 +406,10 @@ contains
cmfd % dom(current_batch)
end select
end if
! next line
write(UNIT=OUTPUT_UNIT, FMT=*)
end subroutine print_cmfd
!===============================================================================