C                                                                               
C********************* TOP OF COMMON BLOCK - CLDDAT ********************        
C                                                                               
C   NAME- CLDDAT                                                                
C                                                                               
C   LANGUAGE- VS FORTRAN  TYPE- COMMON BLOCK    COMPUTER- NAS 9000              
C                                                                               
C   VERSION- 1.0   DATE-  1/27/93   PROGRAMMER- CARLA NEIGH (SMSRC)             
C                                                                               
C   FUNCTION-  THIS COMMON BLOCK HOLDS THE DATA FOR A SINGLE SPOT               
C              USED IN THE CLOUD TESTS.                                         
C                                                                               
C   SHARED PARAMETERS-                                                          
C                                                                               
C     NAME     TYPE    DESCRIPTION                                              
C     ----     ----    -----------                                              
C     NIGHT    L*4     LOGICAL FLAG INDICATING WHETHER HIRS SPOT IS             
C                      IN NIGHTTIME OR DAYTIME (TRUE = NIGHT, FALSE =           
C                      DAY).                                                    
C     OVRLND   L*4     LOGICAL FLAG INDICATING WHETHER HIRS SPOT IS             
C                      OVER LAND OR WATER (TRUE = OVER LAND, FALSE =            
C                      OVER WATER).                                             
C     POLAR    L*4     LOGICAL FLAG INDICATING WHETHER HIRS SPOT IS             
C                      OVER A POLAR OR NON-POLAR AREA (TRUE = POLAR,            
C                      FALSE = NON-POLAR).                                      
C     SNWFRE   L*4     LOGICAL FLAG INDICATING WHETHER HIRS SPOT IS             
C                      OVER A SNOW-FREE OR SNOW-COVERED AREA (TRUE =            
C                      SNOW-FREE, FALSE = SNOW-COVERED).                        
C     ICEFRE   L*4     LOGICAL FLAG INDICATING WHETHER HIRS SPOT IS             
C                      OVER AN ICE-FREE OR ICE-COVERED AREA (TRUE =             
C                      ICE-FREE, FALSE = ICE-COVERED).                          
C     TSFC8    R*4     SURFACE TEMPERATURE COMPUTED FROM HIRS CHANNEL           
C                      8.                                                       
C     TSFC18   R*4     SURFACE TEMPERATURE COMPUTED FROM HIRS CHANNEL           
C                      18.                                                      
C     TSFC19   R*4     SURFACE TEMPERATURE COMPUTED FROM HIRS CHANNEL           
C                      19.                                                      
C     TSFEST   R*4     SURFACE TEMPERATURE ESTIMATE.                            
C     FORCST   R*4     FORECAST SURFACE TEMPERATURE.                            
C                                                                               
C                                                                               
C   BLOCK DATA- NONE                                                            
C                                                                               
C***********************************************************************        
C                                                                               
      LOGICAL NIGHT, OVRLND, POLAR, SNWFRE, ICEFRE                            
      REAL TSFC8, TSFC18, TSFC19, TSFEST, FORCST                              
C                                                                               
      COMMON /CLDDAT/ NIGHT, OVRLND, POLAR, SNWFRE, ICEFRE, TSFC8,              
     1                TSFC18, TSFC19, TSFEST, FORCST                            
C                                                                               
      SAVE /CLDDAT/                                                             
C                                                                               
C********************* BOTTOM OF COMMON BLOCK - CLDDAT *****************        
C