| 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 |
106 |
SOL_OZ |
FLAT2 = 1.5 _d 0*SLAT(J)**2 - 0.5 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
111 |
SOL_OZ |
& MAX( 0. _d 0, 1. _d 0+CSR1*SLAT(J)+CSR2*FLAT2 ) |
|
./pkg/aim_v23/phy_radiat.F |
114 |
SOL_OZ |
TanLat = SIGN(1. _d 0, SLAT(J) ) * largeTan |
|
./pkg/aim_v23/phy_radiat.F |
116 |
SOL_OZ |
TanLat = SLAT(J)/CLAT(J) |
|
./pkg/aim_v23/phy_radiat.F |
122 |
SOL_OZ |
& (SLAT(J)*SZEN*HourAng+CLAT(J)*CZEN*SIN(HourAng)) |
|
./pkg/aim_v23/phy_radiat.F |
127 |
SOL_OZ |
OZONE(J) = EPSSW*(1.+COZ1*SLAT(J)+COZ2*FLAT2) |
|
./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 |
17 |
SOL_OZ |
SUBROUTINE SOL_OZ (SOLC, TYEAR, SLAT, CLAT, |
|
./pkg/aim_v23/phy_radiat.F |
55 |
SOL_OZ |
_RL SLAT(NGP), CLAT(NGP) |