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

probably not needed

This commit is contained in:
Martin Diehl 2021-04-11 11:17:52 +02:00
parent b67e837548
commit 8b7f777186
2 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/homogenization.f90
View File

@ -100,10 +100,6 @@ module homogenization
integer, intent(in) :: ce
end subroutine damage_partition
module subroutine thermal_homogenize(ip,el)
integer, intent(in) :: ip,el
end subroutine thermal_homogenize
module subroutine mechanical_homogenize(dt,ce)
real(pReal), intent(in) :: dt
integer, intent(in) :: &
@ -306,7 +302,6 @@ subroutine materialpoint_stressAndItsTangent(dt,FEsolving_execIP,FEsolving_execE
terminallyIll = .true. ! ...and kills all others
endif
enddo
call thermal_homogenize(ip,el)
enddo
enddo
!$OMP END DO

12
src/homogenization_thermal.f90
View File

@ -94,18 +94,6 @@ module subroutine thermal_partition(ce)
end subroutine thermal_partition
!--------------------------------------------------------------------------------------------------
!> @brief Homogenize temperature rates
!--------------------------------------------------------------------------------------------------
module subroutine thermal_homogenize(ip,el)
integer, intent(in) :: ip,el
!call phase_thermal_getRate(homogenization_dot_T((el-1)*discretization_nIPs+ip), ip,el)
end subroutine thermal_homogenize
!--------------------------------------------------------------------------------------------------
!> @brief Homogenized thermal viscosity.
!--------------------------------------------------------------------------------------------------