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

commented out debug statements

Browse source
This commit is contained in:
Bryan Herman 2012-01-21 11:41:43 -05:00
parent 363863619a
commit 26f726627d
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/cmfd_execute.F90
View file

@ -25,13 +25,13 @@ contains
call compute_xs()
! print out flux for debugginb
write(100,*) cmfd % flux
write(101,*) cmfd % totalxs
write(102,*) cmfd % p1scattxs
write(103,*) cmfd % scattxs
write(104,*) cmfd % nfissxs
write(105,*) cmfd % hxyz
write(106,*) cmfd % current
! write(100,*) cmfd % flux
! write(101,*) cmfd % totalxs
! write(102,*) cmfd % p1scattxs
! write(103,*) cmfd % scattxs
! write(104,*) cmfd % nfissxs
! write(105,*) cmfd % hxyz
! write(106,*) cmfd % current
! write out neutron balance
call neutron_balance()
@ -48,8 +48,8 @@ contains
call compute_dhat()
! print dtilde and dhat
write(107,*) cmfd % dtilde
write(108,*) cmfd % dhat
! write(107,*) cmfd % dtilde
! write(108,*) cmfd % dhat
! write cmfd object to hdf5 file
call write_hdf5()