爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 6117|回复: 19

[求助] 用fortran计算闪电密度

[复制链接]

新浪微博达人勋

发表于 2014-3-13 21:22:14 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
本帖最后由 黄小仙儿 于 2014-4-2 17:54 编辑

这个是人家给我的统计闪电密度的程序,在第二十五行出错了。实在是看不出来,请哪位大神指点指点
这个是错误错误        
1         error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: BLOCK BLOCKDATA PROGRAM MODULE TYPE BYTE CHARACTER CLASS DOUBLE DOUBLECOMPLEX ...        D:\Fortran\Console5\Console5\Source1.f90        25        
错误        2        Compilation Aborted (code 1)        D:\Fortran\Console5\Console5\Source1.f90        1        
还有我的原始数据




QQ图片20140313211844.jpg

aa.txt

746.25 KB, 下载次数: 50, 下载积分: 金钱 -5

原始数据

Source1.f90

951 Bytes, 下载次数: 40, 下载积分: 金钱 -5

统计闪电密度程序

密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-3-14 05:50:11 来自手机 | 显示全部楼层
感觉问题可能出在do while语句中,在read语句中添加错误控制语句试试!
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-3-14 08:39:27 | 显示全部楼层
好像你IF里面的条件语句写的有问题,
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 成长值: 0
发表于 2014-3-14 09:45:29 | 显示全部楼层
26行的then放到if那一行的末尾
程序很简单,就是统计单位区域块内的闪电数目···
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2014-3-14 10:31:01 | 显示全部楼层

刚刚按照您的方法改了,调试成功了。谢谢。但是能不能问一下这是什么原因呢?
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 成长值: 0
发表于 2014-3-14 15:20:16 | 显示全部楼层
黄小仙儿 发表于 2014-3-14 10:31
刚刚按照您的方法改了,调试成功了。谢谢。但是能不能问一下这是什么原因呢?

这是语法的问题了,没有原因
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2014-3-14 15:26:10 | 显示全部楼层
言深深 发表于 2014-3-14 15:20
这是语法的问题了,没有原因

好的,谢谢。还在慢慢学习中。。。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-4-2 17:09:23 | 显示全部楼层
求程序   兄弟给我也发一份行么  谢啦~~
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2014-4-2 17:54:39 | 显示全部楼层
Wae 发表于 2014-4-2 17:09
求程序   兄弟给我也发一份行么  谢啦~~

刚传到附件,自己下载吧
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2014-4-2 18:17:14 | 显示全部楼层
黄小仙儿 发表于 2014-4-2 17:54
刚传到附件,自己下载吧

谢啦    另外这个统计闪电密度的也能计算闪电次数吗   
我要统计中国地区的闪电分布,时空、季度特征啥的
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表