integer my_tile_ny(MAX_TILES)
& my_tile_ny,
if (ny.ne.my_tile_ny(1)) stop 'comprecv_r4: bad ny'
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r4tiles: bad ny'
if (ny.ne.my_tile_ny(1)) stop 'comprecv_r8: bad ny'
if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r8tiles: bad ny'
if (Nj.ne.my_tile_ny(bibj))
r4buf(4)=float( my_tile_ny(bibj) )
r8buf(4)=float( my_tile_ny(bibj) )
my_tile_ny(1)=ny
my_tile_ny(num_tiles)=ireg(2,bi,bj)
ibuf(2)=my_tile_ny(bibj)