Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 程序调试求助！！！

程序调试求助！！！

查看数: 2247 | 评论数: 5 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

顺利就好

发布时间: 2023-9-21 17:39

正文摘要:

各位大佬，本人现在正在跑一个程序，但是无论如何都跑不出想要的结果。程序是用来算出不同区域的流量和温度的，现在的情况是程序能运行，但是结果跑不出来，都是0，也看不出是什么原因。如有大佬能够提供思路，感激 ...

fcode 发表于 2023-9-27 08:41:02

对PI的赋值，建议写成 PI = acos(-1.0) 这样不会出错，并且编译器足够聪明，会在编译时计算acos，运行时就已经是 3.1415926... 了（不会浪费运行时间）。

necrohan 发表于 2023-9-26 17:30:16

主程序里面
common/infiltration/OF1,OF2,OF3,W,H,PATM,To
solar.for里面
common/infiltration/Cd,density,OF1,OF2,OF3,W,H,PATM,To,Ta,Hn1,Hn2,
这2个是没对上吧。而且OF1，OF2，OF3始终为0。

PI=3.1316 这个赋值是对的吗

Fai_0, Fsg_h, SF 赋值可能有问题。

H在程序里作为循环变量，还在 common/infiltration/ 中引用，可能有问题

QFREEZER=810
if(QFREEZER.GT.77.5)QFREEZER=77.5 ! 我没办法理解

顺利就好 发表于 2023-9-22 00:02:35

Transpose 发表于 2023-9-21 20:53
noncover-num(4).f90 144行，time 没有初始化
另外：强烈建议不要再用powerstation了
而且程序里面有一些数 ...

谢谢您大佬，按照您的建议将它初始化了，但是在这之后结果还是出不来，可能是其他原因吧。之所以用这个编译器是因为代码是传下来的，只能在这个上面运行

Transpose 发表于 2023-9-21 20:53:45

本帖最后由 Transpose 于 2023-9-21 20:57 编辑

noncover-num(4).f90 144行，time 没有初始化
另外：强烈建议不要再用powerstation了
而且程序里面有一些数组越界，需要你自己判断代码结果可不可信

程序调试求助！！！

正文摘要:

回复