Douglas Serrati
Mechanical
- Mar 13, 2020
- 1
I'm simulating gouging, and inside the *DO loop is necessary to leave and re-enter the /SOLUTION. The problem is that the previous thermal distribution is not being carried to next step. It always start the thermal distribution for every step, like it was the first time the heat source were being applied. I do need to get in solution twice inside the loop, because was the only way I found out that could be successful using EKILL comand and keeping an element dead, in a previous step, to the end of the simulation.
Any suggestion is welcome...
Here is the code:
[...] ! Geometry, material properties, element type, mesh...
/SOL
ANTYPE,4
[...] ! Solution boundaries
*do,v,1,np
[...] ! Applying heat to selected nodes
TIME,number*dt
OUTRES,ALL
OUTPR,ALL
SAVE
SOLVE
FINISH
/POST1
SET,LAST
ETABLE,DERR,TEMP, ! Create a table with elements temperature
ESEL,S,ETAB,DERR,1500 ! Select elements that have temperature higher then 1500°C
CM,EL,ELEM ! Group this elements in a component named "EL"
CMWRITE,EL,CM ! Write them to a file "EL.CM"
FINISH
/SOLU
ANTYPE,,REST,LAST,,CONTINUE ! Restart solution
/INP,EL,CM ! Read the file "EL.CM"
CMSEL,S,EL ! Select group "EL"
EKILL,ALL
ESEL,ALL
TIME,passo*dt+0.0001
FDELE,all,HEAT ! Delete heat from all elements (heat source have to move)
SAVE
SOLVE ! I need this SOLVE to get "EL" killed and that it maintain dead to the end
FINISH
/SOLU ! Have to re-enter the solution
! I didn't get different results adding or not ANTYPE here.
number=number+1
*ENDDO
Any suggestion is welcome...
Here is the code:
[...] ! Geometry, material properties, element type, mesh...
/SOL
ANTYPE,4
[...] ! Solution boundaries
*do,v,1,np
[...] ! Applying heat to selected nodes
TIME,number*dt
OUTRES,ALL
OUTPR,ALL
SAVE
SOLVE
FINISH
/POST1
SET,LAST
ETABLE,DERR,TEMP, ! Create a table with elements temperature
ESEL,S,ETAB,DERR,1500 ! Select elements that have temperature higher then 1500°C
CM,EL,ELEM ! Group this elements in a component named "EL"
CMWRITE,EL,CM ! Write them to a file "EL.CM"
FINISH
/SOLU
ANTYPE,,REST,LAST,,CONTINUE ! Restart solution
/INP,EL,CM ! Read the file "EL.CM"
CMSEL,S,EL ! Select group "EL"
EKILL,ALL
ESEL,ALL
TIME,passo*dt+0.0001
FDELE,all,HEAT ! Delete heat from all elements (heat source have to move)
SAVE
SOLVE ! I need this SOLVE to get "EL" killed and that it maintain dead to the end
FINISH
/SOLU ! Have to re-enter the solution
! I didn't get different results adding or not ANTYPE here.
number=number+1
*ENDDO