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

View File

@ -391,8 +391,8 @@ subroutine flux(f,ts,n,time)
use prec, only: &
pReal, &
pInt
use homogenization, only: &
materialpoint_heat
use thermal_conduction, only: &
thermal_conduction_getSourceAndItsTangent
use mesh, only: &
mesh_FEasCP
@ -406,8 +406,8 @@ subroutine flux(f,ts,n,time)
real(pReal), dimension(2), intent(out) :: &
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