| File |
Line number |
Procedure |
Code |
|
./pkg/sphere/sphere.F |
156 |
SHC2GRID |
REAL DLAT, ANGLE, XLAT1, XLAT2 |
|
./pkg/sphere/sphere.F |
175 |
SHC2GRID |
XLAT1 = XLAT2-DLAT |
|
./pkg/sphere/sphere.F |
180 |
SHC2GRID |
CALL SHC2ZONE( LMAX, SHC, XLAT1, XLAT2, HS, HN, P ) |
|
./pkg/sphere/sphere.F |
210 |
SHC4GRID |
REAL DLAT, ANGLE, XLAT1, XLAT2 |
|
./pkg/sphere/sphere.F |
242 |
SHC4GRID |
XLAT1 = XLAT2-DLAT |
|
./pkg/sphere/sphere.F |
243 |
SHC4GRID |
CALL SHC4ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
|
./pkg/sphere/sphere.F |
295 |
SHC2ZONE |
SUBROUTINE SHC2ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
|
./pkg/sphere/sphere.F |
301 |
SHC2ZONE |
REAL XLAT1 ! INPUT latitude. |
|
./pkg/sphere/sphere.F |
319 |
SHC2ZONE |
XLAT = 0.5*(XLAT1+XLAT2) |
|
./pkg/sphere/sphere.F |
380 |
SHC4ZONE |
SUBROUTINE SHC4ZONE(LMAX,SHC,XLAT1,XLAT2,HS,HN,P) |
|
./pkg/sphere/sphere.F |
386 |
SHC4ZONE |
REAL XLAT1 ! latitude. |
|
./pkg/sphere/sphere.F |
408 |
SHC4ZONE |
IF(XLAT1 .LT. -90.0+1.E-10) THEN |
|
./pkg/sphere/sphere.F |
414 |
SHC4ZONE |
XLAT = 0.5*(XLAT1+XLAT2) |
|
./pkg/sphere/sphere.F |
417 |
SHC4ZONE |
SIN1 = SIN(AMAX1(-90.0,XLAT1)*DEG2RAD) |