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

moved a write statement

Browse source
This commit is contained in:
Bryan Herman 2012-05-15 08:17:54 -07:00
parent b9da6208e1
commit c5fdbcdfe0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmfd_output.F90
View file

@ -88,13 +88,13 @@ contains
! compute residual
res = leakage + interactions - scattering - (ONE/keff)*fission
write(670,*) 'Location',i,j,k,' Group:',g
write(670,*) 'Location',i,j,k,' Group:',g,'Balance:',res
! write(670,*) 'Leakage:',leakage
! write(670,*) 'Interactions:',interactions
! write(670,*) 'Scattering:',scattering
! write(670,*) 'Fission:',fission
! write(670,*) 'k-eff:',keff
write(670,*) 'Balance:',res
! write(670,*) 'Balance:',res
! normalize by flux
res = res/cmfd%flux(g,i,j,k)