| 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) |