micaps站点降水资料处理格点大神看看有什么问题

carlye2002

Program sta2grd
Implicit none
!这里是程序的变量声明
Character*8 stid
Real lon,lat,var, rain
!变量声明结束
!程序开始
Open(1,file='d:\tu1\1606231000.txt',status='old')
read(1,*)
read(1,*)
read(1,*)
read(1,*)
read(1,*)
10 Read(1,*,end=100)stid,lon,lat,var,rain
Print*,stid,lon,lat,var,rain
pause
Goto 10
100 continue
Close(1)
!程序结束
End
上面是按照清风大大的教程写得Fortran程序，资料是micaps降水资料，格式开头如下：
diamond 3 2016年06月23日10时00分00秒一小时降水
2016 06 23 10 999
0
1.0 0.0 0
1 2443
57991 114.56 25.81 140.20 0.00
58900 114.95 25.85 123.70 0.00
51707 76.78 39.50 1204.70 0.00
58335 118.57 31.55 60.00 0.10
58429 117.85 30.98 11.00 0.00
56280 103.12 30.08 691.30 0.10
56187 103.86 30.75 547.70 0.70
56666 101.72 26.58 1224.80 0.00
54511 116.47 39.80 31.30 0.00
58424 116.97 30.62 62.00 0.00
但是执行以后，提示找不到数据

请问我该如何解决，谢谢

carlye2002

lqouc 发表于 2016-9-20 14:55
用你给的程序和数据测试了下，并没有出现错误（如下图）

请再确认下到底是不是有问题，你的报错截图信息 ...

谢谢版主，我找到问题所在了，是数据格式的问题，记事本打开以后复制到网页是对的，但是直接读取元数据就会出错，是不是数据格式有问题？

lqouc

用你给的程序和数据测试了下，并没有出现错误（如下图）

请再确认下到底是不是有问题，你的报错截图信息一般是读取的时候遇到了一些非数字的字符导致的，也请检查完整数据。

carlye2002

这个是数据文件，是格式问题吗？还是我用记事本打开的方式不对？

handsoman22

lqouc 发表于 2016-9-20 14:55
用你给的程序和数据测试了下，并没有出现错误（如下图）

请再确认下到底是不是有问题，你的报错截图信息 ...

点赞！！！这么细节的问题，还身体力行的指导别人，精神感人！

lqouc

carlye2002 发表于 2016-9-20 21:26
这个是数据文件，是格式问题吗？还是我用记事本打开的方式不对？

可能是格式问题吧，我这里也不行，不知道啥情况

carlye2002

lqouc 发表于 2016-9-21 10:29
可能是格式问题吧，我这里也不行，不知道啥情况

学习版主额耐心解答，我翻看了一些资料知道怎么回事了，是Linux和windows系统中的换行符不一样，Windows换行符包括回车符+换行符，即/r/n，而Linux下面是/n，我估计我的资料是linux下面的换行格式，我用UE另存一下就可以读取了，谢谢版主

染夏

你的数据是怎么得到的？只找到micaps每三小时的r1-p，不会处理