& apressure_lon0, apressure_lon_inc, apressure_lat0,
_RL apressure_lon0,apressure_lon_inc
& apressure_lon0,apressure_lon_inc,
apressure_lon0 = thetaMin + delX(1) / 2