Hello Community
I am a Masters student. As a part of my master thesis, I am working on simulating the wear happening in an Engine gasket using the Archards equation. I am trying to develop a UMESHMOTION subroutine script to simulate the wear in an Engine Gasket. From this Engineering Forum site, I came across a UMESHMOTION script. I have run this script, and it is able to show the material removal due to wear.
The problem now is that the wear depth calculated on every node in every increment is not summed up until the last increment. Ideally, I would want the wear depth integrated after every increment so that I can see the total wear depth in the last increment.
I am very new to Fortran scripting and tried many ways to solve my problem but unable to do so. I have attached the subroutine to this thread below.
Please advice me some ways to solve this problem.
Thank you for taking the time to read this thread.
Regards
Govind
I am a Masters student. As a part of my master thesis, I am working on simulating the wear happening in an Engine gasket using the Archards equation. I am trying to develop a UMESHMOTION subroutine script to simulate the wear in an Engine Gasket. From this Engineering Forum site, I came across a UMESHMOTION script. I have run this script, and it is able to show the material removal due to wear.
The problem now is that the wear depth calculated on every node in every increment is not summed up until the last increment. Ideally, I would want the wear depth integrated after every increment so that I can see the total wear depth in the last increment.
I am very new to Fortran scripting and tried many ways to solve my problem but unable to do so. I have attached the subroutine to this thread below.
Please advice me some ways to solve this problem.
Thank you for taking the time to read this thread.
Regards
Govind