Symbol Description Uses
ZENIT 15



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 222 PHY_DRIVER
     O             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_driver.F 239 PHY_DRIVER
     I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_driver.F 386 PHY_DRIVER
     I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_radiat.F 123 SOL_OZ
        ZENIT(J) = 1. + AZEN*
./pkg/aim_v23/phy_radiat.F 127 SOL_OZ
        OZUPP(J)=FSOL(J)*OZUPP(J)*ZENIT(J)
./pkg/aim_v23/phy_radiat.F 128 SOL_OZ
        OZONE(J)=FSOL(J)*OZONE(J)*ZENIT(J)
./pkg/aim_v23/phy_radiat.F 147 RADSW
     I                  FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_radiat.F 197 RADSW
      _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)
./pkg/aim_v23/phy_radiat.F 315 RADSW
        DELTAP=ZENIT(J)*DSIG(1)*dpFac(J,1)
./pkg/aim_v23/phy_radiat.F 324 RADSW
         DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K)
./pkg/aim_v23/phy_radiat.F 342 RADSW
        DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K)
./pkg/aim_v23/phy_radiat.F 348 RADSW
         DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K)
./pkg/aim_v23/phy_radiat.F 47 SOL_OZ
      _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)
./pkg/aim_v23/phy_radiat.F 7 SOL_OZ
     O                   FSOL, OZONE, OZUPP, ZENIT, STRATZ,