- 积分
- 1767
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-9-19
- 最后登录
- 1970-1-1
![未绑定新浪微博用户 新浪微博达人勋](source/plugin/sina_login/img/gray.png)
|
![](static/image/common//ico_lz.png)
楼主 |
发表于 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 |
|