- 积分
- 24
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-5-6
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
program main
parameter(xx=128,yy=72)
real prec(xx,yy)
open(10,file='F:\Fortan\MSDEV98\MyProjects\jiangyu\SURF_CLI_CHN_PRE_DAY_GRID_0.5-20120702.txt',status='old',form='formatted')
do j=1,6
read(10,*)
enddo
read (10,100) prec
close(10)
100 format(128f8.1)
open(11,file='rain.grd',form='binary')
do j=72,1,-1
write(11) (prec(i,j),i=1,128)
enddo
close(11)
end
这段是 fortran的代码 用于处理原始数据的,gs程序和ctl描述文件在附件 ,求人解答
|
-
-
-
1.gs
332 Bytes, 下载次数: 11, 下载积分: 金钱 -5
-
-
data.ctl
230 Bytes, 下载次数: 10, 下载积分: 金钱 -5
-
-
rain.grd
36 KB, 下载次数: 3, 下载积分: 金钱 -5
|