24小时热门版块排行榜

返回列表

feime

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 817.4
红花: 6
帖子: 62
在线: 13.6小时
虫号: 2687226
注册: 2013-09-28
性别: GG
专业: 流体力学

[求助] 求助二维fortran程序的输出问题

fortran菜鸟一枚，求大家帮助……

程序是拉氏坐标下求解二维问题，初始时刻是二维矩形形网格，随着时间推进网格坐标会变化。
所以定义了坐标的二维数组 x ( i , j )，y ( i , j )，i 和 j 的范围分别是 im，jm
然后每次循环的时候都是做
do i=1, im
   do j=1, jm
   ……
   end do
end do

所以想问：
1、结果输出时，直接在这个循环中加入 write (10 , *) 语句就可以么？
2、如果想输出当 j 为某一个特定值的时候，按照如下进行输出可以吗？
   运行的结果不对啊，在 j 取50的时候，输出的结果中，第50行的数据为NaN。
do i=1,im
      do j=1,jm
            tao_in(i,j)=tao_in(i,j)+(……)
            u_in(i,j)=u_in(i,j)-(……)
            v_in(i,j)=v_in(i,j)-(……)
            Ene_in(i,j)=Ene_in(i,j)-(……)
            if (j==50) then
                     write(10,*)  x_in(i,j),p_in(i,j),u_in(i,j),v_in(i,j),den_in(i,j),tao_in(i,j),lamta_in(i,j)
            end if
      end do
end do
3、如果我想输出二维网格，就是画出某一个时间步的网格，该怎么输出？我用下面的试了，用tecplot画出来的明显不是正常的二维网格啊。
do i=1,im
      do j=1,jm
……
               write(20,*)  i，j , x(i ,j) , y(i,j)
      end do
end do

真心求教，希望有大神指导

回复此楼

» 猜你喜欢

好好学习，天天向上。做自己

1楼2016-03-05 17:50:36

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

feime

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 817.4
红花: 6
帖子: 62
在线: 13.6小时
虫号: 2687226
注册: 2013-09-28
性别: GG
专业: 流体力学

另外想问一下，之前安装的VS2012，编辑代码的时候，鼠标移到 do 旁边的时候，相对应 end do 会和 do 都有灰色底纹显示，类似的还有括号等，就是点击对应的关键字符都会有灰色低温显示的。
现在在另外一台电脑上安装的是VS2013旗舰版和IVF2013，怎么没有这种功能了？？？怎么设置？？？

赞一下

回复此楼

好好学习，天天向上。做自己

2楼2016-03-05 18:33:19

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 feime 的主题更新

返回列表