IPXETAS
The IPXETAS routine transforms between the staggered eta grids
as used in the eta model and for native grid transmission
and their full expansion as used for general interpolation
and graphics. The eta grids are rotated latitude-longitude
grids staggered as defined by the Arakawa e-grid, that is
with mass data points alternating with wind data points.
The expansion of the fields is done by 4-point averaging.
USAGE: CALL IPXETAS(IDIR,M1,M2,KM,KGDS1,F1,KGDS2,F2,IRET)
Input argument list:
IDIR - INTEGER TRANSFORM OPTION
(+1 TO EXPAND STAGGERED MASS FIELDS TO FULL FIELDS)
(+2 TO EXPAND STAGGERED WIND FIELDS TO FULL FIELDS)
(-1 TO CONTRACT FULL MASS FIELDS TO STAGGERED FIELDS)
(-2 TO CONTRACT FULL WIND FIELDS TO STAGGERED FIELDS)
M1 - INTEGER SKIP NUMBER BETWEEN STAGGERED GRID FIELDS
M2 - INTEGER SKIP NUMBER BETWEEN FULL GRID FIELDS
KM - INTEGER NUMBER OF FIELDS TO TRANSFORM
KGDS1 - INTEGER (200) GDS PARMS OF STAGGERED GRID IF IDIR>0
F1 - REAL (M1,KM) STAGGERED GRID FIELDS IF IDIR>0
KGDS2 - INTEGER (200) GDS PARMS OF FULL GRID IF IDIR<0
F2 - REAL (M2,KM) FULL GRID FIELDS IF IDIR<0
Output argument list:
KGDS1 - INTEGER (200) GDS PARMS OF STAGGERED GRID IF IDIR<0
F1 - REAL (M1,KM) STAGGERED GRID FIELDS IF IDIR<0
KGDS2 - INTEGER (200) GDS PARMS OF FULL GRID IF IDIR>0
F2 - REAL (M2,KM) FULL GRID FIELDS IF IDIR>0
IRET - INTEGER RETURN CODE
0 SUCCESSFUL TRANSFORMATION
1 IMPROPER GRID SPECIFICATION
iplib.tar |
Library contains subroutines to be used for
interpolating almost any grids used at NCEP. (Fortran90)
Date posted: 2/22/2007 |