24小时热门版块排行榜    

查看: 588  |  回复: 1

feime

金虫 (小有名气)

[求助] 求助二维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


真心求教,希望有大神指导
回复此楼
好好学习,天天向上。做自己
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

feime

金虫 (小有名气)

另外想问一下,之前安装的VS2012,编辑代码的时候,鼠标移到 do 旁边的时候,相对应 end do 会和 do 都有灰色底纹显示,类似的还有括号等,就是点击对应的关键字符都会有灰色低温显示的。
现在在另外一台电脑上安装的是VS2013旗舰版和IVF2013,怎么没有这种功能了???怎么设置???
好好学习,天天向上。做自己
2楼2016-03-05 18:33:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 feime 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +11 Lanmanbaby 2026-08-09 19/950 2026-08-10 11:28 by zhangzhanzz
[基金申请] 这样的filecode谁见过 +11 布布和一二 2026-08-08 22/1100 2026-08-10 11:10 by wmfsnow
[基金申请] 据悉今年马上要出结果了 +5 瞬息宇宙 2026-08-10 6/300 2026-08-10 10:38 by Tide man
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +7 yufeiwaner 2026-08-09 7/350 2026-08-10 09:08 by zju2000
[基金申请] 关于代码变化问题,想知道的进来 +15 且听虎啸 2026-08-07 22/1100 2026-08-09 22:13 by 布布和一二
[基金申请] filecode与中标关系的预测 +5 布布和一二 2026-08-07 5/250 2026-08-09 16:15 by 袁向阳007
[基金申请] fileCode有新解读? +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
[基金申请] 关于filecode,很负责任的告诉大家 +6 爱看书的可乐 2026-08-08 7/350 2026-08-08 22:13 by a_niu
[考博] 【2027博士申请】纳米药物递送方向 20+3 13586093586 2026-08-03 5/250 2026-08-08 21:54 by 13586093586
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 娱乐 +6 Tide man 2026-08-03 6/300 2026-08-07 22:40 by 铁帽子农民
[基金申请] 化学口download_prp&fileCode的固定段好像这几天一直没变,有变的大神么? +3 Tide man 2026-08-07 4/200 2026-08-07 22:39 by Tide man
[基金申请] 固定端突然变了,今天 +6 archvillain 2026-08-06 10/500 2026-08-07 16:03 by 医学老男孩
[基金申请] 听说今天filecode变了 +24 布布和一二 2026-08-06 47/2350 2026-08-07 16:02 by zhiyanjiang
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
[基金申请] 影响面上的因素 +8 布布和一二 2026-08-05 11/550 2026-08-06 10:41 by 宝贝虫子
[基金申请] 8月时间戳变的,举个手。玩一下,释放压力 +9 archvillain 2026-08-04 11/550 2026-08-05 20:06 by wlwhappy
[基金申请] 好消息?这个有何含义??? +8 Tide man 2026-08-05 10/500 2026-08-05 16:14 by xmuxiaoyu
[基金申请] 有没有H口的?有收到消息的吗? +3 超级海虾 2026-08-04 3/150 2026-08-04 17:26 by 学教育滴
[基金申请] 什么时候能放榜呀? +3 Jacob678 2026-08-03 3/150 2026-08-03 16:14 by gltch
信息提示
请填处理意见