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 224 PHY_DRIVER
     O             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_driver.F 249 PHY_DRIVER
     I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_driver.F 396 PHY_DRIVER
     I             FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_radiat.F 130 SOL_OZ
        ZENIT(J) = 1. + AZEN*
./pkg/aim_v23/phy_radiat.F 134 SOL_OZ
        OZUPP(J)=FSOL(J)*OZUPP(J)*ZENIT(J)
./pkg/aim_v23/phy_radiat.F 135 SOL_OZ
        OZONE(J)=FSOL(J)*OZONE(J)*ZENIT(J)
./pkg/aim_v23/phy_radiat.F 159 RADSW
     I                  FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_radiat.F 18 SOL_OZ
     O                   FSOL, OZONE, OZUPP, ZENIT, STRATZ,
./pkg/aim_v23/phy_radiat.F 205 RADSW
      _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)
./pkg/aim_v23/phy_radiat.F 322 RADSW
        DELTAP=ZENIT(J)*DSIG(1)*dpFac(J,1)
./pkg/aim_v23/phy_radiat.F 331 RADSW
         DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K)
./pkg/aim_v23/phy_radiat.F 349 RADSW
        DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K)
./pkg/aim_v23/phy_radiat.F 355 RADSW
         DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K)
./pkg/aim_v23/phy_radiat.F 56 SOL_OZ
      _RL FSOL(NGP), OZONE(NGP), OZUPP(NGP), ZENIT(NGP), STRATZ(NGP)