Fortran Coder

查看: 62|回复: 0

[求助] 一维黎曼问题,自己算的比较网上标准代码,不符,求助

[复制链接]

17

帖子

5

主题

0

精华

入门

F 币
98 元
贡献
61 点
发表于 2020-6-12 22:29:36 | 显示全部楼层 |阅读模式
1F 币
微信截图_20200612221729.png 这里分别有我的代码结果和网上的标准代码结果,我就是按照网上的代码略微修改,基本没改。但是算出来的结果,尤其是压力图,多了一个台阶,希望大神帮助,我都比较了一天,也没找到问题所在。

我的代码:
!     MAIN (Explicit method)(我的代码)
!     MacCormack_1D_Rimenn problem
!===============================================================

      PROGRAM MacCormack_1D_Rimenn
      IMPLICIT NONE
      INTEGER, PARAMETER :: NMAX = 1001
      REAL(KIND=8), DIMENSION(NMAX) :: X

回复

使用道具 举报

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

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-7-8 19:30

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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