We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 3f64172 commit 6e451a8Copy full SHA for 6e451a8
1 file changed
src/Solution/ParticleTracker/Particle/ParticleTracks.f90
@@ -128,8 +128,6 @@ end subroutine init_buffer
128
subroutine destroy(this)
129
class(ParticleTracksType) :: this
130
call this%buffer%destroy()
131
- if (allocated(this%buffer)) deallocate (this%buffer)
132
- if (allocated(this%files)) deallocate (this%files)
133
end subroutine destroy
134
135
!> @brief Grow the array of track files.
0 commit comments