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