_RL apressure_lon0,apressure_lon_inc
& apressure_lon0,apressure_lon_inc,
& apressure_lon0, apressure_lon_inc,
& apressure_lon0,apressure_lon_inc,apressure_lat0,apressure_lat_inc
apressure_lon0 = inp_lon0
CALL EXF_PRINT_INTERP( 'apressure', apressure_lon0,