- 积分
- 1025
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-22
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 LeoBao 于 2012-5-17 22:57 编辑
'reinit'
'open d:\bylw\ncep_monmean\u.50.ctl'
'set gxout fwrite'
'set fwrite d:\bylw\ncep_monmean\uujp.grd'
k=1
while(k<=12)
'set x 1 144'
'set y 1 73'
'set z 'k''
'set t 1 '
'define b=ave(v,t+0,t=50)'
'set x 1 144'
'set y 1 73'
'set z ‘k’'
'set t 1 50'
'd v-b'
k=k+1
endwhile
'disable fwrite'
'reinit'
;
用上面的GrADS生成了一组数 x =144 ,y=73,z=12,t=50
在用fortran读数的时候,如果是这样读
read(1)(( a(i,j),i=1,144*73*12),t=50)
循环有没有错????
|
|