登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想对比站点数据和wrf模式运行结果的气温变量的均根方误差。 我的思路如下:grid.ctl 是生成的格点数据描述文件,sta.ctl 是站点描述文件,d02-21600.ctl是wrf结果描述文件。首先把站点插值到格点上,然后计算均值;然后对于每个格点,计算误差,并相加,最后进行开方,平均。在循环中,需要对缺省值处理,wrf的T2缺省值是1e+30,想把缺省值变成0。程序运行通过,但是计算结果不对,大家能帮我看看么?仔细想了想,缺省值这里能否用fortran修改呢,可是由于不知道.dat的格式,不知道该如何处理 'reinit' 'open C:\GrADS20\win32\Temperature\20130308\grid.ctl' 'open C:\GrADS20\win32\Temperature\20130308\sta.ctl' 'open C:\GrADS20\win32\Temperature\20130308\d02-21600.ctl' 'set t 1' 'set z 1' 'define a=oacres(g,avg.2)' 'define aa=aave(a,x=1,x=537,y=1,y=347)' 'set t 4' 'define f=T2.3' i=1 j=1 'define cha1=0' while(i<538) 'set x 'i while(j<348) 'set y 'j if('f=1e+30') 'define f=0' endif 'define cha1=(aa-f)*(aa-f)+cha1' j=j+1 endwhile i=i+1 endwhile 'define cha2=cha1/(537*347)' 'define cha=sqrt(cha2)' ; |