566 IF (unit == geo_proj_unit_meter)
THEN
567 CALL get_val(this%grid%proj, lov=lon)
568 IF (
PRESENT(lonref))
THEN
569 CALL long_reset_to_cart_closest(lov, lonref)
570 CALL set_val(this%grid%proj, lov=lon)
573 ELSE IF (unit == geo_proj_unit_degree)
THEN
574 CALL get_val(this%grid%proj, proj_type=ptype, &
575 longitude_south_pole=lonsp, latitude_south_pole=latsp)
577 CASE(
'rotated_ll',
'stretched_rotated_ll')
578 IF (latsp < 0.0d0)
THEN
580 IF (
PRESENT(lonref))
THEN
581 CALL long_reset_to_cart_closest(lon, lonref)
582 CALL set_val(this%grid%proj, longitude_south_pole=lonref)
584 IF (c_e(this%grid%grid%xmin) .AND. c_e(this%grid%grid%xmax))
THEN
585 lonrot = 0.5d0*(this%grid%grid%xmin + this%grid%grid%xmax)