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

I need help about User-Defined Fan Model

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

Reply
 
LinkBack Thread Tools Display Modes
Old   December 8, 2009, 01:50
Default I need help about User-Defined Fan Model
  #1
New Member
 
gy liang
Join Date: May 2009
Posts: 2
Rep Power: 0
gyliang is on a distinguished road
In FLUENT 6.3 User's Guide7. Boundary Conditions7.24 User-Defined Fan Modelthere is an Example of a User-Defined Fan.
It said that: the executable file will be built from the Fortran program, fantest.f, which is shown below. You can obtain a copy of this subroutine and the two that it calls (to read and write profile files) by contacting your Fluent technical support engineer.

fantest.f is show bellow:
cc This program is invoked at intervals by FLUENT toc read a profile-format file that contains radiallyc averaged data at a fan face, compute new pressure-jumpc and swirl-velocity components, and write a new profilec file that will subsequently be read by FLUENT toc update the fan conditions.cc Usage: fantest < input_profile > output_profilec integer npmax parameter (npmax = 900) integer inp ! input: number of profile points integer iptype ! input: profile type (0=radial, 1=point) real ir(npmax) ! input: radial positions real ip(npmax) ! input: pressure real idp(npmax) ! input: pressure-jump real iva(npmax) ! input: axial velocity real ivr(npmax) ! input: radial velocity real ivt(npmax) ! input: tangential velocity character*80 zoneid integer rfanprof ! function to read a profile file integer statusc status = rfanprof(npmax,zoneid,iptype, $ inp,ir,ip,idp,iva,ivr,ivt) if (status.ne.0) then write(*,*) 'error reading input profile file' else do 10 i = 1, inp idp(i) = 200.0 - 10.0*iva(i) ivt(i) = 20.0*ir(i) ivr(i) = 0.0 10 continue call wfanprof(6,zoneid,iptype,inp,ir,idp,ivr,ivt) endif stop end Now I am at a loss about
status = rfanprof(npmax,zoneid,iptype, $ inp,ir,ip,idp,iva,ivr,ivt)and wfanprof(6,zoneid,iptype,inp,ir,idp,ivr,ivt)Are they subroutines that need link to fluent or I should write them myself ? Or is there anyone have done similary work and kind to give me some suggestions?

Thanks in advance.

gyliang 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
Paraview User defined view prapanj ParaView 3 January 3, 2014 21:54
how to write user fortran for turbulence model waynezw0618 CFX 2 July 10, 2009 02:55
User Defined Turbulence Model Iaroslav FLUENT 0 May 26, 2009 13:13
Gradient of a User defined Variable Ramadas CFX 2 August 21, 2007 10:19
Model Axial Fan Chien-Chi Chao CD-adapco 1 February 1, 2001 23:13


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