581 CALL long_reset_to_cart_closest(lov, lonref)
582 CALL set_val(this%grid%proj, longitude_south_pole=lonref)
585 lon = modulo(lonsp + 180.0d0, 360.0d0)
592 IF (
c_e(this%grid%grid%xmin) .AND.
c_e(this%grid%grid%xmin))
THEN 593 lon = 0.5d0*(this%grid%grid%xmin + this%grid%grid%xmax)
595 IF (
PRESENT(lonref))
THEN 597 CALL long_reset_to_cart_closest(londelta, lonref)
598 londelta = londelta - lon
599 this%grid%grid%xmin = this%grid%grid%xmin + londelta
600 this%grid%grid%xmax = this%grid%grid%xmax + londelta