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

simplified

This commit is contained in:
Martin Diehl 2018-07-16 21:14:33 +02:00
parent fc0499a9bb
commit e0e03827c5
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/plastic_dislotwin.f90
View File

@ -263,11 +263,11 @@ subroutine plastic_dislotwin_init(fileUnit)
write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_DISLOTWIN_label//' init -+>>>' write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_DISLOTWIN_label//' init -+>>>'
write(6,'(/,a)') ' A. Ma and F. Roters, Acta Materialia, 52(12):3603–3612, 2004' write(6,'(/,a)') ' A. Ma and F. Roters, Acta Materialia, 52(12):3603–3612, 2004'
write(6,'(/,a)') ' https://doi.org/10.1016/j.actamat.2004.04.012' write(6,'(a)') ' https://doi.org/10.1016/j.actamat.2004.04.012'
write(6,'(/,a)') ' F.Roters et al., Computational Materials Science, 39:91–95, 2007' write(6,'(/,a)') ' F.Roters et al., Computational Materials Science, 39:91–95, 2007'
write(6,'(/,a)') ' https://doi.org/10.1016/j.commatsci.2006.04.014' write(6,'(a)') ' https://doi.org/10.1016/j.commatsci.2006.04.014'
write(6,'(/,a)') ' Wong et al., Acta Materialia, 118:140–151, 2016' write(6,'(/,a)') ' Wong et al., Acta Materialia, 118:140–151, 2016'
write(6,'(/,a)') ' https://doi.org/10.1016/j.actamat.2016.07.032' write(6,'(a,/)') ' https://doi.org/10.1016/j.actamat.2016.07.032'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
@ -1035,7 +1035,7 @@ subroutine plastic_dislotwin_microstructure(temperature,ipc,ip,el)
integer(pInt) :: & integer(pInt) :: &
instance, & instance, &
s,t,r, & s, &
ph, & ph, &
of of
real(pReal) :: & real(pReal) :: &
@ -1729,8 +1729,6 @@ subroutine plastic_dislotwin_dotState(Tstar_v,Temperature,ipc,ip,el)
enddo enddo
enddo enddo
if (el==12) write(6,*) Tstar_v
if (el==12) write(6,*) plasticState(ph)%dotState(:,of),ph,of,el
end subroutine plastic_dislotwin_dotState end subroutine plastic_dislotwin_dotState