ocean_mle_destroy Subroutine

   subroutine ocean_mle_destroy(this)
      class(ocean_mle_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%b_ml)) deallocate (this%b_ml)
      if (allocated(this%htot_ml)) deallocate (this%htot_ml)
      if (allocated(this%mld_filtered)) deallocate (this%mld_filtered)
      if (allocated(this%uhml)) deallocate (this%uhml)
      if (allocated(this%vhml)) deallocate (this%vhml)
      this%nx_total = 0
      this%ny_total = 0
      this%nz_ml = 0
   end subroutine ocean_mle_destroy