& apressure_lon0, apressure_lon_inc, apressure_lat0,
_RL apressure_lat0,apressure_lat_inc(MAX_LAT_INC)
& apressure_lat0,apressure_lat_inc,
apressure_lat0 = phimin + delY(1) / 2