Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:38:31 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
bf4be02920 Jean*0001 !=======================================================================
                0002       subroutine mitcplr_sortranks( nranks, ranks )
                0003       implicit none
                0004 ! Arguments
                0005       integer nranks
                0006       integer ranks(nranks)
                0007 ! Local
                0008       integer j,k,itmp
                0009 !     ------------------------------------------------------------------
                0010 
                0011       do j=1,nranks-1
                0012        do k=j+1,nranks
                0013         if ( ranks(k) .lt. ranks(j) ) then
                0014          itmp=ranks(k)
                0015          ranks(k)=ranks(j)
                0016          ranks(j)=itmp
                0017         endif
                0018        enddo
                0019       enddo
                0020 
                0021 !     ------------------------------------------------------------------
                0022       return
                0023       end
                0024 !=======================================================================