libsim Versione 7.2.1

◆ 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 678 del file geo_proj_class.F90.

684 this%polar%latin2, this%lov, this%polar%lad, &
685 this%polar%projection_center_flag)
686
687CASE("polar_stereographic")
688 CALL proj_polar_stereographic(lon, lat, x, y, this%lov, &
689 this%polar%lad, this%polar%projection_center_flag)
690
691CASE("mercator")
692 CALL proj_mercator(lon, lat, x, y, this%lov, this%polar%lad)
693
694CASE("UTM")
695 CALL proj_utm(lon, lat, x, y, this%lov, this%xoff, this%yoff, this%ellips)
696
697CASE default
698 x = dmiss
699 y = dmiss
700
701END SELECT
702
703END SUBROUTINE geo_proj_proj
704
705
708ELEMENTAL SUBROUTINE geo_proj_unproj(this, x, y, lon, lat)
709TYPE(geo_proj),INTENT(in) :: this
711DOUBLE PRECISION, INTENT(in) :: x, y
713DOUBLE PRECISION, INTENT(out) :: lon, lat
714
715SELECT CASE(this%proj_type)
716
717CASE("regular_ll")
718 CALL unproj_regular_ll(x, y, lon, lat)
719
720CASE("rotated_ll")
721 CALL unproj_rotated_ll(x, y, lon, lat, this%rotated%longitude_south_pole, &
722 this%rotated%latitude_south_pole, this%rotated%angle_rotation)
723
724CASE("lambert")
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)
728
729CASE("polar_stereographic")
730 CALL unproj_polar_stereographic(x, y, lon, lat, this%lov, &
731 this%polar%lad, this%polar%projection_center_flag)
732
733CASE("mercator")

Generated with Doxygen.