| File |
Line number |
Procedure |
Code |
|
./pkg/sphere/sphere.F |
314 |
SHC2ZONE |
REAL DEG2RAD, SLAT |
|
./pkg/sphere/sphere.F |
325 |
SHC2ZONE |
SLAT = SIN(XLAT*DEG2RAD) |
|
./pkg/sphere/sphere.F |
327 |
SHC2ZONE |
CALL HELMHOLTZ(LMAX,SLAT,P) |
|
./pkg/aim_v23/phy_radiat.F |
104 |
SOL_OZ |
& MAX( 0. _d 0, 1. _d 0+CSR1*SLAT(J)+CSR2*FLAT2 ) |
|
./pkg/aim_v23/phy_radiat.F |
107 |
SOL_OZ |
TanLat = sign(1. _d 0, SLAT(J) ) * LargeTan |
|
./pkg/aim_v23/phy_radiat.F |
109 |
SOL_OZ |
TanLat = SLAT(J)/CLAT(J) |
|
./pkg/aim_v23/phy_radiat.F |
115 |
SOL_OZ |
& (SLAT(J)*SZEN*HourAng+CLAT(J)*CZEN*SIN(HourAng)) |
|
./pkg/aim_v23/phy_radiat.F |
120 |
SOL_OZ |
OZONE(J) = EPSSW*(1.+COZ1*SLAT(J)+COZ2*FLAT2) |
|
./pkg/aim_v23/phy_radiat.F |
124 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/aim_v23/phy_radiat.F |
46 |
SOL_OZ |
_RL SLAT(NGP), CLAT(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
6 |
SOL_OZ |
SUBROUTINE SOL_OZ (SOLC, TYEAR, SLAT, CLAT, |
|
./pkg/aim_v23/phy_radiat.F |
99 |
SOL_OZ |
FLAT2 = 1.5 _d 0*SLAT(J)**2 - 0.5 _d 0 |