! source file: /usr/local/models/UVic_ESCM/2.8/source/common/global_sums.F
      subroutine globalsum (ind)

!=======================================================================
!     calculate the global sums of heat and fresh water

!     input:
!       ind = index for calculation (1=initial, 2=current, 3=final)

!     based on code by: M. Eby
!=======================================================================

      return
      end