anoop_1989
Mechanical
- Feb 11, 2019
- 59
Dear all
I am trying to simulate welding heat transfer in a simple plate of dimensions 0.15*.2*.002 m with 304ss. Heat input was given by the DFlux subroutine with a voltage of 25v current 280A and velocity of .0025m/s. Heat flux is given as body heat flux. The heat transfer coefficient is given as 50W/m2. Radiation effects are not considered. As per the journal paper temperature of 667 degree Celcius is observed at a distance of 10mm from the weld centerline. But I am getting at a range more 1200 degree Celcius. I have checked all the units in properties (thermal conductivity, specific heat, density)(All are temperature dependent properties).Step time is given as 120 for heat with intial size of.1 and increment of .0001.Cooling time for 300 seconds. Along the weld center line, I am getting the temperature in 4000-degree Celcius...Can any suggest the correction I have to make so that I will get the temperature in 600-700 range.?
This was the subroutine used
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,
1 JLTYP,TEMP,PRESS,SNAME)
INCLUDE 'ABA_PARAM.INC'
DIMENSION FLUX(2),TIME(2),COORDS(3)
CHARACTER*80 SNAME
REAL t,x,y,z,Q,cf,cr,b,a,Amp,volt,n
REAL z1,x2,y2,z2,v,ff,fr,d1,d2,l
REAL FLUX1
t = time(2)
c welding arc
cf =.007
cr =.003
b = .003
a = 0.004
ff=1.4
fr=.6
c speed of welding in Z direction
v=.0025
z1 = v*t
c coordinate
x = COORDS(1)
y = COORDS(2)
z = COORDS(3)
c
x2=x
y2=y
z2=z+z1
c Q=n*V*i
n=0.5
volt=25
Amp=280
Q=n*volt*Amp
if(JLTYP.EQ.1) then
if(KSTEP.EQ.1) then
c Goldak's volumetric heat source model
if(z2>=0) then
FLUX(1)=((1.8663*ff*Q)/(a*b*cf))*exp(-3*((x2)**2/a**2+(y2)**2/b**2+(z2)**2/cf**2))
else if (z2<0) then
FLUX(1)=((1.8663*fr*Q)/(a*b*cr))*exp(-3*((x2)**2/a**2+(y2)**2/b**2+(z2)**2/cr**2))
end if
end if
end if
return
end
I am trying to simulate welding heat transfer in a simple plate of dimensions 0.15*.2*.002 m with 304ss. Heat input was given by the DFlux subroutine with a voltage of 25v current 280A and velocity of .0025m/s. Heat flux is given as body heat flux. The heat transfer coefficient is given as 50W/m2. Radiation effects are not considered. As per the journal paper temperature of 667 degree Celcius is observed at a distance of 10mm from the weld centerline. But I am getting at a range more 1200 degree Celcius. I have checked all the units in properties (thermal conductivity, specific heat, density)(All are temperature dependent properties).Step time is given as 120 for heat with intial size of.1 and increment of .0001.Cooling time for 300 seconds. Along the weld center line, I am getting the temperature in 4000-degree Celcius...Can any suggest the correction I have to make so that I will get the temperature in 600-700 range.?
This was the subroutine used
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,
1 JLTYP,TEMP,PRESS,SNAME)
INCLUDE 'ABA_PARAM.INC'
DIMENSION FLUX(2),TIME(2),COORDS(3)
CHARACTER*80 SNAME
REAL t,x,y,z,Q,cf,cr,b,a,Amp,volt,n
REAL z1,x2,y2,z2,v,ff,fr,d1,d2,l
REAL FLUX1
t = time(2)
c welding arc
cf =.007
cr =.003
b = .003
a = 0.004
ff=1.4
fr=.6
c speed of welding in Z direction
v=.0025
z1 = v*t
c coordinate
x = COORDS(1)
y = COORDS(2)
z = COORDS(3)
c
x2=x
y2=y
z2=z+z1
c Q=n*V*i
n=0.5
volt=25
Amp=280
Q=n*volt*Amp
if(JLTYP.EQ.1) then
if(KSTEP.EQ.1) then
c Goldak's volumetric heat source model
if(z2>=0) then
FLUX(1)=((1.8663*ff*Q)/(a*b*cf))*exp(-3*((x2)**2/a**2+(y2)**2/b**2+(z2)**2/cf**2))
else if (z2<0) then
FLUX(1)=((1.8663*fr*Q)/(a*b*cr))*exp(-3*((x2)**2/a**2+(y2)**2/b**2+(z2)**2/cr**2))
end if
end if
end if
return
end