FUNCTION N_VidefsetIfc_X(n_ni, n_nj, n_vGridDestnIndex, n_vGridSourceIndex, r_pSurf, r_pTop,
n_numExtArraysIn, n_numExtArraysOut, r_ExtArraysIn, r_ExtArraysOut)

integer, intent(in)::n_ni, n_nj
integer, intent(in) :: n_vGridDestnIndex, n_vGridSourceIndex
real, dimension(n_ni, n_nj), intent(in) :: r_pSurf
real, dimension(n_ni, n_nj), intent(in) :: r_pTop
integer, intent(in) :: n_numExtArraysIn
integer, intent(in) :: n_numExtArraysOut
real, dimension(n_ni, n_nj, n_numExtArraysIn), intent(in)  :: r_ExtArraysIn
real, dimension(n_ni, n_nj, n_numExtArraysOut), intent(out) :: r_ExtArraysOut
DESCRIPTION 
Define the set of grid definitions to be used for the vertical interpolation.

Author: Jeff Blezius - Sept 2002
ARGUMENTS

Input:
n_ni	dimension of the horizontal grid in the interpolation
n_nj	other dimension of the horizontal grid in the interpolation
n_vGridDestnIndex	index of the vertical grid of output points: obtained from N_ViqkdefIfc_X
n_vGridSourceIndex	index of the vertical grid of input points: obtained from N_ViqkdefIfc_X
r_pSurf	surface pressure at each horiz location
r_pTop	ceiling pressure for each horiz point (used only for eta units)
n_numExtArraysIn	the number of arrays that are being passed in the r_ExtArraysIn variable; i.e. the third dimension of r_ExtArraysIn. Currently, the only choice is 4. VALUE USE 4 none of the below (all 4 are ignored) 4 for surface extrapolation (only the first 3 are used) 4 for surface extrapolation of a vector (i.e. wind)
n_numExtArraysOut	Third dimension of the array, r_ExtArraysOut. Currently, its value must be 0.
r_ExtArraysIn(n_ni, n_nj, n_numExtArraysIn)	extension to this interface to accommodate more input arrays, where the significance of the 2-D array is determined according to the third index of r_ExtArraysIn: INDEX SIGNIFICANCE 1 zo (roughness length) 2 ilmo (inverse of Monin-Obukhov length) 3 hBound (height of the boundary layer) 4 latitude of each column
Output:
N_VidefsetIfc_X	error indication: 0 means 'no error'; see $ARMNLIB/include/ViConstants_f90.h for the significance of other values
r_ExtArraysOut(n_ni, n_nj, 0)	For future expansion.

SEE ALSO