SUBROUTINE OUTZ                                                           
     1  (ASTAT, JMX, KMX , AKWD, ATTL, AUNT, IPWR, RLAT, AREA)                  
C----------------------------------------------------------------------         
C ASTAT(JMX,KMX) ZONAL MEAN VALUE                                               
C AKWD           �v�f�ɂ‚��Ă� KEYWORD                                     
C ATTL           �v�f�ɂ‚��ẴR�����g                                     
C IPWR           �ׂ���                                                     
C RLAT(JMX)    GAUSSIAN LATITUDE                                                
C AREA       'HEAD' HEADER �����o��                                         
C            'LAT ' LAT �����o��                                            
C            'KMAX' �������x�����̒l���o��                                  
C            'LAND' ���̒l���o��                                            
C            'SEA ' �C�̒l���o��                                            
C            'BOTH' �C���ʁE�S�̂̒l���o��                                  
C            'ALL ' �S�̂̒l���o��                                          
C----------------------------------------------------------------------         
C                                                                               
      DIMENSION ASTAT(JMX,KMX)                                                  
      DIMENSION RLAT(JMX)                                                       
      CHARACTER*4  AKWD                                                         
      CHARACTER*32 ATTL                                                         
      CHARACTER*16 AUNT                                                         
      CHARACTER*4 AREA                                                          
C                                                                               
      CHARACTER*3 LEVL(3)                                                       
      DATA LEVL/'LND','SEA','TOT'/                                              
C                                                                               
C   ------------------------------------------------------                      
C   >>>   AREA='LAT ' �Ȃ� RLAT �������o�͂��Ă����   <<<              
C   ------------------------------------------------------                      
      IF(AREA.EQ.'LAT ') THEN                                                   
        WRITE(6,801) ( RLAT(J), J = 1, JMX )                                    
        RETURN                                                                  
      END IF                                                                    
  801 FORMAT(1H ,'LAT ',16F8.1)                                                 
C                                                                               
C   ------------------                                                          
C   >>>   HEADER   <<<                                                          
C   ------------------                                                          
      IF(AREA.EQ.'HEAD') THEN                                                   
        WRITE(6,802) AKWD, ATTL, AUNT, IPWR                                     
        RETURN                                                                  
      END IF                                                                    
  802 FORMAT(1X,A4,4X,A32,'(',A16,') **',I2)                                    
C                                                                               
C   ==================================================================          
C   >>>   �o��   <<<                                                        
C   ==================================================================          
C                                                                               
C   -------------------------------------                                       
C   >>>   AREA='KMAX' �Ȃ� LAT ���o�͂���   <<<                         
C   -------------------------------------                                       
      IF(AREA.EQ.'KMAX') THEN                                                   
        WRITE(6,802) AKWD, ATTL, AUNT, IPWR                                     
        WRITE(6,801) ( RLAT(J), J = 1, JMX )                                    
      END IF                                                                    
C                                                                               
C   -----------------------------------------                                   
C   >>>   �C���ʒl���o�͂���   <<<                                          
C   -----------------------------------------                                   
      IF( AREA.EQ.'LAND'.OR.AREA.EQ.'BOTH' ) THEN                               
        WRITE(6,803) LEVL(1), ( ASTAT( J, 1 )*10**IPWR, J = 1, JMX )            
      ENDIF                                                                     
      IF( AREA.EQ.'SEA '.OR.AREA.EQ.'BOTH' ) THEN                               
        WRITE(6,803) LEVL(2), ( ASTAT( J, 2 )*10**IPWR, J = 1, JMX )            
      ENDIF                                                                     
      IF( AREA.EQ.'ALL '.OR.AREA.EQ.'BOTH' ) THEN                               
        WRITE(6,803) LEVL(3), ( ASTAT( J, 3 )*10**IPWR, J = 1, JMX )            
      ENDIF                                                                     
  803 FORMAT(1H ,A3,1X,16F8.1)                                                  
      IF( AREA.EQ.'KMAX' ) THEN                                                 
C   ------------------------------------------------------                      
C   >>>   AREA='KMAX' �Ȃ牔�����x�����̒l���o�͂���   <<<                  
C   ------------------------------------------------------                      
        DO 120 K=1,KMX                                                          
          WRITE(6,804) K, ( ASTAT( J, K )*10**IPWR, J = 1, JMX )                
  120   CONTINUE                                                                
  804   FORMAT(1H ,I2,2X,16F8.1)                                                
      ENDIF                                                                     
C                                                                               
C   ===================================================================         
C                                                                               
      RETURN                                                                    
      END SUBROUTINE OUTZ