Fortran Coder

查看: 1661|回复: 5

[求助] 程序调试求助!!!

[复制链接]

28

帖子

12

主题

0

精华

入门

F 币
82 元
贡献
68 点
发表于 2023-9-21 17:39:10 | 显示全部楼层 |阅读模式
5F 币

各位大佬,本人现在正在跑一个程序,但是无论如何都跑不出想要的结果。程序是用来算出不同区域的流量和温度的,现在的情况是程序能运行,但是结果跑不出来,都是0,也看不出是什么原因。如有大佬能够提供思路,感激不尽!(我用的编译器是power station4,程序压缩包在附件)

望大佬们解惑!!!!!!

third (3).zip

468.03 KB, 下载次数: 3

28

帖子

12

主题

0

精华

入门

F 币
82 元
贡献
68 点
 楼主| 发表于 2023-9-21 20:49:30 | 显示全部楼层
a065f0f355dd8064926953a36064783.png
这是程序的主程序和子程序的截图,谢谢大佬们
回复

使用道具 举报

160

帖子

2

主题

1

精华

大师

Vim

F 币
965 元
贡献
470 点

规矩勋章

发表于 2023-9-21 20:53:45 | 显示全部楼层
本帖最后由 Transpose 于 2023-9-21 20:57 编辑

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

回复

使用道具 举报

28

帖子

12

主题

0

精华

入门

F 币
82 元
贡献
68 点
 楼主| 发表于 2023-9-22 00:02:35 | 显示全部楼层
Transpose 发表于 2023-9-21 20:53
noncover-num(4).f90 144行,time 没有初始化
另外:强烈建议不要再用powerstation了
而且程序里面有一些数 ...

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

使用道具 举报

250

帖子

2

主题

0

精华

宗师

F 币
1731 元
贡献
872 点

规矩勋章

发表于 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 ! 我没办法理解
回复

使用道具 举报

1980

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1418 元
贡献
607 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2023-9-27 08:41:02 | 显示全部楼层
对PI的赋值,建议写成 PI = acos(-1.0)  这样不会出错,并且编译器足够聪明,会在编译时计算acos,运行时就已经是 3.1415926... 了(不会浪费运行时间)。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-6-24 04:46

Powered by Tencent X3.4

© 2013-2024 Tencent

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