How to define a body flux and a surface flux with user subroutine DFLUX at the same time?
How to define a body flux and a surface flux with user subroutine DFLUX at the same time?
(OP)
I want to heat a object with a surface flux and a body flux at the same time.
How can I achieve this purpose with user subroutine DFLUX?
Now I have write a surface flux and a body flux with DFLUX and thay work well separately, but how can I write them in one file and let them work together.
I tried to write the subroutine like this:
But it doesn't work correctly, when I run this subroutine, only the surface flux work, the body flux just doesn't work.
PS. I have set a surface flux and a body flux at Loads module and both select User Define.
How can I achieve this purpose with user subroutine DFLUX?
Now I have write a surface flux and a body flux with DFLUX and thay work well separately, but how can I write them in one file and let them work together.
I tried to write the subroutine like this:
CODE --> fortran
IF (JLTYP.EQ.1) THEN
Code for body flux...
END IF
IF (JLTYP.EQ.0) THEN
Code for surface flux...
END IF But it doesn't work correctly, when I run this subroutine, only the surface flux work, the body flux just doesn't work.
PS. I have set a surface flux and a body flux at Loads module and both select User Define.




