|
||||
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 UTCbf4be02920 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 !=======================================================================
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |