也发一个格点插值为站点数据的程序

qxtlyf

MeteoInfo 发表于 2014-1-11 16:18

                               
登录/注册后可看大图

应该可以在-i和-o后面加文件路径的，你试试

王老师：您好，我调试了，可以的，路径中不能有空格

bekaku

高手些的东西就是不一样，很工整，兼容性很强

w_ting2008

王老师您好，用了您的程序受益匪浅，现在我想把这个程序集成在C语言里，想问一下你的这个双线性插值的算法是什么？

OOOO1

收藏了！！

OOOO1

谢谢王老师分享！！

小英子

qxtlyf 发表于 2014-1-11 08:47

                               
登录/注册后可看大图

王老师在windows 下运行出现了下面的错误:怎么解决
Loaded 'ntdll.dll', no matching symbolic informatio ...

你好，我用你的程序，还是运行时还是出错了。错误提示为：
Loaded 'ntdll.dll', no matching symbolic information found.
Loaded 'C:\WINDOWS\system32\kernel32.dll', no matching symbolic information found.
The thread 0xD38 has exited with code 0 (0x0).
The program 'C:\4wxy\1\1\Debug\wang.exe' has exited with code 0 (0x0).
请问你是怎么改的？

qxtlyf

小英子 发表于 2014-2-23 18:35

                               
登录/注册后可看大图

你好，我用你的程序，还是运行时还是出错了。错误提示为：
Loaded 'ntdll.dll', no matching symbolic ...

我的数据、程序、说明

小英子

qxtlyf 发表于 2014-2-24 06:47

                               
登录/注册后可看大图

我的数据、程序、说明

谢谢哈，用了你的换了xp的可以运行的出结果了，可能原来的是4.0版本的问题。原来的编译过了，但是运行不出结果。还有想向您请教一下，如果文件头是3行的资料，怎样修改输入、输出部分？
diamond 4 2014022108-2120_EC
2014 02 21 08 12 0
0.250000 -0.250000 60.000000 150.000000 60.000000 -10.000000 361 281 1.000000 -100.000000 88.000000 1.000000 0.000000

读文件的时候我改为：
!----------------------------------------------------
! Open data file and allocate variables
!----------------------------------------------------
inquire (file=finp,exist=ftest)
if(ftest)then
  open(10,file=finp,status='old',iostat=error)
else
  write(*,*)'Input file not found: ',finp
  stop
end if
read(10,*) ctemp,ctemp,desc
write(*,'(A)') desc
read(10,*) iyear,imonth,iday,ihour,phour,level
write(*,*) iyear,imonth,iday,ihour,phour,level
read(10,*) xdelt,ydelt,xmin,xmax,ymin,ymax,xnum,ynum,ctemp&
,ctemp,ctemp,ctemp,ctemp
write(*,*) xdelt,ydelt,xmin,xmax,ymin,ymax,xnum,ynum,ctemp&
,ctemp,ctemp,ctemp,ctemp
...............................
但是还是不行！

小英子

tjhno1 发表于 2013-7-30 15:19

                               
登录/注册后可看大图

王老师 我想问下 这个文件也是micaps 4类文件，为什么不能实现插值？老师能不能优化下，把这个格式的也能包 ...

请问你用王老师的这个程序处理细网格资料实现了没，我的一直出错。

小英子

MeteoInfo 发表于 2013-7-31 13:53

                               
登录/注册后可看大图

已更新了程序，详见一楼。

王老师，我用您的程序处理细网格资料时出错已经改了读文件头那个部分了
read(10,*) ctemp,ctemp,desc
write(*,'(A)') desc

read(10,*) iyear,imonth,iday,ihour,phour,level
write(*,*) iyear,imonth,iday,ihour,phour,level

read(10,*) xdelt,ydelt,xmin,xmax,ymin,ymax,xnum,ynum,ctemp&
,ctemp,ctemp,ctemp,ctemp
write(*,*) xdelt,ydelt,xmin,xmax,ymin,ymax,xnum,ynum