ocean_slopes_destroy Subroutine

   subroutine ocean_slopes_destroy(this)
      class(ocean_slopes_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%slope_x)) deallocate (this%slope_x)
      if (allocated(this%slope_y)) deallocate (this%slope_y)
      if (allocated(this%n2_u)) deallocate (this%n2_u)
      if (allocated(this%n2_v)) deallocate (this%n2_v)
      if (allocated(this%t_fill)) deallocate (this%t_fill)
      if (allocated(this%s_fill)) deallocate (this%s_fill)
      if (allocated(this%e_int)) deallocate (this%e_int)
      if (allocated(this%bathy)) deallocate (this%bathy)
      this%bathy_set = .false.
      this%nx_total = 0
      this%ny_total = 0
      this%nz_ml = 0
   end subroutine ocean_slopes_destroy