FWHDestruct Subroutine

    Subroutine FWHDestruct(self)

        implicit none
        class(FWHClass), intent(inout)                   :: self

!       ---------------
!       Local variables
!       ---------------
        integer                                          :: i 

!       Check if is activated
!       ------------------------
        if (.not. self % isActive) return

        safedeallocate(self % iter)
        safedeallocate(self % t)
        ! safedeallocate(self % sourceZone)
        do i = 1, self % numberOfObservers
            call self % observers(i) % destruct
        end do
        safedeallocate(self % observers)

    End Subroutine FWHDestruct