NAME
Grid_computeVarMean
SYNOPSIS
call Grid_computeVarMean(integer(in) :: iunk,
real(out) :: mean)
DESCRIPTION
Calculates the mean of a variable in UNK
ARGUMENTS
iunk : the variable (index into the UNK array) mean : the mean value returned