ocean_budgets_init Subroutine

   subroutine ocean_budgets_init(this, grid)
      class(ocean_budgets_t), intent(inout) :: this
      type(hgrid_t), intent(in) :: grid
      this%grid = grid
      this%has_snapshot = .false.
      this%values = 0.0_wp
      this%values_init = 0.0_wp
      this%n_contributors = 0
      this%n_contributors_max = INITIAL_CONTRIBUTOR_CAPACITY
      allocate (this%contributors(this%n_contributors_max))
      this%is_init = .true.
   end subroutine ocean_budgets_init