CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > Visualization & Post-Processing Software > Tecplot

cell centered form in TECPLOT

Register Blogs Community New Posts Updated Threads Search

 
 
LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
Old   August 21, 2008, 01:16
Default cell centered form in TECPLOT
  #1
jack
Guest
 
Posts: n/a
i want to show variables in the center of mesh,but the result showed by TECPLOT is on node,why? the code is below:

write(33,*) 'TITLE = "3D"'

write(33,*) 'VARIABLES = "X" "Y" "Z" "Rho" "U" "V" "W"'

write(33,*) 'DATAPACKING=BLOCK, ZONETYPE=FEBRICK,N=',numnp,',','E=',nelem,',','VAR LOCATION=([4-7]=CELLCENTERED)'

! WRITE(33,*) 'DT=(DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE)'

!----------------------BLOCK TYPE---------------------------------

DO I=1,NUMNP

WRITE(33,*) CX(1,I)

END DO

DO I=1,NUMNP

WRITE(33,*) CX(2,I)

END DO

DO I=1,NUMNP

WRITE(33,*) CX(3,I)

END DO

DO I=1,NELEM

WRITE(33,*) uh(1,I,0.D0,0.D0,0.D0)

END DO

write(33,'(///)')

DO I=1,NELEM

WRITE(33,*) uh(2,I,0.D0,0.D0,0.D0)/uh(1,I,0.D0,0.D0,0.D0)

END DO

write(33,'(//)')

DO I=1,NELEM

WRITE(33,*) uh(3,I,0.D0,0.D0,0.D0)/uh(1,I,0.D0,0.D0,0.D0)

END DO

write(33,'(//)')

DO I=1,NELEM

WRITE(33,*) uh(4,I,0.D0,0.D0,0.D0)/uh(1,I,0.D0,0.D0,0.D0)

END DO

!-----------------------------------------------------------------

write(33,'(/)')

do i=1,nelem

write(33,'(<ncount(i)>i10)') nname(i,1),nname(i,3),nname(i,7),nname(i,5),nname( i,2),nname(i,4),nname(i,8),nname(i,6)

end do

close(33)
  Reply With Quote

 


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
FvMatrix coefficients shrina OpenFOAM Running, Solving & CFD 10 October 3, 2013 14:38
gradient calculation of cell centered finite volume method zhengjg Main CFD Forum 10 November 11, 2012 23:13
Cells with t below lower limit Purushothama Siemens 2 May 31, 2010 21:58
[Commercial meshers] Trimmed cell and embedded refinement mesh conversion issues michele OpenFOAM Meshing & Mesh Conversion 2 July 15, 2005 04:15
Warning 097- AB Siemens 6 November 15, 2004 04:41


All times are GMT -4. The time now is 10:10.