mkrank

INTERFACE:

 subroutine mkrank (n, a, miss, iv, num)

DESCRIPTION:

   Return indices of largest [num] values in array [a]

USES:

   use shr_kind_mod, only: r8 => shr_kind_r8

ARGUMENTS:

   implicit none
   integer , intent(in) :: n        !array length
   real(r8), intent(in) :: a(0:n)   !array to be ranked
   integer , intent(in) :: miss     !missing data value
   integer , intent(in) :: num      !number of largest values requested
   integer , intent(out):: iv(num)  !index to [num] largest values in array [a]

CALLED FROM:

   subroutine mkpft
   subroutine mksoicol 
   subroutine mksoitex

REVISION HISTORY:

   Author: Gordon Bonan