 
      CALL SEQUENCE...
      gsomega  SSLNSP SSVORT SSDIV GSOMEG INPUT OUTPUT \
                [ -lon VAL1 -lat VAL2 -npg VAL3]
 
 
      DESCRIPTION...
      gsomega - CONVERTS Q,D FILES TO VERTICAL MOTION
 
 
      AUTHORS - J.D.Henderson
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/gsomega.ptn,v 4.9 2014/10/16 11:34:05 dugas Exp $
 
 
      PURPOSE - COMPUTES A GRID FILE OF VERTICAL MOTION (DP/DT) FROM
                ETA (SIGMA/HYBRID) LEVEL SPECTRAL FILES OF VORTICITY
                AND DIVERGENCE.
 
      NOTE    - INPUT IS SPECTRAL, OUTPUT IS GAUSSIAN GRIDS,
                ALL GLOBAL.
 
 
      INPUT FILES...
       SSLNSP = SPECTRAL LN(SF PRES) ON ETA (SIGMA/HYBRID) LEVELS
       SSVORT = SPECTRAL VORTICITY   ON ETA (SIGMA/HYBRID) LEVELS
       SSDIV  = SPECTRAL DIVERGENCE  ON ETA (SIGMA/HYBRID) LEVELS
 
      OUTPUT FILE...
       GSOMEG = GRIDS OF VERTICAL MOTION OMEGA (DP/DT) AT MID-LAYER
                POSITIONS. UNITS ARE NEWTONS/M**2/SEC.
 
 
      INPUT PARAMETERS...
 
       ILG   (lon)  = LENGTH OF A GAUSSIAN GRID ROW.
       ILAT  (lat)  = NUMBER OF GAUSSIAN LATITUDES.
       KPACK (npg)  = OUTPUT PACKING DENSITY (0 DEFAULT TO 4)
 
       READ(5,5010) ILG,ILAT,KPACK
 5010  FORMAT(10X,3I5,1X,A4,E10.0,I5)
 
 
      EXAMPLE OF INPUT CARD...
 
 * GSOMEGA   64   52    0
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 ERROR RETREIVING FULL LEVELS FROM SSVORT
        2 TOO MANY ZONAL WAVENUMBERS IN SPECTRAL FILES
        3 PREMATURE EOF ON SSLNSP
        4 MORE THAN ONE SIZE IN INPUT FILES
        5 PREMATURE EOF ON SSVORT
        6 PREMATURE EOF ON SSDIV
        7 ABORT READING INPUT
     20+L LEVEL L NOT THE SAME IN SSVORT AND SSDIV
 
