×
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

user subroutine DISP : fix the boundary when a variable reaches the prescribed value

user subroutine DISP : fix the boundary when a variable reaches the prescribed value

user subroutine DISP : fix the boundary when a variable reaches the prescribed value

(OP)
Hi I am using the subroutine DISP.

I defined a variable P used to determine when to fix the boundary.
if (KSTEP .EQ. 1) then

IF((COORDS(3) .EQ. 0.0000) .AND. (JDOF .EQ. 1) .AND. (P .GE. 0.10)) then
U(1)=0.0000000000
!write(*,*) 'P_conver',P_conver
END IF
IF((COORDS(3) .EQ. 0.0000) .AND. (P .GE. 0.10) .AND. (JDOF .EQ. 2)) then
U(1)=0.0000000000
END IF
ENd if

I defined a surface for the boundary condition. P changes with time. At some time, if p>=0.1 , I want to fix the x, y freedom of this surface at current poisition.
I tried to use this code. But it seems the boundary is totally fixed.
Could you help me check the problem?
Thanks a lot!

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