From 8b7f77718627c88789802838a0690fc5a0d333e8 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 11 Apr 2021 11:17:52 +0200 Subject: [PATCH] probably not needed --- src/homogenization.f90 | 5 ----- src/homogenization_thermal.f90 | 12 ------------ 2 files changed, 17 deletions(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index a1aaff1db..3fadf1e96 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -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 diff --git a/src/homogenization_thermal.f90 b/src/homogenization_thermal.f90 index 9c58fc6a8..40c466ab5 100644 --- a/src/homogenization_thermal.f90 +++ b/src/homogenization_thermal.f90 @@ -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. !--------------------------------------------------------------------------------------------------