| File |
Line number |
Procedure |
Code |
|
./pkg/sphere/sphere.F |
158 |
SHC2GRID |
REAL DLAT, ANGLE, XLAT1, XLAT2 |
|
./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 |
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 |
303 |
SHC2ZONE |
REAL XLAT1 ! 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 |
388 |
SHC4ZONE |
REAL XLAT1 ! latitude. |
|
./pkg/sphere/sphere.F |
410 |
SHC4ZONE |
IF(XLAT1 .LT. -90.0+1.E-10) THEN |
|
./pkg/sphere/sphere.F |
416 |
SHC4ZONE |
XLAT = 0.5*(XLAT1+XLAT2) |
|
./pkg/sphere/sphere.F |
419 |
SHC4ZONE |
SIN1 = SIN(AMAX1(-90.0,XLAT1)*DEG2RAD) |