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

fix for temperature in spectral solver

This commit is contained in:
Martin Diehl 2015-01-08 13:26:00 +00:00
parent c08f704dee
commit e20271b89a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/DAMASK_spectral_utilities.f90
View File

@ -804,6 +804,8 @@ subroutine utilities_constitutiveResponse(F_lastInc,F,temperature,timeinc,&
materialpoint_F, &
materialpoint_P, &
materialpoint_dPdF
use thermal_isothermal, only: &
thermal_isothermal_temperature
implicit none
real(pReal), intent(in) :: temperature !< temperature (no field)
@ -837,7 +839,7 @@ subroutine utilities_constitutiveResponse(F_lastInc,F,temperature,timeinc,&
call CPFEM_general(CPFEM_COLLECT,F_lastInc(1:3,1:3,1,1,1),F(1:3,1:3,1,1,1), &
temperature,timeinc,1_pInt,1_pInt)
thermal_isothermal_temperature(:) = temperature
materialpoint_F = reshape(F,[3,3,1,product(grid)])
call debug_reset()