crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Write entropy at every generation in HDF5 state points.

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

3
src/hdf5_interface.F90
View file

@ -878,6 +878,7 @@ contains
dims(1) = current_batch
call h5ltmake_dataset_double_f(hdf5_state_point, "k_batch", 1, &
dims, k_batch, hdf5_err)
dims(1) = current_batch*gen_per_batch
call h5ltmake_dataset_double_f(hdf5_state_point, "entropy", 1, &
dims, entropy, hdf5_err)
end if
@ -1149,7 +1150,7 @@ contains
call h5ltread_dataset_double_f(hdf5_state_point, "k_batch", &
k_batch(1:restart_batch), dims, hdf5_err)
call h5ltread_dataset_double_f(hdf5_state_point, "entropy", &
entropy(1:restart_batch), dims, hdf5_err)
entropy(1:restart_batch*gen_per_batch), dims, hdf5_err)
end if
! Read number of realizations for global tallies