RMNLIB

(N_VIDEFSETIFC_X)





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

N_ViqkdefIfc_X, N_VisintIfc_X, N_VisetoptIfc, N_VigdrlsIfc

Return to RPN Libraries home page
Return to product index
Last updated: December 5, 2003