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

Added cases for cones in output in hdf5_interface.

Browse source
This commit is contained in:
Paul Romano 2012-10-15 09:13:25 -04:00
parent e2c73fd156
commit dd96feece0
2 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/hdf5_interface.F90
View file

@ -247,6 +247,12 @@ contains
call h5ltmake_dataset_string_f(temp_group, "type", "Z Cylinder", hdf5_err)
case (SURF_SPHERE)
call h5ltmake_dataset_string_f(temp_group, "type", "Sphere", hdf5_err)
case (SURF_CONE_X)
call h5ltmake_dataset_string_f(temp_group, "type", "X Cone", hdf5_err)
case (SURF_CONE_Y)
call h5ltmake_dataset_string_f(temp_group, "type", "Y Cone", hdf5_err)
case (SURF_CONE_Z)
call h5ltmake_dataset_string_f(temp_group, "type", "Z Cone", hdf5_err)
case (SURF_BOX_X)
case (SURF_BOX_Y)
case (SURF_BOX_Z)

6
src/output.F90
View file

@ -486,6 +486,12 @@ contains
string = "Z Cylinder"
case (SURF_SPHERE)
string = "Sphere"
case (SURF_CONE_X)
string = "X Cone"
case (SURF_CONE_Y)
string = "Y Cone"
case (SURF_CONE_Z)
string = "Z Cone"
case (SURF_BOX_X)
case (SURF_BOX_Y)
case (SURF_BOX_Z)