Symbol Description Uses
OZUPP 19



File Line number Procedure Code
./pkg/aim_v23/com_radvar.h 18 NO PROCEDURE
      _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)
./pkg/aim_v23/phy_driver.F 221 PHY_DRIVER
     O             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_driver.F 238 PHY_DRIVER
     I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_driver.F 261 PHY_DRIVER
     &            OZUPP, STRATC, TAU2, FLUX, ST4A,
./pkg/aim_v23/phy_driver.F 359 PHY_DRIVER
     &            OZUPP, STRATC, TAU2, FLUX, ST4A,
./pkg/aim_v23/phy_driver.F 377 PHY_DRIVER
     I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_driver.F 386 PHY_DRIVER
     &             OZUPP, STRATC, TAU2, FLUX, ST4A,
./pkg/aim_v23/phy_driver.F 393 PHY_DRIVER
     &            OZUPP, STRATC, TAU2, FLUX, ST4A,
./pkg/aim_v23/phy_radiat.F 109 RADSW
     I                  FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_radiat.F 157 RADSW
      _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)
./pkg/aim_v23/phy_radiat.F 322 RADSW
        FLUX(J,1)=FSOL(J)*FBAND1-OZUPP(J)
./pkg/aim_v23/phy_radiat.F 453 RADLW
     I                  OZUPP, STRATC, TAU2,
./pkg/aim_v23/phy_radiat.F 46 SOL_OZ
      _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)
./pkg/aim_v23/phy_radiat.F 504 RADLW
      _RL OZUPP(NGP), STRATC(NGP)
./pkg/aim_v23/phy_radiat.F 679 RADLW
        FTOP(J)=FTOP(J)+OZUPP(J)
./pkg/aim_v23/phy_radiat.F 7 SOL_OZ
     O                   FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_radiat.F 86 SOL_OZ
        OZUPP(J) = EPSSW*(1.-FLAT2)
./pkg/aim_v23/phy_radiat.F 94 SOL_OZ
        OZUPP(J)=FSOL(J)*OZUPP(J)*ZENIT(J)