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