File |
Line number |
Procedure |
Code |
./pkg/sphere/sphere.F |
158 |
SHC2GRID |
REAL DLAT, ANGLE, XLAT1, XLAT2 |
./pkg/sphere/sphere.F |
176 |
SHC2GRID |
XLAT2 =-90.0 + FLOAT(LATS)*DLAT |
./pkg/sphere/sphere.F |
177 |
SHC2GRID |
XLAT1 = XLAT2-DLAT |
./pkg/sphere/sphere.F |
182 |
SHC2GRID |
CALL SHC2ZONE( LMAX, SHC, XLAT1, XLAT2, HS, HN, P ) |
./pkg/sphere/sphere.F |
212 |
SHC4GRID |
REAL DLAT, ANGLE, XLAT1, XLAT2 |
./pkg/sphere/sphere.F |
243 |
SHC4GRID |
XLAT2 =-90.0 + FLOAT(LATS)*DLAT |
./pkg/sphere/sphere.F |
244 |
SHC4GRID |
XLAT1 = XLAT2-DLAT |
./pkg/sphere/sphere.F |
245 |
SHC4GRID |
CALL SHC4ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
./pkg/sphere/sphere.F |
297 |
SHC2ZONE |
SUBROUTINE SHC2ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
./pkg/sphere/sphere.F |
304 |
SHC2ZONE |
REAL XLAT2 ! INPUT latitude. |
./pkg/sphere/sphere.F |
321 |
SHC2ZONE |
XLAT = 0.5*(XLAT1+XLAT2) |
./pkg/sphere/sphere.F |
382 |
SHC4ZONE |
SUBROUTINE SHC4ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
./pkg/sphere/sphere.F |
389 |
SHC4ZONE |
REAL XLAT2 ! latitude. |
./pkg/sphere/sphere.F |
416 |
SHC4ZONE |
XLAT = 0.5*(XLAT1+XLAT2) |
./pkg/sphere/sphere.F |
420 |
SHC4ZONE |
SIN2 = SIN(AMIN1( 0.0,XLAT2)*DEG2RAD) |