bt_wide_destroy Subroutine

   subroutine bt_wide_destroy(this)
      !! Deallocate all wide state.
      class(bt_wide_t), intent(inout) :: this
      this%is_init = .false.
      call this%metrics_w%destroy()
      if (allocated(this%f_corner_w)) deallocate (this%f_corner_w)
      if (allocated(this%w_eta)) deallocate (this%w_eta)
      if (allocated(this%w_H_ref)) deallocate (this%w_H_ref)
      if (allocated(this%w_eta_new)) deallocate (this%w_eta_new)
      if (allocated(this%w_ke)) deallocate (this%w_ke)
      if (allocated(this%w_eta_sum)) deallocate (this%w_eta_sum)
      if (allocated(this%w_eta_end)) deallocate (this%w_eta_end)
      if (allocated(this%w_ubt)) deallocate (this%w_ubt)
      if (allocated(this%w_ubt_prev)) deallocate (this%w_ubt_prev)
      if (allocated(this%w_rem_u)) deallocate (this%w_rem_u)
      if (allocated(this%w_ubt_sum)) deallocate (this%w_ubt_sum)
      if (allocated(this%w_uhbt_sum)) deallocate (this%w_uhbt_sum)
      if (allocated(this%w_uhbt)) deallocate (this%w_uhbt)
      if (allocated(this%w_ubt_end)) deallocate (this%w_ubt_end)
      if (allocated(this%w_vbt)) deallocate (this%w_vbt)
      if (allocated(this%w_vbt_prev)) deallocate (this%w_vbt_prev)
      if (allocated(this%w_rem_v)) deallocate (this%w_rem_v)
      if (allocated(this%w_vbt_sum)) deallocate (this%w_vbt_sum)
      if (allocated(this%w_vhbt_sum)) deallocate (this%w_vhbt_sum)
      if (allocated(this%w_vhbt)) deallocate (this%w_vhbt)
      if (allocated(this%w_vbt_end)) deallocate (this%w_vbt_end)
      if (allocated(this%w_zeta)) deallocate (this%w_zeta)
      if (allocated(this%w_force_u)) deallocate (this%w_force_u)
      if (allocated(this%w_force_v)) deallocate (this%w_force_v)
   end subroutine bt_wide_destroy