& apressure_lon0, apressure_lon_inc, apressure_lat0,
_RL apressure_lon0,apressure_lon_inc
& apressure_lon0,apressure_lon_inc,
apressure_lon_inc = delX(1)