ObserverDestruct Subroutine

   Subroutine ObserverDestruct(self)

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

       ! local variables
       integer                                            :: i
        safedeallocate (self % Pac)
        do i = 1, self % numberOfFaces
            call self % sourcePair(i) % destruct
        end do
        safedeallocate (self % sourcePair)

   End Subroutine ObserverDestruct