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