fortran版diamond4转grads的源程序

cqcswky

开一个micaps转grads的专题

zysdg

很实用的程序啊，清风大牛！

heywjiulh

向前辈致敬

Aren

谢谢分享啊啊啊啊啊啊

牙买加

太好了，可以模仿这个来读欧洲2米温度

牙买加

请问下，我借用了一小段楼主的程序读取一个micaps4格式的数据…我做的事情很简单，就是把数据按着格式读出来再取出1一个显示出来，为什么总是显示记录太长这样的字样……有没有好心人帮忙看看
program main
real head(19)
real,allocatable::gdata(:,:)
real a
integer x,y,i,j
character filepath*100,desc(3)*50
print*,"请输入文件路径名："
read(*,'(a)') filepath
open(1,file=''//trim(filepath)//'.txt',status='old')
read(1,*)desc
read(1,*)head
x=int(head(13)+0.0001)
y=int(head(14)+0.0001)
allocate(gdata(y,x))
read(1,*) ((gdata(j,i),i=1,x),j=1,y)
print*,gdata(1,1)
deallocate(gdata)
close(1)
end
diamond 4 2012年10月26日20时2米气温分析 2012 10 26 20 0 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 0.568        0.724        1.037        1.115        1.162        1.303        1.224        0.928        0.584        0.240        -0.010        -0.026        0.099        0.178        -0.026        -0.369        -0.729        -0.963        -0.932        -1.151        -1.072        -1.026        -1.057        -1.057        -0.885        -0.635        -0.401        -0.166        -0.026        0.053        0.006        -0.182        -0.182        -0.229        -0.166        -0.244        -0.338        -0.541        -0.760        -0.979        -0.916        -0.697        -0.572        -0.447        -0.432        -0.557        -0.838        -0.947        -1.213        -1.932        -2.135        -2.494        -2.463        -2.791        -2.854        -3.057        -4.026        -3.713        -2.432        -2.744        -3.604        -4.276        -3.994        -3.760        -3.010        -3.151……

朤昍(Langxuan)

好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好好

三江魂

这个有用，支持

njzqxt

谢谢版主了，这个对于在基层工作的同事们，无异于雪中送炭啊。

blnuist

真好啊。。。佩服。。。