bozosprzoj
Aerospace
- May 24, 2013
- 12
Hi all,
I am having trouble assigning a soubtouthine to the surface in my model. I have a simple cube, where I would like to assign different heatflux through the subrouthine. (shown on the picture)
Can you help me select the surface and assign the heatflux to it.
[/b][/b][/b]
SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
1 TEMP,PRESS,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION COORDS(3),FLUX(2),TIME(2)
CHARACTER*80 SNAME
SNAME=' '
IF (SNAME .EQ. 'flux1')THEN
FLUX(1)=2000000
ELSE IF (SNAME .EQ. 'flux2')THEN
FLUX(1)=20000
ENDIF
return
end
Thenks in advanced,
Uroš
I am having trouble assigning a soubtouthine to the surface in my model. I have a simple cube, where I would like to assign different heatflux through the subrouthine. (shown on the picture)
Can you help me select the surface and assign the heatflux to it.
SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP,
1 TEMP,PRESS,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION COORDS(3),FLUX(2),TIME(2)
CHARACTER*80 SNAME
SNAME=' '
IF (SNAME .EQ. 'flux1')THEN
FLUX(1)=2000000
ELSE IF (SNAME .EQ. 'flux2')THEN
FLUX(1)=20000
ENDIF
return
end
Thenks in advanced,
Uroš