|
◆ geo_proj_unproj()
elemental subroutine geo_proj_unproj |
( |
type(geo_proj), intent(in) |
this, |
|
|
double precision, intent(in) |
x, |
|
|
double precision, intent(in) |
y, |
|
|
double precision, intent(out) |
lon, |
|
|
double precision, intent(out) |
lat |
|
) |
| |
Computes and returns geographical coordinates given the coordinates in the projected system.
- Parametri
-
[in] | this | object to unproject |
[in] | x | projected coordinates |
[in] | y | projected coordinates |
[out] | lon | geographical coordinates |
[out] | lat | geographical coordinates |
Definizione alla linea 913 del file geo_proj_class.F90.
915 IF (latin1 == latin2) THEN 916 n = sin(degrad*latin1) 918 n = log(cs1/cos(degrad*latin2)) / & 919 log(tan(pi*.25d0 + degrad*latin2*.5d0) / cs2) 921 f = cs1*cs2**n/n*rearth 922 angle = pi*.25d0 + pollat*.5d0 930 angle = pi*.25d0 + degrad*lat*.5d0 941 y = ro0 - ro*cos(cs3) 943 END SUBROUTINE proj_lambert 945 ELEMENTAL SUBROUTINE unproj_lambert(x,y,lon,lat, &
|