From e7ed32ba4ebaff128f49d6fee52ec0ddabee65a9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 27 Jan 2022 00:01:53 +0100 Subject: [PATCH] not needed --- src/phase_mechanical_plastic.f90 | 6 ++---- src/phase_mechanical_plastic_dislotwin.f90 | 4 +--- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/src/phase_mechanical_plastic.f90 b/src/phase_mechanical_plastic.f90 index 0a24b0cbf..f72251bad 100644 --- a/src/phase_mechanical_plastic.f90 +++ b/src/phase_mechanical_plastic.f90 @@ -167,12 +167,10 @@ submodule(phase:mechanical) plastic el !< current element number end subroutine nonlocal_dotState - module subroutine dislotwin_dependentState(T,ph,en) + module subroutine dislotwin_dependentState(ph,en) integer, intent(in) :: & ph, & en - real(pReal), intent(in) :: & - T end subroutine dislotwin_dependentState module subroutine dislotungsten_dependentState(ph,en) @@ -363,7 +361,7 @@ module subroutine plastic_dependentState(co, ip, el) plasticType: select case (phase_plasticity(ph)) case (PLASTIC_DISLOTWIN_ID) plasticType - call dislotwin_dependentState(thermal_T(ph,en),ph,en) + call dislotwin_dependentState(ph,en) case (PLASTIC_DISLOTUNGSTEN_ID) plasticType call dislotungsten_dependentState(ph,en) diff --git a/src/phase_mechanical_plastic_dislotwin.f90 b/src/phase_mechanical_plastic_dislotwin.f90 index 0fb885f1b..d886322ac 100644 --- a/src/phase_mechanical_plastic_dislotwin.f90 +++ b/src/phase_mechanical_plastic_dislotwin.f90 @@ -701,13 +701,11 @@ end subroutine dislotwin_dotState !-------------------------------------------------------------------------------------------------- !> @brief Calculate derived quantities from state. !-------------------------------------------------------------------------------------------------- -module subroutine dislotwin_dependentState(T,ph,en) +module subroutine dislotwin_dependentState(ph,en) integer, intent(in) :: & ph, & en - real(pReal), intent(in) :: & - T real(pReal) :: & sumf_tw, sumf_tr