|
◆ geo_proj_set_val()
subroutine geo_proj_set_val |
( |
type(geo_proj), intent(inout) |
this, |
|
|
character(len=*), optional |
proj_type, |
|
|
double precision, optional |
lov, |
|
|
integer, intent(in), optional |
zone, |
|
|
double precision, optional |
xoff, |
|
|
double precision, optional |
yoff, |
|
|
double precision, optional |
longitude_south_pole, |
|
|
double precision, optional |
latitude_south_pole, |
|
|
double precision, optional |
angle_rotation, |
|
|
double precision, optional |
longitude_stretch_pole, |
|
|
double precision, optional |
latitude_stretch_pole, |
|
|
double precision, optional |
stretch_factor, |
|
|
double precision, optional |
latin1, |
|
|
double precision, optional |
latin2, |
|
|
double precision, optional |
lad, |
|
|
integer, optional |
projection_center_flag, |
|
|
double precision, intent(in), optional |
ellips_smaj_axis, |
|
|
double precision, intent(in), optional |
ellips_flatt, |
|
|
integer, intent(in), optional |
ellips_type |
|
) |
| |
- Parametri
-
[in,out] | this | Object to be updated |
| proj_type | Type of projection |
| lov | Line of view, also known as reference longitude or orientation of the grid (polar projections) |
[in] | zone | Earth zone (mainly for UTM), sets lov to the correct zone central meridian |
| xoff | Offset on x axis (false easting) |
| yoff | Offset on y axis (false northing) |
| longitude_south_pole | Longitude of the southern pole of projection |
| latitude_south_pole | Latitude of the southern pole of projection |
| angle_rotation | Angle of rotation of projection |
| longitude_stretch_pole | Longitude of the pole of stretching |
| latitude_stretch_pole | Latitude of the pole of stretching |
| stretch_factor | Stretching factor |
| latin1 | First standard latitude from main pole (Lambert) |
| latin2 | Second standard latitude from main pole (Lambert) |
| lad | Latitude at which dx and dy (in m) are specified (Lambert, grib2 only) |
| projection_center_flag | Flag indicating which pole is represented |
[in] | ellips_smaj_axis | Earth semi-major axis |
[in] | ellips_flatt | Earth flattening |
[in] | ellips_type | number in the interval [1,nellips] indicating a predefined ellipsoid, alternative to the previous arguments |
Definizione alla linea 688 del file geo_proj_class.F90.
695 CALL proj_utm(lon, lat, x, y, this%lov, this%xoff, this%yoff, this%ellips
703 END SUBROUTINE geo_proj_proj
708 ELEMENTAL SUBROUTINE geo_proj_unproj(this, x, y, lon, lat)
709 TYPE(geo_proj), INTENT(in) :: this
711 DOUBLE PRECISION, INTENT(in) :: x, y
713 DOUBLE PRECISION, INTENT(out) :: lon, lat
715 SELECT CASE(this%proj_type)
718 CALL unproj_regular_ll(x, y, lon, lat)
721 CALL unproj_rotated_ll(x, y, lon, lat, this%rotated%longitude_south_pole
722 this%rotated%latitude_south_pole, this%rotated%angle_rotation)
725 CALL unproj_lambert(x, y, lon, lat, this%polar%latin1, &
726 this%polar%latin2, this%lov, this%polar%lad, &
727 this%polar%projection_center_flag)
730 CALL unproj_polar_stereographic(x, y, lon, lat, this%lov, &
731 this%polar%lad, this%polar%projection_center_flag)
734 CALL unproj_mercator(x, y, lon, lat, this%lov, this%polar%lad)
737 CALL unproj_utm(x, y, lon, lat, this%lov, this%xoff, this%yoff, this%ellips
|