帮忙看一下这段程序哪里有错

寻路人

请哪位大神抽空帮忙检查一下这段程序哪里有问题？我的数据是湿度u和能见度v，都是时、日、月三维的。统计每月的霾日数。标准是只要一天24小时中只要有一时次的湿度在80以下且该时次能见度在10000米以下，就算一个霾日。我假设每个月有31天的，但数据文本里实际上每月不存在的那几天我是用0填进去的。
do i=1, 12
   t(i)=0
   do j=1,31
     do k=1,24
         if(u(i,j,k)==0.or.v(i,j,k)==0) cycle
         if(u(i,j,k)<80.and.v(i,j,k)<10000)then
              t(i)=t(i)+1
              exit
         end if       
     end do
  end do
end do

zyn4624

你运行时出现了什么问题？ = =

光头

if(u(i,j,k)==0.or.v(i,j,k)==0) cycle
if(u(i,j,k)<80.and.v(i,j,k)<10000)then
  t(i)=t(i)+1
  exit
end if
改为
IF ((u(i,j,k) .LT. 80) .and. (v(i,j,k) .LT. 10000) .AND. (u(i,jk)*v(i,j,k) .NE. 0)) THEN
   t(i)=t(i)+1
   EXIT
ELSE
ENDIF
这样你试一下

光头

你的变量的类型要搞清楚；逻辑关系式两边数据类型要一致。

寻路人

光头 发表于 2013-12-17 13:36

                               
登录/注册后可看大图

if(u(i,j,k)==0.or.v(i,j,k)==0) cycle
if(u(i,j,k)

[img][/img]还是有问题

寻路人

光头 发表于 2013-12-17 13:36

                               
登录/注册后可看大图

if(u(i,j,k)==0.or.v(i,j,k)==0) cycle
if(u(i,j,k)

寻路人

zyn4624 发表于 2013-12-17 12:19

                               
登录/注册后可看大图

你运行时出现了什么问题？ = =

zyn4624

说一下我的看法：

1、t ( i ) 是要计算每个月对应的雾霾日，程序中的exit是要做什么？当计算到第一个雾霾日的时候岂不是跳出整个循环了？那之后的雾霾日还怎么累加？
2、那个错误我也不懂是什么意思。我自己写了个模仿你的程序的简单例子。结果很好，没有问题！
楼主再弄弄，希望进一步交流，弄好了跟我说下哈

寻路人

zyn4624 发表于 2013-12-18 00:44

                               
登录/注册后可看大图

说一下我的看法：

1、t ( i ) 是要计算每个月对应的雾霾日，程序中的exit是要做什么？当计算到第一个雾霾 ...

您好。我的数据是月日时三维的，因为可能一天中会有好几个时次满足能见度小于10000米且湿度小于80，所以我想用exit在已有一个时次满足条件时跳出最里层的循环，也就是跳出那个一天内的循环，执行下一天的循环。不知我的想法和做法对否？请指教

zyn4624

寻路人 发表于 2013-12-18 19:50

                               
登录/注册后可看大图

您好。我的数据是月日时三维的，因为可能一天中会有好几个时次满足能见度小于10000米且湿度小于80，所以我 ...

哦，这样啊，那就对了！