FUNCTION N_ViqkdefIfc_X(n_VertGridIndex, n_numVLevels, n_gridType, 
r_vLevel, r_pTopAvg, r_pRef, r_rCoef)

integer, intent(out) :: n_VertGridIndex
integer, intent(in) :: n_numVLevels
integer, intent(in) :: n_gridType

real, dimension(n_numVLevelsIn), intent(in) :: r_vLevel

real, optional,intent(in)::r_pTopAvg
real, optional,intent(in)::r_pRef
real, optional,intent(in)::r_rCoef
DESCRIPTION 
Quick definition of a vertical grid.
This is the initializer for a VerticalGrid object.  It defines one vertical 
grid and returns an index to that grid; the grid itself is stored in an internal
repository and is not accessible by the user.  By using the index, that grid may 
be used as the input grid or the output grid.

Author: Jeff Blezius - Sept 2002
ARGUMENTS

Input:
n_numVLevels	number of vertical levels in r_vLevel
n_gridType	the type of grid -- see values in $ARMNLIB/include/ViConstants_f90.h
r_vLevel	the levels, in units determined by n_gridType
The next three arguments are optional as a group (for N_GRID_TYPE_HYBRID):
r_pTopAvg	average pressure (mb) at model top
r_pRef	reference pressure (mb)
r_rCoef	known as 'expansion co-efficient'
Output:
N_ViqkdefIfc_X	error indication: 0 means 'no error'; see $ARMNLIB/include/ViConstants_f90.h for the significance of other values
n_VertGridIndex	index to the resulting grid

SEE ALSO