Removed unused variable

This commit is contained in:
Nick Horelik 2014-08-20 10:28:02 -04:00
parent bb8a95b3f1
commit f77bbb2336

View file

@ -190,7 +190,6 @@ contains
type(Image) :: img
logical :: in_mesh
integer :: n
integer :: x, y ! pixel location
integer :: xrange(2), yrange(2) ! range of pixel locations
integer :: i, j ! loop indices
@ -207,7 +206,6 @@ contains
type(StructuredMesh), pointer :: m => null()
m => meshes(pl % meshlines_id)
n = m % n_dimension
select case (pl % basis)
case(PLOT_BASIS_XY)