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

USRWRK...some HELP...

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

Reply
 
LinkBack Thread Tools Display Modes
Old   June 13, 2005, 12:43
Default USRWRK...some HELP...
  #1
RK
Guest
 
Posts: n/a
Hi,

Just to clarify some info on USRWRK facility in CFX 4.4.

(1) I have setup user workspace in USRWRK

(2) In USRINT, I dump the variable of interest (in this case enthalpy) in this workspace. (as shown in USRINT)

(3) If I want to write to a file using USRTRN that has been dumped in the work space within USRINT, is the syntac correct as shown below?

The way as it is written now, the WORK(IUSRGR+INODE-1) does contain the H variable, but when I try to write it out in USRTRN Zero values are dumped...so something is wrong...

I hope someone can help...

Robin

*********************** SUBROUTINE USRWRK...

CALL SETPER('USRWRK','WORK ','USRGR ',NNODE,IUSRGR)

****************** SUBROUTINE USRINT

CALL GETADD('USRINT','PERMR ','USRGR ',ILEVEL,IUSRGR)

DO 101 I=1,NPT

INODE=IPT(I)

C SET H VAR into the workspace

WORK(IUSRGR+INODE-1)=H(INODE,IPHASE)

101 CONTINUE

************** SUBROUTINE USRTRN

CALL GETADD('USRINT','PERMR ','USRGR ',ILEVEL,IUSRGR) DO 101 I=1,NPT

INODE=IPT(I)

G0=WORK(IUSRGR+INODE-1)

WRITE(*,*) G0

101 CONTINUE **************

  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



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