CFD Online Logo CFD Online URL
Home > Forums > FLUENT

I need help about User-Defined Fan Model

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

LinkBack Thread Tools Display Modes
Old   December 8, 2009, 01:50
Default I need help about User-Defined Fan Model
New Member
gy liang
Join Date: May 2009
Posts: 2
Rep Power: 0
gyliang is on a distinguished road
Sponsored Links
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 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 ( 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
Sponsored Links


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
User Defined Turbulence Model Iaroslav FLUENT 1 July 19, 2017 12:22
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 01:55
Gradient of a User defined Variable Ramadas CFX 2 August 21, 2007 09:19
Model Axial Fan Chien-Chi Chao Siemens 1 February 1, 2001 23:13

Sponsored Links

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