ocean_budgets_destroy Subroutine

   subroutine ocean_budgets_destroy(this)
      class(ocean_budgets_t), intent(inout) :: this
      integer :: i
      this%is_init = .false.
      this%nbudgets = 0
      this%values = 0.0_wp
      this%values_init = 0.0_wp
      this%has_snapshot = .false.
      if (allocated(this%areaT)) deallocate (this%areaT)
      if (allocated(this%mask)) then
         call diag_mask_destroy(this%mask)
         deallocate (this%mask)
      end if
      if (allocated(this%contributors)) then
         do i = 1, this%n_contributors
            nullify (this%contributors(i)%per_cell)
         end do
         deallocate (this%contributors)
      end if
      this%n_contributors = 0
      this%n_contributors_max = 0
   end subroutine ocean_budgets_destroy