compatibility is a dependent state of nonlocal

This commit is contained in:
Martin Diehl 2023-12-29 23:17:24 +01:00
parent e042f0311a
commit 0d2ff12894
No known key found for this signature in database
GPG Key ID: 1FD50837275A0A9B
2 changed files with 6 additions and 9 deletions

View File

@ -326,11 +326,6 @@ module phase
real(pREAL) :: f real(pREAL) :: f
end function phase_f_T end function phase_f_T
module subroutine plastic_nonlocal_updateCompatibility(orientation,ph,en)
integer, intent(in) :: ph, en
type(tRotationContainer), dimension(:), intent(in) :: orientation
end subroutine plastic_nonlocal_updateCompatibility
module subroutine plastic_dependentState(ph,en) module subroutine plastic_dependentState(ph,en)
integer, intent(in) :: & integer, intent(in) :: &
ph, & ph, &
@ -363,7 +358,6 @@ module phase
phase_allocateState, & phase_allocateState, &
phase_forward, & phase_forward, &
phase_restore, & phase_restore, &
plastic_nonlocal_updateCompatibility, &
converged, & converged, &
phase_mechanical_constitutive, & phase_mechanical_constitutive, &
phase_thermal_constitutive, & phase_thermal_constitutive, &
@ -576,9 +570,6 @@ subroutine crystallite_orientations(co,ce)
call phase_O(ph)%data(en)%fromMatrix(transpose(math_rotationalPart(mechanical_F_e(ph,en)))) call phase_O(ph)%data(en)%fromMatrix(transpose(math_rotationalPart(mechanical_F_e(ph,en))))
if (plasticState(ph)%nonlocal) call plastic_nonlocal_updateCompatibility(phase_O,ph,en)
end subroutine crystallite_orientations end subroutine crystallite_orientations

View File

@ -204,6 +204,11 @@ submodule(phase:mechanical) plastic
en en
end subroutine plastic_nonlocal_deltaState end subroutine plastic_nonlocal_deltaState
module subroutine plastic_nonlocal_updateCompatibility(orientation,ph,en)
integer, intent(in) :: ph, en
type(tRotationContainer), dimension(:), intent(in) :: orientation
end subroutine plastic_nonlocal_updateCompatibility
end interface end interface
contains contains
@ -359,6 +364,7 @@ module subroutine plastic_dependentState(ph,en)
case (MECHANICAL_PLASTICITY_NONLOCAL) plasticType case (MECHANICAL_PLASTICITY_NONLOCAL) plasticType
call nonlocal_dependentState(ph,en) call nonlocal_dependentState(ph,en)
if (plasticState(ph)%nonlocal) call plastic_nonlocal_updateCompatibility(phase_O,ph,en)
end select plasticType end select plasticType