- 积分
 - 214
 
	- 贡献
 -  
 
	- 精华
 
	- 在线时间
 -  小时
 
	- 注册时间
 - 2011-10-10
 
	- 最后登录
 - 1970-1-1
 
 
 
 
 
 
 | 
	
 
 
发表于 2013-3-28 12:43:32
|
显示全部楼层
 
 
 
program tcundef 
integer,parameter::NY=121*61 
integer,parameter::NT=732 
real,parameter::ZMV=-9.99e+33 
real   ::Y(NY,NT),f(ny,nt) 
open(unit=1,file='sst.grd',form='unformatted',access='direct',recl=ny) 
     do j=1,nt 
            read(1,rec=j)(Y(i,j),i=1,ny) 
     enddo 
close(1) 
 
l1=0 
do i=1,ny 
if(y(i,1).ne.zmv)then 
        l1=l1+1 
        do k=1,nt 
 
         f(l1,k)=y(i,k) 
        enddo 
          endif 
enddo 
write(*,*) l1 
 
open(unit=11,file='tcsst.grd',form='unformatted',access='direct',recl=l1) 
     do j=1,nt 
            write(11,rec=j)(f(i,j),i=1,l1) 
     enddo 
close(11) 
end |   
 
 
 
 |