Symbol Description Uses
SZEN 9



File Line number Procedure Code
./pkg/aim_v23/phy_radiat.F 122 SOL_OZ
     &   (SLAT(J)*SZEN*HourAng+CLAT(J)*CZEN*SIN(HourAng))
./pkg/aim_v23/phy_radiat.F 131 SOL_OZ
     &    (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN
./pkg/aim_v23/phy_radiat.F 63 SOL_OZ
      _RL AZEN, RZEN, CZEN, SZEN, AST, FS0, FLAT2
./pkg/aim_v23/phy_radiat.F 84 SOL_OZ
      SZEN = - SIN(  OBLIQ * PI/180. _d 0) * COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 85 SOL_OZ
      RZEN = ASIN( SZEN )
./pkg/aim_v23/phy_radiat.F 87 SOL_OZ
      IF ( SZEN .EQ. 1. _d 0 ) THEN
./pkg/aim_v23/phy_radiat.F 89 SOL_OZ
      ELSEIF ( SZEN .EQ. -1. _d 0 ) THEN
./pkg/aim_v23/phy_radiat.F 92 SOL_OZ
         TanDelcl = SZEN / CZEN
./pkg/aim_v23/phy_radiat.F 97 SOL_OZ
      SZEN=SIN(RZEN)