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

don't know what happend to the copyright note

This commit is contained in:
Martin Diehl 2018-09-05 23:41:35 +02:00
parent 0f084a9844
commit 8b3d30fdd4
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/plastic_dislotwin.f90
View File

@ -1,4 +1,8 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @author Su Leen Wong, Max-Planck-Institut für Eisenforschung GmbH
!> @author Nan Jia, Max-Planck-Institut für Eisenforschung GmbH
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief material subroutine incoprorating dislocation and twinning physics !> @brief material subroutine incoprorating dislocation and twinning physics
!> @details to be done !> @details to be done
@ -38,7 +42,7 @@ module plastic_dislotwin
resolved_stress_shearband_ID, & resolved_stress_shearband_ID, &
shear_rate_shearband_ID, & shear_rate_shearband_ID, &
stress_trans_fraction_ID, & stress_trans_fraction_ID, &
strain_trans_fraction_ID, & strain_trans_fraction_ID
end enum end enum
type,private :: tParameters type,private :: tParameters
@ -131,8 +135,7 @@ module plastic_dislotwin
type, private :: tDislotwinState type, private :: tDislotwinState
real(pReal), pointer, dimension(:,:) :: &
real(pReal), pointer, dimension(:,:) :: &
rhoEdge, & rhoEdge, &
rhoEdgeDip, & rhoEdgeDip, &
accshear_slip, & accshear_slip, &
@ -290,6 +293,7 @@ subroutine plastic_dislotwin_init(fileUnit)
allocate(plastic_dislotwin_sizePostResult(maxval(phase_Noutput),Ninstances),source=0_pInt) allocate(plastic_dislotwin_sizePostResult(maxval(phase_Noutput),Ninstances),source=0_pInt)
allocate(plastic_dislotwin_output(maxval(phase_Noutput),Ninstances)) allocate(plastic_dislotwin_output(maxval(phase_Noutput),Ninstances))
plastic_dislotwin_output = '' plastic_dislotwin_output = ''
allocate(param(Ninstances)) allocate(param(Ninstances))
allocate(state(Ninstances)) allocate(state(Ninstances))
allocate(dotState(Ninstances)) allocate(dotState(Ninstances))
@ -502,9 +506,6 @@ subroutine plastic_dislotwin_init(fileUnit)
case ('strain_trans_fraction') case ('strain_trans_fraction')
outputID = strain_trans_fraction_ID outputID = strain_trans_fraction_ID
outputSize = prm%totalNtrans outputSize = prm%totalNtrans
case ('trans_fraction','total_trans_fraction')
outputID = trans_fraction_ID
outputSize = prm%totalNtrans
end select end select
@ -938,7 +939,8 @@ function plastic_dislotwin_homogenizedC(ipc,ip,el)
enddo enddo
end associate end associate
end function plastic_dislotwin_homogenizedC end function plastic_dislotwin_homogenizedC
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief calculates derived quantities from state !> @brief calculates derived quantities from state
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------