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 warnings for ignored plot options for voxel plot

Browse source
This commit is contained in:
nhorelik 2013-04-13 22:39:10 -04:00
parent a322422f40
commit 55996dd06b
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/input_xml.F90
View file

@ -2214,6 +2214,11 @@ contains
! Copy plot background color
if (associated(plot_(i) % background)) then
if (pl % type == PLOT_TYPE_3DRASTER) then
message = "Background color ignored in 3D raster plot " // &
trim(to_str(pl % id))
call warning()
end if
if (size(plot_(i) % background) == 3) then
pl % not_found % rgb = plot_(i) % background
else
@ -2300,6 +2305,13 @@ contains
! Copy user specified colors
if (associated(plot_(i) % col_spec_)) then
if (pl % type == PLOT_TYPE_3DRASTER) then
message = "Color specifications ignored in 3D raster plot " // &
trim(to_str(pl % id))
call warning()
end if
n_cols = size(plot_(i) % col_spec_)
do j = 1, n_cols
if (size(plot_(i) % col_spec_(j) % rgb) /= 3) then
@ -2339,6 +2351,12 @@ contains
! Deal with masks
if (associated(plot_(i) % mask_)) then
if (pl % type == PLOT_TYPE_3DRASTER) then
message = "Mask ignored in 3D raster plot " // &
trim(to_str(pl % id))
call warning()
end if
select case(size(plot_(i) % mask_))
case default
message = "Mutliple masks" // &