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 : endrunARGUMENTS:
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 moduleREVISION HISTORY:
Author: Gordon BonanLOCAL VARIABLES: