C                                                                               
C******************** TOP OF COMMON BLOCK - RTVGRD ********************         
C                                                                               
C   NAME- RTVGRD                                                                
C                                                                               
C   LANGUAGE- VS FORTRAN    TYPE- COMMON BLOCK  COMPUTER- AIX UNIX
C                                                                               
C   VERSION- 2.0     DATE- 05/02/94   PROGRAMMER- FRANK TILLEY (SMSRC)          
C   VERSION- 2.1     DATE- 10/28/94   PROGRAMMER- DAVE MOREL (SMSRC)            
C     XATOV-75       ADDS THE HIGH RESOLUTION RETRIEVAL BUFFERS.                
C   VERSION- 3.0     DATE- 10/07/97   PROGRAMMER- LEAH WILSON (HSTX)
C   VERSION- 3.1     DATE  06/19/13   PROGRAMMER- FRANK TILLEY (IMSG)
C                                                                               
C   FUNCTION- THIS COMMON BLOCK CONTAINS THE RETRIEVAL GRID BUFFERS.            
C             THE DIMENSIONS ARE SPECIFIED IN INCLUDE MEMBER RTVPARM.           
C   VERSION- 3.0 ADD PHO.
C   VERSION- 3.1 ADD PHOCC. REMOVE WRTDAT, WRTANC
C                                                                               
C   SHARED PARAMETERS-                                                          
C     VARIABLE           TYPE      DESCRIPTION                                  
C     --------           ----      -----------                                  
C     RETDAT             REAL      RETRIEVAL DATA BUFFER                        
C                                  DIMENSION RNGRDP X RTOTLN X RDATEL.          
C                                                                               
C     RETANC             REAL      RETRIEVAL ANCILLARY BUFFER                   
C                                  DIMENSION RNGRDP X RTOTLN X RNANC.           
C                                                                               
C     TOZDAT             REAL      TOTAL OZONE DATA BUFFER                      
C                                  DIMENSION RNGRDP X RTOTLN X 2.               
C                                                                               
C     PHO                REAL      LIBRARY SEARCH CLOSENESS MEASURE.
C                                  DIMENSION RNGRDP X RTOTLN.
C
C     PHOCC              REAl      LIBRARY SEARCH CLOSENESS MEASURE
C                                  USING CLOUD-CLEARED CHANNELS.
C                                  DIMENSION RNGRDP X RTOTLN.
C                                                                               
C**********************************************************************         
C                                                                               
      COMMON /RETGRD/ RETDAT, RETANC, TOZDAT, PHO, PHOCC
C                                                                               
      REAL RETDAT(RNGRDP,RTOTLN,RDATEL), RETANC(RNGRDP,RTOTLN,RNANC)                                        
      REAL TOZDAT(RNGRDP,RTOTLN,2), PHO(RNGRDP,RTOTLN), PHOCC(RNGRDP,RTOTLN)
C                                                                               
C******************** BOTTOM OF COMMON BLOCK - RTVGRD *****************