	subroutine get_clim(uv,nx,ny,nv,iy)
	dimension uv(nx,ny,nv)
	if(iy.le.0) iy=1
	do iv=1,nv
	read(1,11,end=9) (uv(ix,iy,iv),ix=1,nx)
11	format(12f6.0)
	enddo
9	return
	end
