ocean_kappa_shear_destroy Subroutine

   subroutine ocean_kappa_shear_destroy(this)
      class(ocean_kappa_shear_t), intent(inout) :: this
      this%is_init = .false.
      ! Reset the vertex arming with the fields it gates — a destroy ->
      ! re-init resurrection must not leave `at_vertex` pointing at
      ! deallocated corner fields.
      this%at_vertex = .false.
      if (allocated(this%f_centre)) deallocate (this%f_centre)
      if (allocated(this%kd_int)) deallocate (this%kd_int)
      if (allocated(this%tke_int)) deallocate (this%tke_int)
      if (allocated(this%f_corner)) deallocate (this%f_corner)
      if (allocated(this%kd_corner)) deallocate (this%kd_corner)
   end subroutine ocean_kappa_shear_destroy