GETADD...some Help Pls
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 |
All times are GMT -4. The time now is 23:37. |