GETADD...some Help Pls

Robin K

HI All,

Previously I have carried out the following operation, setting up workspace in USRWRK, Dumping COND(INODE,1,1) into this workspace and then obtaining this workspace with COND values in USRTRN:

USRCND:

CALL GETADD('USRCND','PERMR ','USRDC ',ILEVEL,IUSRDC)

SET SOMETHING IN THIS WORKSPACE...

WORK(IUSRDC+INODE-1)=COND(INODE,IPHASE,1)

THEN I WROTE THIS VALUE IN USRTRN...

USRTRN

CALL GETADD('USRTRN','PERMR ','USRDC ',ILEVEL,IUSRDC)

DO...

WRITE(70,*) WORK(IUSRDC+INODE-1)

CONTINUE

The above procedure seems to work fine

However, in a new case I want to put a boundary condition for SCAL at the fluid/solid (in a CHT model) boundary to have a flux dependent on the sink rate supplied in USRSRC ...

Applying as I have done before:

USRSRC:

CALL GETADD('USRSRC','PERMR ','USRDC ',ILEVEL,IUSRDC)

SET SOMETHING IN THIS WORKSPACE... WORK(IUSRDC+INODE-1)=G4

Where G4=a value

USRBCS USRTRN

CALL GETADD('USRBCS','PERMR ','USRDC ',ILEVEL,IUSRDC)

DO...

WRITE(70,*) WORK(IUSRDC+INODE-1)

CONTINUE

The WORK(IUSRDC+INODE-1) in the 2nd case produces a value of zero!

There is obviously I am doing something wrong...Can anyone help!...

Many Thanks,

RK