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