Subroutine for distributed current in Joule heating

[truongthinhs]

I am doing a coupled Thermal-electrical analysis on copper conducting sheet. The electrical currents flow on the sheet with ununiform densities then the temperature field is generated. I want to find the Subroutine of distributed current for user to calculate temperature by Joule heat, but I can not.

Please, help me to solve this problem.

Thank you very much,

Sincerely,