C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/compon_communic/mitcplr_sortranks.F,v 1.2 2007/10/08 23:58:22 jmc Exp $
C $Name:  $

!=======================================================================
      subroutine mitcplr_sortranks( nranks, ranks )
      implicit none
! Arguments
      integer nranks
      integer ranks(nranks)
! Local
      integer j,k,itmp
!     ------------------------------------------------------------------

      do j=1,nranks-1
       do k=j+1,nranks
        if ( ranks(k) .lt. ranks(j) ) then
         itmp=ranks(k)
         ranks(k)=ranks(j)
         ranks(j)=itmp
        endif
       enddo
      enddo

!     ------------------------------------------------------------------
      return
      end
!=======================================================================