CFD Online Logo CFD Online URL
Home > Forums > Siemens

Const. momentum surce

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

LinkBack Thread Tools Display Modes
Old   July 12, 2001, 04:58
Default Const. momentum surce
Posts: n/a
I want to add an additional source of momentum. This source is a function of the position only (S=S(x,y,z)). I have S tabulated in a large ASCII table containing x,y,z,Sx,Sy,Sz. The way I wanted to use the table was by use of the user subroutine, sormom.f. This subroutine will then have to load the table-file and find the right values for Sx(x,y,z), Sy(x,y,z) and Sz(x,y,z). This does work but is very time consuming caused by the size of the file that has to be loaded for every single point in the domain during every iteration.

Question: Is it possible to load this table just once and then save it in the memory as it does not very with any values solved for?

Regards TUU
  Reply With Quote

Old   July 12, 2001, 07:55
Default Re: Const. momentum surce
Philip Jones
Posts: n/a

it is just standard Fortran, declare the variables you are using within a COMMON block or declare them with the SAVE function: this means that the next time you visit the routine they will still be there. You now need an extra flag that you set once you have visited and initialise to zero before you go there. The general structure will look like this:

COMMON /mycom/ thex,they,thez,thesx,thesy,thesz,ivisit
DATA ivisit/0/
if(ivisit.eq.0) then
read in data
calculate sormom values
  Reply With Quote


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
"Unsteady surce term" ftsr FLUENT 0 October 28, 2005 22:21
Surce Terms fluent bad results Mihai FLUENT 2 May 11, 2005 07:36
Momentum Jackie FLUENT 5 February 24, 2005 05:34
regarding momentum Deadly FLUENT 0 August 15, 2002 02:40

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