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

not needed

This commit is contained in:
Martin Diehl 2022-01-27 00:01:53 +01:00
parent 3bb2ae45d3
commit e7ed32ba4e
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/phase_mechanical_plastic.f90
View File

@ -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)

4
src/phase_mechanical_plastic_dislotwin.f90
View File

@ -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