找回密码
 注册
查看: 5030|回复: 17

如何将gridgen生成的网格输出

[复制链接]
发表于 2002-6-27 13:26:57 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
请教:
如何将gridgen生成的网格输出为tecplot或者fortran认知的那种格式?
发表于 2002-6-29 10:30:42 | 显示全部楼层

如何将gridgen生成的网格输出

采用gridgen或plot3d格式输出,再用程序转化即可
发表于 2002-6-30 06:57:11 | 显示全部楼层

如何将gridgen生成的网格输出

tecplot 格式可以认识plot3d格式,读入数据的时候不要选用Load Data File(s), 而选用 Import ,在从里面选择 Plot3d Loader 就可以读入了。
 楼主| 发表于 2002-6-30 16:33:21 | 显示全部楼层

如何将gridgen生成的网格输出

thanks
昨天我编了一个将gridgen格式的转化为fortran格式的程序,效果蛮不错的,呵呵
 楼主| 发表于 2002-7-1 10:33:46 | 显示全部楼层

如何将gridgen生成的网格输出

西工大的学长,我输出的格式是plot3D,为什么有block的网格还是不能在tecplot里面打开?而没有block的二维网格却可以采用gridgen格式输出,然后在tecplot中打开?
发表于 2002-7-5 02:15:12 | 显示全部楼层

如何将gridgen生成的网格输出

there are several options in tecplot, I guess you could have a try or read the help file, actually I am not familar with that kind of format , you know, I just like to write the standard format for tecplot.
but one of my friend liked to use plot3d format.
 楼主| 发表于 2002-7-9 09:33:19 | 显示全部楼层

如何将gridgen生成的网格输出

ok,i get it
发表于 2003-5-5 17:23:28 | 显示全部楼层

如何将gridgen生成的网格输出

pilotlvhy 请您指教如何编程将gridgen格式的转化为fortran格式的程序?
谢谢!
发表于 2003-5-6 23:47:08 | 显示全部楼层

如何将gridgen生成的网格输出

谢谢!pilotlvhy
转化为fortran格式的程序能不能提供给我们学习呀。
发表于 2003-5-7 10:13:46 | 显示全部楼层

如何将gridgen生成的网格输出

hao a
 楼主| 发表于 2003-5-22 16:27:18 | 显示全部楼层

如何将gridgen生成的网格输出

好的
发表于 2003-5-23 08:28:49 | 显示全部楼层

如何将gridgen生成的网格输出

3x
 楼主| 发表于 2003-5-27 14:19:58 | 显示全部楼层

如何将gridgen生成的网格输出

real,allocatable::x(:,:,,y(:,:,,z(:,:,
real,allocatable::x1(:),y1(:),z1(:)
write(*,*) 'grid file name'
read(*,*) gridfile
ind=index(gridfile,' ')
open(1,file=gridfile(:ind-1),STATUS='UNKNOWN')
read(1,*)  n_block
      read(1,*) io,jo,ko
close(1)  
nijk=io*jo*ko
m=int(nijk/4)
mmod=nijk-4*m
allocate(x(io,jo,ko),y(io,jo,ko),z(io,jo,ko))
allocate(x1(nijk),y1(nijk),z1(nijk))
open(1,file=gridfile(:ind-1),STATUS='UNKNOWN')
read(1,*) n_block
      read(1,*) io,jo,ko
do 111 i=0,m-1
111read(1,*) x1(4*i+1),x1(4*i+2),x1(4*i+3),x1(4*i+4)
if(mmod.ne.0) then
do i=4*m+1,nijk
read(1,*) x1(i)
enddo
endif
do 112 i=0,m-1
112read(1,*) y1(4*i+1),y1(4*i+2),y1(4*i+3),y1(4*i+4)
if(mmod.ne.0) then
do i=4*m+1,nijk
read(1,*) y1(i)   
enddo
endif
do 113 i=0,m-1
113read(1,*) z1(4*i+1),z1(4*i+2),z1(4*i+3),z1(4*i+4)
if(mmod.ne.0) then
do i=4*m+1,nijk
read(1,*) z1(i)   
enddo
endif
close(1)
mm=0
do 11 k=ko,1,-1
do 11 j=jo,1,-1
do 11 i=io,1,-1
mm=1+mm
x(i,j,k)=x1(mm)
y(i,j,k)=y1(mm)
z(i,j,k)=z1(mm)
11continue
OPEN(12,FILE=gridfile(:ind-5)//'_ijk.plt',STATUS='UNKNOWN')
      write(12,*)'zone i=',io,' j=',jo,' k=',ko,' f=point'
do 114 k=1,ko
do 114 j=1,jo
do 114 i=1,io
write(12,*) x(i,j,k),y(i,j,k),z(i,j,k)
114continue
      CLOSE(12)
end
 楼主| 发表于 2003-5-27 14:23:17 | 显示全部楼层

如何将gridgen生成的网格输出

批评指正,其实也是没必要的,直接用gridgen输出就行了
发表于 2003-6-4 11:54:40 | 显示全部楼层

如何将gridgen生成的网格输出

提供给大家一块学习学习把
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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