| 
 
	积分1721贡献 精华在线时间 小时注册时间2011-9-19最后登录1970-1-1 
 | 
 
 
 楼主|
发表于 2011-12-2 22:45:22
|
显示全部楼层 
| mofangbao 发表于 2011-12-2 22:10 因为你按照站点去写格点数据了,改成我刚才贴的那个样子试试吧,你的ctl没啥问题,除了ydef少了一个 line ...
program main
 implicit none
 real :: lat,lon
 integer t
 real :: val,var
 open (4,file='d:\dong.txt',status='old')
 open(2,file='test.dat',status='new',form='binary')
 read(4,*) t,lat,lon,var
 我想令var是变量 ,但是val也是指降水量而且是数组,这个该怎么解决
 do t=1,2
 do lat=-88.75,88.75 ,2.5
 do lon=1.25  ,358.75 , 2.5
 write(2)val(t,lat,lon)
 enddo
 enddo
 enddo
 close(2)
 close(4)
 end
 | 
 |