surfrd_mkrank (Source File: surfrdMod.F90)

INTERFACE:

   subroutine surfrd_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
     use abortutils, only : endrun

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 surfrd_wtxy_veg_rank in this module

REVISION HISTORY:

   Author: Gordon Bonan

LOCAL VARIABLES: