Fixed plots to work with reflective boundary conditions.

This commit is contained in:
Paul Romano 2012-01-19 23:30:09 -05:00
parent 49be76f43f
commit 971b2cc8c4

View file

@ -170,7 +170,7 @@ contains
! Since boundary conditions are disabled in plotting mode, we need
! to manually add the last segment
if (surfaces(abs(surface_crossed)) % bc == BC_VACUUM) then
if (surfaces(abs(surface_crossed)) % bc /= BC_TRANSMIT) then
p % coord0 % xyz(1) = last_x_coord
write(UNIT=UNIT_PLOT) p % coord0 % xyz, 0
exit