CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > Software User Forums > Siemens

poly-disperse lagrangian injection!

Register Blogs Community New Posts Updated Threads Search

Like Tree1Likes
  • 1 Post By ping

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
Old   April 16, 2008, 05:25
Default poly-disperse lagrangian injection!
  #1
lelia
Guest
 
Posts: n/a
hy! is there any solution to identify the particles diameter for the ones that had disappeared from the domain, for the case of a poly-disperse Lagrangian injection?! thankx in advance! regards, lelia
  Reply With Quote

Old   April 17, 2008, 01:25
Default Re: poly-disperse lagrangian injection!
  #2
ping
Guest
 
Posts: n/a
For STAR-CCM+ use the incident mass field function and divide by particle mass.

For STAR-CD there is a small Fortran program which used to be on the adapco online web site that reads the .trk file and then you can do any type of analysis:

C----------------------------------------------------------------------C

Program PTread C----------------------------------------------------------------------C C C Read STAR Trackfile, and write new trackfiles with only specific C Tracks for post processing visualization. C C Note: Only works on Big-Endian Platforms (i.e. IBM RS6000, NOT Linux) C C----------------------------------------------------------------------C C

CHARACTER FID*4,IDENT*4,BTYPE*4,FTYPE*8,ANS*4,FILE33*80

LOGICAL ITRACK,LSUMM,LPRIN

INTEGER ZERO(11) C C----------------------------------------------------------------------C C C --- Open Files and write out header information

OPEN(UNIT=33,FILE='vat-1.trk',STATUS='OLD',

& FORM='UNFORMATTED') C C --- Read in and write out Header

READ(33) FID,JVERS,IDENT,ZERO

WRITE(*,*) FID,JVERS,IDENT,ZERO C----------------------------------------------------------------------C C

ii=1 C --- Read in track 5 READ(33,ERR=5,END=800)IPART,X,Y,Z,U,V,W,ITRACK,TIM E,ICEL,

& TEMP,DIAM,DMASS,COUNT

print *,ii,TIME

if(TIME.gt.2.79)then

print *,'Inside the time range'

write(*,*)

WRITE(36,*)IPART,TIME,X,Y,Z,ICEL

WRITE(37,*)IPART,TIME,TEMP,DIAM,DMASS,COUNT,COUNT

endif C----------------------------------------------------------------------C C

GO TO 5 800 CONTINUE

CLOSE(33)

CLOSE(36)

CLOSE(37) C C----------------------------------------------------------------------C C 111 stop

END
skylent likes this.
  Reply With Quote

Old   May 2, 2008, 04:48
Default Re: poly-disperse lagrangian injection!
  #3
matej
Guest
 
Posts: n/a
Dear Ping,

I tried to use the ccm+ and incident mass field function, but apparently I am getting 20 times more mass coming out then injected (tested on a single straight canal). have you encounter such a problem? I cannot get a balance of what I inject and what the ccm count at the outlet.

any hint welcome.

matej
  Reply With Quote

Reply


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
poly mesh for underhood. ravi Siemens 0 April 8, 2008 00:25
Validation for laminar Disperse phase flow shashwat Main CFD Forum 0 April 4, 2008 02:20
poly, hex dom, hex, tet azmir Siemens 0 October 31, 2007 19:24
UDF Format 8th Order Poly Fit Jason FLUENT 0 June 8, 2007 12:36
disperse solid particle Sattvika CFX 0 May 14, 2001 17:18


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