*******************************************************
open(11,file='e:\data\ncep0629\data\orog1.grb...,rec=1)
&((orog(I,J),I=1,i0),J=1,j0)
close(11)
open(11,file='e:\data\ncep0629\data\uu0629.grb...,k,kt)=work(i,j,k2,kt)
enddo
enddo
enddo
enddo
open(11,file='e:\data\ncep0629\data\vv0629.grb...,k,kt)=work(i,j,k2,kt)
enddo
enddo
enddo
enddo
open(11,file='e:\data\ncep0629\data\tt0629.grb...,k,kt)=work(i,j,k2,kt)
enddo
enddo
enddo
enddo
open(11,file='e:\data\ncep0629\data\hh0629.grb