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

[skip ci] only corrections to comments made

This commit is contained in:
Franz Roters 2019-10-11 15:21:29 +02:00
parent ba485293db
commit e85e13b380
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/crystallite.f90
View File

@ -2091,7 +2091,7 @@ end subroutine setConvergenceFlag
!--------------------------------------------------------------------------------------------------
!> @brief Standard forwarding of state as state = state0 + dotState * (delta t)
!> @brief Standard forwarding of state as state = state0 + dotState * (delta t) comment seems wrong!
!--------------------------------------------------------------------------------------------------
subroutine update_stress(timeFraction)

6
src/plastic_nonlocal.f90
View File

@ -1453,9 +1453,9 @@ subroutine plastic_nonlocal_dotState(Mp, Fe, Fp, Temperature, &
opposite_n, & !< neighbor index pointing to me when looking from my opposite neighbor
t, & !< type of dislocation
o,& !< offset shortcut
no,& !< neighbour offset shortcut
no,& !< neighbor offset shortcut
p,& !< phase shortcut
np,& !< neighbour phase shortcut
np,& !< neighbor phase shortcut
topp, & !< type of dislocation with opposite sign to t
s !< index of my current slip system
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phaseAt(1,el))),10) :: &
@ -1654,7 +1654,7 @@ subroutine plastic_nonlocal_dotState(Mp, Fe, Fp, Temperature, &
!* If it's not at all compatible, no flux is arriving, because everything is dammed in front of
!* my neighbor's interface.
!* The entering flux from my neighbor will be distributed on my slip systems according to the
!*compatibility
!* compatibility
considerEnteringFlux = .false.
neighbor_v = 0.0_pReal ! needed for check of sign change in flux density below