Skip to content

Commit 3a0cb73

Browse files
committed
remove unnecessary deallocations
1 parent 9c2d146 commit 3a0cb73

1 file changed

Lines changed: 0 additions & 2 deletions

File tree

src/Solution/ParticleTracker/Particle/ParticleTracks.f90

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -128,8 +128,6 @@ end subroutine init_buffer
128128
subroutine destroy(this)
129129
class(ParticleTracksType) :: this
130130
call this%buffer%destroy()
131-
if (allocated(this%buffer)) deallocate (this%buffer)
132-
if (allocated(this%files)) deallocate (this%files)
133131
end subroutine destroy
134132

135133
!> @brief Grow the array of track files.

0 commit comments

Comments
 (0)