& apressure_lat_inc, apressure_nlon, apressure_nlat, xC, yC,
INTEGER apressure_nlon,apressure_nlat
& apressure_nlon,apressure_nlat
apressure_nlon = Nx