CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > FLOW-3D

Cusomisation inertia

Register Blogs Members List Search Today's Posts Mark Forums Read

Reply
 
LinkBack Thread Tools Display Modes
Old   March 15, 2010, 10:21
Default Cusomisation inertia
  #1
Luc
New Member
 
H
Join Date: Mar 2010
Posts: 6
Rep Power: 6
Luc is on a distinguished road
Hi!

I need to develop a customisation function in Flow 3D with fortran?
I need to compute fluid inertia for each time step and to have the evolution as function of time ? who can send me an exemple of customisation (.f file) or a title of a book where i can find exemple ?

Thanks a lot
Luc is offline   Reply With Quote

Old   March 17, 2010, 02:38
Default
  #2
Senior Member
 
Join Date: Mar 2009
Posts: 129
Rep Power: 7
ck5285 is on a distinguished road
Hi Luc
I also find difficulty to get any tutorial/example/reference that show user on how to conduct the customization with Flow-3D. Hope others users/expert that have the information can share with us. thanks in advance.
ck5285 is offline   Reply With Quote

Old   March 17, 2010, 08:45
Default any answer ?
  #3
Luc
New Member
 
H
Join Date: Mar 2010
Posts: 6
Rep Power: 6
Luc is on a distinguished road
Hi,

For the moment no answer I continue to work on customisation but for the moment it isn't working.....!
Who can help us ?

Luc
Luc is offline   Reply With Quote

Old   March 22, 2010, 23:27
Default
  #4
Senior Member
 
michael barkhudarov
Join Date: Mar 2009
Posts: 331
Rep Power: 8
MuxaB is on a distinguished road
Quote:
Originally Posted by Luc View Post
Hi!

I need to develop a customisation function in Flow 3D with fortran?
I need to compute fluid inertia for each time step and to have the evolution as function of time ? who can send me an exemple of customisation (.f file) or a title of a book where i can find exemple ?

Thanks a lot
Hi Luc,

By inertia do you mean fluid mass or momentum? Here is a sample code to do x-direction momentum. You can put this code in the user-customizable routine QSADD:

c initialize before summing up
if (nbl.eq.1) fluid_mom_x=zero
do nn=ijklim2(nbl,1),ijklim2(nbl,2)
ijk=ijk2m1(nn)
if(vf(ijk).lt.em6 .or. icstat(ijk).le.0) cycle ! skip blocked and boundary cells
i=i_str(ijk)
j=j_str(ijk)
k=k_str(ijk)
cell_vol=vf(ijk)*delx(i)*dely(j)*delz(k)/rri(i) ! open cell volume
include '../mijk.f' ! compute neighbor indices
u_centered=(afr(imjk)*u(imjk)+afr(ijk)*u(ijk))/(afr(imjk)+afr(ijk)+em6) ! average velocity to cell center
cell_mom_x=rho(ijk)*u_centered*cell_vol ! cell momentum
if(nmat.eq.1) cell_mom_x=f(ijk)*cell_mom_x ! times fluid fraction for one-fluid problems
fluid_mom_x=fluid_mom_x+cell_mom_x! summation
enddo
c print the result
if(nbl.eq.nblcks) print*,'time=',t,'fluid x-momentum=',fluid_mom_x
MuxaB is offline   Reply With Quote

Old   March 23, 2010, 04:37
Default thanks
  #5
Luc
New Member
 
H
Join Date: Mar 2010
Posts: 6
Rep Power: 6
Luc is on a distinguished road
Hello,

Thanks a lot I will try

Luc is offline   Reply With Quote

Reply

Thread Tools
Display Modes

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 On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Pna moments of inertia emanuele Main CFD Forum 0 September 23, 2009 15:52
Modelling fluid inertia abdulnasr FLUENT 0 July 1, 2009 11:57
Negligible Inertia and Convective Heat Transfer Miky1020 CFX 2 June 9, 2009 21:16
Inertia Coeff. Sham FLUENT 0 May 2, 2005 00:57
Inertia coefficient. Ard FLUENT 0 February 20, 2005 22:48


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