ocean_tidal_mixing_destroy Subroutine

   subroutine ocean_tidal_mixing_destroy(this)
      class(ocean_tidal_mixing_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%e_in)) deallocate (this%e_in)
      if (allocated(this%kd_int)) deallocate (this%kd_int)
   end subroutine ocean_tidal_mixing_destroy