24小时热门版块排行榜    

查看: 444  |  回复: 0

aaa080501

新虫 (初入文坛)

[求助] 求fortran的一段代码,D2Q9方柱绕流如何加入方柱

!-------OBSTACLE AT THE INLET X=10, Y=10
      do i=50,60
        f(2,i,10)=f(4,i,10)
        f(5,i,10)=f(7,i,10)
        f(6,i,10)=f(8,i,10)
        end do
        do j=0,10
      f(3,50,j)=f(1,50,j)
        f(7,50,j)=f(5,50,j)
        f(6,50,j)=f(8,50,j)
        end do
        do j=0,10
      f(1,60,j)=f(3,60,j)
        f(5,60,j)=f(7,60,j)
        f(8,60,j)=f(6,60,j)
        end do
这是我在子程序流动中加入的方柱,但是运行之后,处理数据的时候云图中这方块不是空白,真心求教!
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 aaa080501 的主题更新
信息提示
请填处理意见