×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Defining Temperature as a moving boundary condition in ABAQUS.

Defining Temperature as a moving boundary condition in ABAQUS.

Defining Temperature as a moving boundary condition in ABAQUS.

(OP)
Dear all,
I am trying to define temperature as a moving boundary condition. I want to apply a temperature to a small circular area on a surface and then move that around on the surface. I was told that DISP subroutine. I have put together this subroutine but it doesn't work.

SUBROUTINE DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS)
c
include 'ABA_PARAM.INC'
c
DIMENSION U(3),TIME(2),COORDS(3)
c Defining radius of the circular region for temperature application
x=COORDS(1)
y=COORDS(2)
r=sqrt((x-x0)**2+(y-y0)**2)
c
c Test of node position and temperature assignment
if (JDOF.eq.3) then
If (r.le.rlas) then
U(1)=1800
Else
U(1)=0
end if
U(2)=0
U(3)=0
End if
c
return
end

Can somebody please help me if I am thinking correctly or what am I doing wrong here.

Thank you
Haider

RE: Defining Temperature as a moving boundary condition in ABAQUS.

Why UDISP instead of UTEMP?

Where are x0, y0 and rlas defined?

RE: Defining Temperature as a moving boundary condition in ABAQUS.

(OP)
Dear Mustaine3,
Thank you for replying. Sorry I had forgotten to include the lines of x0,y0 and rlas in my post. Below is the complete subroutine. As for UTEMP or DISP i have no idea which one to use. Just started with DISP. Can you please help me. Cheers

SUBROUTINE DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS)
c
include 'ABA_PARAM.INC'
c
DIMENSION U(3),TIME(2),COORDS(3)
real*8 x0,y0,x,y,z,rlas,r
x0=0
y0=0
rlas=0.05
c Defining radius of the circular region for temperature application
x=COORDS(1)
y=COORDS(2)
r=sqrt((x-x0)**2+(y-y0)**2)
c
c Test of node position and temperature assignment
if (JDOF.eq.3) then
If (r.le.rlas) then
U(1)=1800
Else
U(1)=0
end if
U(2)=0
U(3)=0
End if
c
return
end

RE: Defining Temperature as a moving boundary condition in ABAQUS.

Do you have a model with translational DOF? Because that is what you apply with a DISP.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources