! source file: /Users/oschlies/UVIC/master/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