*ID CONSTANT O3
*DECLARE RAD_CTL1
*I ADB2F404.937
      DO ROW=1,P_ROWS
        DO I=1,ROW_LENGTH
          POINT=I+(ROW-1)*ROW_LENGTH
          DO LEVEL=1,OZONE_LEVELS
            IF(LEVEL.LT.TRINDX(POINT)) OZONE_1(POINT,LEVEL)=2.0E-8
            IF(LEVEL.EQ.TRINDX(POINT)) OZONE_1(POINT,LEVEL)=2.0E-7
            IF(LEVEL.GT.TRINDX(POINT)) OZONE_1(POINT,LEVEL)=1.0E-6

            IF(LEVEL.EQ.OZONE_LEVELS)  OZONE_1(POINT,LEVEL)=1.5E-6
          ENDDO
        ENDDO
      ENDDO
