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

separated local and nonlocal part of dotState

This commit is contained in:
Martin Diehl 2020-05-03 11:49:16 +02:00
parent 6f627892bc
commit 53de95798a
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/constitutive_plastic_nonlocal.f90
View File

@ -1295,7 +1295,7 @@ module subroutine plastic_nonlocal_dotState(Mp, F, Fp, Temperature,timestep, &
- rhoDip(s,1) / timestep - rhoDotAthermalAnnihilation(s,9) &
- rhoDotSingle2DipoleGlide(s,9)) ! make sure that we do not annihilate more dipoles than we have
rhoDot = rhoDotFlux &
rhoDot = plastic_nonlocal_dotState2(F,Fp,timestep, instance,of,ip,el) &
+ rhoDotMultiplication &
+ rhoDotSingle2DipoleGlide &
+ rhoDotAthermalAnnihilation &
@ -1347,8 +1347,7 @@ end subroutine plastic_nonlocal_dotState
!---------------------------------------------------------------------------------------------------
!> @brief calculates the rate of change of microstructure
!---------------------------------------------------------------------------------------------------
subroutine plastic_nonlocal_dotState2(F, Fp,timestep, &
instance,of,ip,el)
function plastic_nonlocal_dotState2(F,Fp,timestep, instance,of,ip,el) result(rhoDotFlux)
real(pReal), dimension(3,3,homogenization_maxNgrains,discretization_nIP,discretization_nElem), intent(in) :: &
F, & !< elastic deformation gradient
@ -1583,7 +1582,7 @@ subroutine plastic_nonlocal_dotState2(F, Fp,timestep, &
end associate
end subroutine plastic_nonlocal_dotState2
end function plastic_nonlocal_dotState2
!--------------------------------------------------------------------------------------------------