|
◆ 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 709 del file geo_proj_class.F90.
709 CALL unproj_regular_ll(x, y, lon, lat) 712 CALL unproj_rotated_ll(x, y, lon, lat, this%rotated%longitude_south_pole, & 713 this%rotated%latitude_south_pole, this%rotated%angle_rotation) 716 CALL unproj_lambert(x, y, lon, lat, this%polar%latin1, & 717 this%polar%latin2, this%lov, this%polar%lad, & 718 this%polar%projection_center_flag) 720 CASE( "polar_stereographic") 721 CALL unproj_polar_stereographic(x, y, lon, lat, this%lov, & 722 this%polar%lad, this%polar%projection_center_flag) 725 CALL unproj_utm(x, y, lon, lat, this%lov, this%xoff, this%yoff, this%ellips) 733 END SUBROUTINE geo_proj_unproj 736 ELEMENTAL FUNCTION geo_proj_eq(this, that) RESULT(eq) 737 TYPE(geo_proj), INTENT(in) :: this, that 740 eq = this%proj_type == that%proj_type .AND. this%xoff == that%xoff .AND. & 741 this%yoff == that%yoff .AND. geo_lon_eq(this%lov, that%lov) .AND. & 742 geo_lon_eq(this%rotated%longitude_south_pole, that%rotated%longitude_south_pole) .AND. & 743 this%rotated%latitude_south_pole == that%rotated%latitude_south_pole .AND. & 744 this%rotated%angle_rotation == that%rotated%angle_rotation .AND. & 745 this%stretched%latitude_stretch_pole == that%stretched%latitude_stretch_pole .AND. & 746 geo_lon_eq(this%stretched%longitude_stretch_pole, that%stretched%longitude_stretch_pole) .AND. & 747 this%stretched%stretch_factor == that%stretched%stretch_factor .AND. & 748 this%polar%latin1 == that%polar%latin1 .AND. & 749 this%polar%latin2 == that%polar%latin2 .AND. & 750 this%polar%lad == that%polar%lad .AND. & 751 this%polar%projection_center_flag == that%polar%projection_center_flag .AND. & 752 this%ellips%f == that%ellips%f .AND. this%ellips%a == that%ellips%a 754 END FUNCTION geo_proj_eq 757 ELEMENTAL FUNCTION geo_proj_ne(this, that) RESULT(ne) 758 TYPE(geo_proj), INTENT(in) :: this, that
|