| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
45 |
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 |
79 |
SOL_OZ |
FLAT2 = 1.5 _d 0*SLAT(J)**2 - 0.5 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
83 |
SOL_OZ |
& MAX( 0. _d 0, 1. _d 0+CSR1*SLAT(J)+CSR2*FLAT2 ) |
|
./pkg/aim_v23/phy_radiat.F |
87 |
SOL_OZ |
OZONE(J) = EPSSW*(1.+COZ1*SLAT(J)+COZ2*FLAT2) |
|
./pkg/aim_v23/phy_radiat.F |
91 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/sphere/sphere.F |
312 |
SHC2ZONE |
REAL DEG2RAD, SLAT |
|
./pkg/sphere/sphere.F |
323 |
SHC2ZONE |
SLAT = SIN(XLAT*DEG2RAD) |
|
./pkg/sphere/sphere.F |
325 |
SHC2ZONE |
CALL HELMHOLTZ(LMAX,SLAT,P) |