lat_cur=tmp_lat2(k)
if ((yC(i,j,bi,bj).LE.lat_cur).AND.
& (yC(i,j+1,bi,bj).GT.lat_cur)) then
prof_lat(num_file,ProfNo_tile,bi,bj)=lat_cur
lat_fac=(lat_cur-lat_1)/(lat_2-lat_1)
_RL tmp_lon, tmp_lon2(1000), tmp_lat2(1000), lon_cur, lat_cur