- 积分
- 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 |
|