libsim  Versione6.3.0

◆ 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]thisObject to be updated
proj_typeType of projection
lovLine of view, also known as reference longitude or orientation of the grid (polar projections)
[in]zoneEarth zone (mainly for UTM), sets lov to the correct zone central meridian
xoffOffset on x axis (false easting)
yoffOffset on y axis (false northing)
longitude_south_poleLongitude of the southern pole of projection
latitude_south_poleLatitude of the southern pole of projection
angle_rotationAngle of rotation of projection
longitude_stretch_poleLongitude of the pole of stretching
latitude_stretch_poleLatitude of the pole of stretching
stretch_factorStretching factor
latin1First standard latitude from main pole (Lambert)
latin2Second standard latitude from main pole (Lambert)
ladLatitude at which dx and dy (in m) are specified (Lambert, grib2 only)
projection_center_flagFlag indicating which pole is represented
[in]ellips_smaj_axisEarth semi-major axis
[in]ellips_flattEarth flattening
[in]ellips_typenumber 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)
710 
711 CASE("rotated_ll")
712  CALL unproj_rotated_ll(x, y, lon, lat, this%rotated%longitude_south_pole, &
713  this%rotated%latitude_south_pole, this%rotated%angle_rotation)
714 
715 CASE("lambert")
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)
719 
720 CASE("polar_stereographic")
721  CALL unproj_polar_stereographic(x, y, lon, lat, this%lov, &
722  this%polar%lad, this%polar%projection_center_flag)
723 
724 CASE("UTM")
725  CALL unproj_utm(x, y, lon, lat, this%lov, this%xoff, this%yoff, this%ellips)
726 
727 CASE default
728  lon = dmiss
729  lat = dmiss
730 
731 END SELECT
732 
733 END SUBROUTINE geo_proj_unproj
734 
735 
736 ELEMENTAL FUNCTION geo_proj_eq(this, that) RESULT(eq)
737 TYPE(geo_proj),INTENT(in) :: this, that
738 LOGICAL :: eq
739 
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. & ! polar%lon1, polar%lat1
749  this%polar%latin2 == that%polar%latin2 .AND. & ! intentionally not checked
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
753 
754 END FUNCTION geo_proj_eq
755 
756 
757 ELEMENTAL FUNCTION geo_proj_ne(this, that) RESULT(ne)
758 TYPE(geo_proj),INTENT(in) :: this, that

Generated with Doxygen.