223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

adapted flux routine to current state of source_thermal_dissipation.f90

This commit is contained in:
Franz Roters 2016-07-20 08:44:12 +02:00
parent 1753d35e87
commit 2d26cfe7b8
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/DAMASK_marc.f90
View File

@ -391,8 +391,8 @@ subroutine flux(f,ts,n,time)
use prec, only: & use prec, only: &
pReal, & pReal, &
pInt pInt
use homogenization, only: & use thermal_conduction, only: &
materialpoint_heat thermal_conduction_getSourceAndItsTangent
use mesh, only: & use mesh, only: &
mesh_FEasCP mesh_FEasCP
@ -406,8 +406,8 @@ subroutine flux(f,ts,n,time)
real(pReal), dimension(2), intent(out) :: & real(pReal), dimension(2), intent(out) :: &
f f
f(1) = materialpoint_heat(n(3),mesh_FEasCP('elem',n(1))) ! f(1) = materialpoint_heat(n(3),mesh_FEasCP('elem',n(1)))
call thermal_conduction_getSourceAndItsTangent(f(1), f(2), ts(3), n(3),mesh_FEasCP('elem',n(1)))
end subroutine flux end subroutine flux