- 积分
- 6650
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2018-4-2
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit''sdfopen d:/dachuang/erapressurelevel2018.01.nc''set fwrite d:/dachuang/inversion.grd''set gxout fwrite'it = 1while(it<=124) 'set t 'it iy=161 while(iy<=169) 'set y 'iy ix = 155 while(x<=164) 'set x 'ix iz = 1 while(iz<=36) m=iz n=iz+1 'd t(z='m')' aa=sublin(result,1) a=subwrd(aa,4) 'd t(z='n')' bb=sublin(result,1) b=subwrd(bb,4) if(a>b) while(n<=37) p=n+1 'd t(z='p')' cc=sublin(result,1) c=subwrd(cc,4) if(b<c) break endif n=n+1 endwhile break endif iz=iz+1 endwhile 'd z(z='m')-z(z='n')' ix=ix+1 endwhile iy=iy+1 endwhile it=it+1endwhile'disable fwrite';这是gs文件 有没有大神帮忙看一下 为什么grd文件出不来啊?
|
|